C..  USE.FTN   BOHDEN K. CMAYLO   APR 81
C..
C..  ALLOWS NON PRIV USER TO START USER## FOR WP THRU TT0:
C..
	BYTE BINPUT(132),BUSER(4)
	DIMENSION CMD(20)
	DATA BINPUT/'R','U','N',129*' '/
	DATA BUSER/'U','S','E','R'/
	DATA RTNAME,IUNIT,DEV/6RMCR...,0,'TT  '/
C..
C..  GET MCR COMMAND LINE, IF ANY
C..
	NOGO=0
	IQ=ISTXQT(BINPUT)
	IF(IQ.LE.0) GO TO 10
	NOGO=1
	CALL BYTEDO(BINPUT(5),BINPUT(IQ+4),BINPUT(9))
	CALL DOBYTE(BINPUT(IQ+5),BINPUT(IQ+8),0)
	GO TO 15
10	TYPE 20
20	FORMAT('$USE>')
	READ(5,1,ERR=30,END=30)IQ,(BINPUT(I+5),I=1,IQ)
1	FORMAT(Q,80A1)
15	DO 16 I=1,4
	IF(BUSER(I).NE.BINPUT(I+4)) CALL EXIT
16	CONTINUE
	CALL SPAWN(RTNAME,,,,,,,BINPUT,IQ+4,IUNIT,DEV,IDS)
	IF(IDS.NE.1) TYPE 33,IDS
33	FORMAT(' *** ERROR *** CALL CS AT 556-1263 *** IDS=',I5)
	IF(NOGO.LE.0) GO TO 10
30	CALL EXIT
	END