FUNCTION SETUP
	LOGICAL*1 SETUP
C
C	The following programs are used in the RT-11 User and RT-11
C	Programmer self paced instruction courses for RT-11 V4.They are also
C	similar to programs used in the Programming with RT-11 series for
C	RT-11 V5.0 or later. The name of the files are as specified in the
C	self paced course.
C
C	The code is supplied as a service as Digital does not supply these
C	on diskette.
C	Any copyright is the property of Digital Equipment Corporartion
C
C
C FILE SETCSI.FOR
C
C ROUTINE GETS COMMAND STRING, SETS UP FILES FOR I/O.
C COMMAND STRING IS OBTAINED USING ICSI
C
C FUNCTION RETURNS .TRUE. IF ERROR, .FALSE. OTHERWISE.
C
	INTEGER INCHN,OUTCHN
	COMMON /CHNNLS/INCHN,OUTCHN
C (CHANNEL NUMBERS ARE USED BY CPYRTN, CLSCHN, AND PRGCHN)
C
	LOGICAL*1 FRSTTM
	DATA FRSTTM/.TRUE./	!"FIRST TIME THROUGH" FLAG
C
	INTEGER DEFTYP(4),FILES(39),LENGTH
	DATA DEFTYP/4*0/
C
C
	IF (.NOT.FRSTTM) GO TO 10
C GET CHANNELS ONLY ONCE
	INCHN = IGETC()
	OUTCHN = IGETC()
	FRSTTM = .FALSE.
C GET COMMAND STRING:
10	CALL PRINT ('SPECIFY  OUTFILE=INFILE')
	IF (ICSI(FILES,DEFTYP,,,0).NE.0) GO TO 100
C FETCH NEEDED HANDLERS
	IF (IFETCH(FILES(1)).NE.0) GO TO 101
	IF (IFETCH(FILES(16)).NE.0) GO TO 102
C FIND INPUT FILE
	LENGTH = LOOKUP(INCHN,FILES(16))
	IF (LENGTH.LT.0) GO TO 103
C CREATE OUTPUT FILE
	IF (IENTER(OUTCHN,FILES(1),LENGTH).LT.0) GO TO 104
	SETUP = .FALSE.		!NO ERROR
	RETURN
C
C ERROR ROUTINES
C
100	CALL PRINT ('ERROR ON CSI CALL')
	GO TO 200
101	CALL PRINT ('ERROR ON FETCH OF OUTPUT HANDLER')
	GO TO 200
102	CALL PRINT ('ERROR ON FETCH OF INPUT HANDLER')
	GO TO 200
103	CALL PRINT ('ERROR ON LOOKUP OF INPUT FILE')
	GO TO 200
104	CALL PRINT ('ERROR ON CREATION OF OUTPUT FILE')
200	SETUP = .TRUE.		!REPORT ERROR
	RETURN
	END