SUBROUTINE SETUP
C
 5	WRITE(5,10)
 10	FORMAT('$Enter terminal number of remote (OCTAL): ')
	READ(5,20,ERR=5,END=100) ITERM
 20	FORMAT(O2)
	J=IOUTT1(-10,ITERM)
	IF(J.NE.0) WRITE(5,30) 1,J
30	FORMAT(2X,O8,' ERROR IN SETUP FOR I/O ROUTINES',O8)
	J=ITTOUR(-10)
	IF(J.NE.0) WRITE(5,30) 2,J
	RETURN
 100	STOP
	END