PROGRAM WRTLBN
C
C
	LOGICAL*1 IOST(4)
	INTEGER IPARM(6),BUF(256)
	INTEGER*4 LBN
C
	EQUIVALENCE(IPARM(5),LBN)
C
	CALL GETADR(IPARM(1),BUF)
	IPARM(2)=512
5	WRITE(5,10)
10	FORMAT(/'$ENTER LOGICAL BLOCK NUMBER: ')
	READ(5,15,END=1000) LBN
15	FORMAT(I10)
	CALL QIO("1000,1,1,,IOST,IPARM)
	CALL WAITFR(1)
	WRITE(5,17) IOST
17	FORMAT(' IOST: ',4O6/)
	WRITE(6,20) BUF
20	FORMAT(/32(1X,8O8/))
	GO TO 5
1000	CALL EXIT
	END