C	TEST PROGRAM FOR THE PUTMCR SUBROUTINE
C
C
	LOGICAL*1 LINE(80)
	WRITE(5,100)
100	FORMAT(1X,'ENTER MCR COMMAND LINE TO BE EXECUTED',2X,$)
	READ(5,200) NB,(LINE(J),J=1,80)
200	FORMAT(Q,80A1)
C	PUT THE STRING TO MCR USING LUN 4 AND TELL
C	MCR TO USE THE TI: TERMINAL.
	CALL PUTMCR(NB,LINE,4,-1)
	CALL EXIT
	END