C$IO	INITAL - PROGRAM TO ILLUSTRATE DIRECT ACESS BLOCK I/O
C.	18-APR-80	P. H. CANNON
C	THIS PROGRAM ILLUSTRATES THE USE OF THE FORTRAN INTERFACE
C	THE THE FILE CONTROL SYSTEM (FCS).
C	IT USES DIRECT ACCESS BLOCK I/O.  THE BLOCKS ON THE DISK ARE
C	TRANSFERRED DIRECTLY INTO THE FORTRAN ARRAYS.  NO TIME OR
C	STORAGE IS WASTED IN BRINGING THE BLOCK INTO AN INTERMIDATE
C	BUFFER AND THEN TRANSFERRRING IT TO THE FORTRAN ARRAY.
C
	INTEGER*2 FDB(64)
	INTEGER*2 LUN,HOC
	INTEGER*2 BUF(256)
C	INITIALIZE THE FILE DESCRIPTOR BLOCK (FDB)
	CALL INIT(FDB)
C	SET UP THE HOW OPEN CODE (HOC)
C	RANDOM ACCESS BLOCK I/O
C	CREATE A NEW VERSION OF THE FILE EVERY TIME THE PROGRAM IS RUN
C	ACCESS THE FILE FOR WRITE
C	ACCESS THE FILE FOR EXTEND
	HOC="416
C	USE LOGICAL UNIT NUMBER 1
	LUN=1
C	ALLOCATE THE ENTIRE FILE CONTIGOUS
	FDB(15)=400
C	OPEN THE FILE
	CALL OPEN(FDB,HOC,LUN,'SY:','[30,30]','TEST.LST',IER)
	DO 1000 I=1,400
	DO 1100 J=1,256
1100	BUF(J)=I
C	WRITE A BLOCK OF DATA TO THE FILE
	CALL DABWT(FDB,BUF,512,I,,IER)
1000	CONTINUE
C	CLOSE THE FILE
	CALL CLOS(FDB)
	CALL EXIT
	END