C
C BLOCKIO.FTN
C TESTER BLOCK IO
C
	BYTE BUF (400)
	INTEGER PRL (6)
	DO 10 I=1,480
10	BUF(I)=I-120
C
	CALL GETADR(PRL(1),BUF(1))
	OPEN (UNIT=2,NAME='TEMP.DAT',INITIALSIZE=1000,
	1	RECORDSIZE=120,FORM='UNFORMATTED',RECORDTYPE=FIXED,
	2	BUFFERCOUNT=-1)
	TIME=SECNDS(0.)
C
C WRITE OUT 512 RECRODS (512 BYTES)
C
	DO 100 I=1,512
	BUF(1)=I
	PRL(5)=I
	PRL(5)=480
	CALL WTQIO("011000,2,1,,,PRL)
100	CONTINUE
	DELTA=SECNDS(TIME)
	TYPE *,DELTA
C
C RANDOMLY ACCESS THE RECORDS 15 TIMES
C
	IR=0
	JR=0
	DO 1000 I=1,15
	NUM=RAN(IR,JR)*511+1
	CALL WTQIO("10400,2,1,,,PRL)
1300	CONTINUE
1000	CONTINUE
	DELTA=SECNDS(TIME)
	TYPE *,DELTA
	END