C***********************************************************************
C
	SUBROUTINE IFINIT(IQUIT)
C
	INCLUDE 'COMMON.FTN'
	INCLUDE '[RADIX]INTERFACE.COM'
	DATA BANGL, EANGL /3.0,153./ SETANG /30./
	DATA SPINTE, SPSLEW, SPSTEP / 3*0./ DELAY /1.0/
	DATA IFTYPE /'R'/ IFNAME /'X','X','X','X',' ',' '/
	DATA STPSIZ /1.0/ ANGLE,COUNTS,CTIME / 3 * 10./
	DATA ISTEP, IFSTAT, NERRS /3 * 0/ LIMERR /20/ KICK /0/
	CHARACTER*20 LINE
	INTEGER*4 SYS$ASSIGN
C
	IQUIT = 0
C
C  Assign a channel to the device.
3	WRITE(ITYP,4)
4	FORMAT(' Which line is the RADIX interface connected to? ',$)
	READ(IRD,14,END=99) LINE
14	FORMAT(A)
	IF(LINE.EQ.' ') GOTO 3
	IF(ICHAN.NE.0) CALL SYS$DASSGN( %VAL(ICHAN))
	ISTAT=SYS$ASSIGN(LINE,ICHAN,,)
	IF(.NOT.ISTAT) THEN
		CALL LIB$SIGNAL(%VAL(ISTAT))
		GOTO 99
	ENDIF
	IF(DEBUG) TYPE*,'ICHAN=', ICHAN
C
	CALL DEVATA( LINE)
	IF(NBUG(3).NE.0) DEBUG = .TRUE.
	IF(CANG.LT.0.0) GOTO 99
	IFSTAT = 1
	KICK = 0
	RETURN
99	IQUIT = 1
	RETURN
	END
