SUBROUTINE SETUP
C
	BYTE MCRLIN(80)
	CHARACTER*80 CMCRLN
	BYTE DIALLN(15)
	EQUIVALENCE (CMCRLN,MCRLIN(1))
	DATA DIALLN/15*' '/
	CALL GETMCR(MCRLIN,IDS)
	IF(IDS.GT.3)THEN
		J=INDEX(CMCRLN,'TT')
		IF(J.EQ.0)THEN
			WRITE(5,1000)
			CALL EXIT(4)
		END IF
		K=INDEX(CMCRLN,':')
		IF(K.EQ.0)THEN
			WRITE(5,1000)
			CALL EXIT(4)
		END IF
		DECODE(K-J-2,1001,CMCRLN(J+2:K-1))ITERM
	ELSE
		WRITE(5,1003)
5		WRITE(5,1004)
		READ(5,1001,ERR=5,END=100) ITERM
	END IF
	WRITE(5,1002)
	J=IOUTT1(-10,ITERM)
	IF(J.NE.0) WRITE(5,30) 1,J
30	FORMAT(2X,I1,' ERROR IN SETUP FOR I/O ROUTINES')
	J=ITTOUR(-10)
	IF(J.NE.0) WRITE(5,30) 2,J
	IF(IDS.GT.3)THEN
		L=INDEX(CMCRLN,'DIAL')
		IF(L.NE.0)THEN
			DO 40,I=1,15
			IF(L+4+I.GT.IDS)GO TO 40
			DIALLN(I)=MCRLIN(L+4+I)
40			CONTINUE
			CALL DIAL(DIALLN)
		END IF
	END IF
	RETURN
 100	CALL EXIT(1)
1000	FORMAT(' XMT - SYNTAX ERROR')
1001	FORMAT(O2)
1002	FORMAT('$')
1003	FORMAT(' Terminal Transmission Program V3.3')
1004		FORMAT('$Enter terminal number of remote (OCTAL): ')
	END