INTEGER*2 IOSB(2),IPARM(6),DSW,MESS(44),TSKNAM(3)
	INTEGER*4 NEXTID
	LOGICAL*1 TEXT(80)
	REAL*8 AQNAME
	REAL*4 QNAME
	EQUIVALENCE (QNAME,IPARM(3)),(MESSID,IPARM(5)),(MESS(5),TEXT(1))
10	WRITE(5,1)
1	FORMAT('$Queue name: ')
	READ(5,2,END=99)AQNAME
2	FORMAT(A6)
	QNAME=RAD50(AQNAME)
	CALL GETADR(IPARM(1),MESS(1))
	WRITE(5,3)
3	FORMAT('$Message ID: ')
	READ(5,4,END=99)MESSID
4	FORMAT(O6)
	IPARM(2)=80
	CALL ASNLUN(3,'VS',0)
	CALL WTQIO("5000,3,10,,IOSB,IPARM,DSW)
	WRITE(5,7)DSW,IOSB
7	FORMAT(' VSEXAM -- I/O STATUS WAS ',3O8)
	NEXTID=MESS(1)
	LEN=MESS(2)
	CALL R50ASC(6,MESS(3),TSKNAM)
	IF(IOSB(2).GT.8)WRITE(5,8)LEN,TSKNAM,(TEXT(I),I=1,LEN)
8	FORMAT(' Message length ',I4,' bytes from task ',3A2/
	1 ' Message text dump (octal bytes):',4(/1X,20O4))
	IF(IOSB(2).GT.8)WRITE(5,9)(NEXTID.AND."177777).OR."1000000
9	FORMAT(' Next message ID is',O7,T20,' ',T27,' ')
	CALL EXIT
99	STOP ' -- END-OF-FILE ON TERMINAL'
	END