FUNCTION SETUP
	LOGICAL*1 SETUP
C
C FILE SETFIX.FOR
C 
C THIS ROUTINE SETS UP FILES FOR I/0.
C IN THIS VERSION, THE FILESPECS ARE FIXED.
C
C FUNCTION RETURNS .TRUE. IF ERROR, .FALSE. OTHERWISE.
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
	INTEGER INCHN,OUTCHN
	COMMON/CHNNLS/INCHN,OUTCHN
C (CHANNEL NUMBERS ARE USED BY CPYRTN, CLSCHN, AND PRGCHN)
C
C INPUT AND OUTPUT FILESPECS:
	INTEGER INFILE(4),OUTFIL(4)
	DATA INFILE/2RDK,3RTRA,2RN1,3RXYZ/ !FROM DK:TRAN1.XYZ
	DATA OUTFIL/2RDK,3RTRA,2RN2,3RXYZ/ !TO DK:TRAN2.XYZ
C
C
	CALL PRINT ('PROGRAM COPIES TRAN1.XYZ KTO TRAN2.XYZ')
	INCHN = IGETC()
	OUTCHN = IGETC()
C FETCH NEEDED HANDLERS
	IF (IFETCH(OUTFIL(1)).NE.0) GO TO 101
	IF (IFETCH(INFILE(1)).NE.0) GO TO 102
C FIND INPUT FILE
	LENGTH = LOOKUP(INCHN,INFILE)
	IF (LENGTH.LT.0) GO TO 103
C CREATE OUTPUT FILE
	IF (IENTER(OUTCHN,OUTFIL,LENGTH).LT.0) GO TO 104
	SETUP = .FALSE. !NO ERROR
	RETURN
C
C	ERROR ROUTINES
C
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