INTEGER*2 IOSB(2),IPARM(6),DSW
	LOGICAL*1 MESS(80)
	REAL*8 AQNAME
	REAL*4 QNAME
	EQUIVALENCE (QNAME,IPARM(3))
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: ')
	READ(5,4,END=99)MESS
4	FORMAT(80A1)
	DO 5 I=80,1,-1
5	IF(MESS(I).GT.' ')GOTO6
	GOTO10
6	IPARM(2)=I
	CALL ASNLUN(3,'VS',0)
	CALL WTQIO("400,3,10,,IOSB,IPARM,DSW)
	WRITE(5,7)DSW,IOSB
7	FORMAT(' SENDER -- I/O STATUS WAS ',3O8)
	CALL EXIT
99	STOP ' -- END-OF-FILE ON TERMINAL'
	END