INTEGER BUF(16), P(6), COUNT, IDS, WLB, RLB
	LOGICAL*1 MSG(100), IOSB(4)
	EQUIVALENCE (IOSB(3), COUNT)
	DATA WLB/"400/, RLB/"1000/
	CALL GETTSK(BUF)
	P(3) = BUF(1)
	P(4) = BUF(2)
	CALL GETADR(P, MSG)
	CALL ASNLUN(1, 2HSR, 0, IDS)
	IF (IDS .EQ. 1) GOTO 1
	TYPE 200
200	FORMAT(' ERROR ASSIGNING LUN TO SR0:')
	CALL EXIT
1	CONTINUE
	TYPE 100
100	FORMAT('$MSG> ')
	READ (5,101) N, (MSG(I),I=1,N)
101	FORMAT(Q, 100A1)
	P(2) = N
	P(5) = 20
	P(6) = 1
	CALL WTQIO(WLB, 1, 1,, IOSB, P, IDS)
	IF (IDS .EQ. 1) GOTO 2
	TYPE 201
201	FORMAT(' ERROR ISSUING WRITE QIO')
	CALL EXIT
2	CONTINUE
	IF (IOSB(1) .EQ. 1) GOTO 3
	TYPE 202, IOSB(1)
202	FORMAT(' ERROR IN DRIVER; IOSB(1) = ', I5)
	CALL EXIT
3	CONTINUE
	P(2) = 100
	CALL WTQIO(RLB, 1, 1,, IOSB, P, IDS)
	IF (IDS .EQ. 1) GOTO 4
	TYPE 203
203	FORMAT(' ERROR ISSUING READ QIO')
	CALL EXIT
4	CONTINUE
	IF (IOSB(1) .EQ. 1) GOTO 5
	TYPE 202, IOSB(1)
	CALL EXIT
5	CONTINUE
	N = COUNT
	TYPE 204, (MSG(I),I=1,N)
204	FORMAT(1X,100A1)
	CALL EXIT
	END