PROGRAM QUEUER
C
C	THIS PROGRAM QUEUES ITS MCR COMMAND LINE TO VS:-QUEUE SPWNSP
C
	BYTE BUF(80)
	REAL*4 QNAME
	DATA QNAME/6RSPWNSP/
	CALL GETMCR(BUF,LEN)
	IF(LEN.LE.4)STOP '-- INVALID COMMAND LINE'
	CALL VS2INI(1,15)
	CALL VS2WLB(QNAME,BUF(5),LEN-4,ISTAT)
	IF(ISTAT.GT.0)GOTO99
	WRITE(5,1)ISTAT
1	FORMAT(' QRT -- BAD VS STATUS ',I6)
99	CONTINUE
	END