INTEGER*2 IBUF(44)
	BYTE BUF(80)
	EQUIVALENCE(BUF(1),IBUF(5))
	REAL*4 QNAME
	REAL*8 MESS
	LOGICAL*1 GOTONE
	DATA QNAME/6RSPWNSP/,GOTONE/.FALSE./
	CALL VS2INI(1,15)
	MSGID=0
	WRITE(5,1)
1	FORMAT(' *** Commands currently waiting in queue:')
4	CALL VS2EXM(QNAME,MSGID,IBUF,84,ISTAT)
	IF(ISTAT.LE.0)GOTO9
	LEN=ISTAT-8
	ME=MSGID
	MSGID=IBUF(1)
	IF(LEN.LE.0)GOTO3
	GOTONE=.TRUE.
	ENCODE(8,6,MESS)ME
6	FORMAT('[',O6,']')
	IF(ME.EQ.0)MESS='[*NEXT*]'
	WRITE(5,2)MESS,(BUF(I),I=1,LEN)
2	FORMAT(' *** ',A8,' >',<LEN>A1)
3	IF(MSGID.NE.0)GOTO4
9	IF(.NOT.GOTONE)WRITE(5,5)
5	FORMAT(' *** (None)')
	END