C..   BKC.FTN   BOHDEN CMAYLO     JUL 81
C..
C..   ROUTINE BKC SENDS COMMANDS TO OTHER TERMINALS
C..
	BYTE BINPUT(80)
	DIMENSION INPUT(40),ICMLIN(80)
	EQUIVALENCE (INPUT,BINPUT)
	DATA DEVTI,DEV,RTNAME/'TI  ','TT  ',6RMCR.../
C..
C..  GET MCR COMMAND LINE, IF ANY
C..
	NOGO=0
	IDS=ISTXQT(BINPUT)
	IF(IDS.LE.0) GO TO 10
	NOGO=1
	DECODE(IDS,1,INPUT(1),ERR=4)
     1 ICMLEN,IUNIT,(ICMLIN(I),I=1,ICMLEN)
	GO TO 15
10	TYPE 20
20	FORMAT('$BKC>')
	READ(5,1,ERR=4,END=30)ICMLEN,IUNIT,(ICMLIN(I),I=1,ICMLEN)
1	FORMAT(Q,O6,80A2)
15	IF(IUNIT.LT.0.OR.IUNIT.GT."77) GO TO 4
C..	IF(IUNIT.EQ.7) GO TO 88
	CALL SPAWN(RTNAME,,,,,,,ICMLIN,ICMLEN,IUNIT,DEV)
25	IF(NOGO.LE.0) GO TO 10
30	CALL EXIT
88	IUNIT=0
	DEV=DEV1
	GO TO 15
4	TYPE 3,DEV,(ICMLIN(I),I=1,ICMLEN)
3	FORMAT('0<BKC> INVALID DEVICE ',A4,' COMMAND=',80A2)
	GO TO 25
	END