C$IO	REC - PROGRAM TO ILLUSTRATE RECORD I/O
C.	18-APR-80	P. H. CANNON
C	THIS PROGRAM ILLUSTRATES THE USE OF THE FORTRAN INTERFACE
C	TO THE FILE CONTROL SYSTEM (FCS).
C	IT USES FIXED LENGTH RANDOM ACCESS RECORD I/O.  THE RECORDS
C	ARE BUILT UP IN A BUFFER BEFORE BEING WRITTEN OUT TO THE DISK.
C
	INTEGER*2 FDB(64)
	INTEGER*2 LUN,HOC
	INTEGER*2 BUF(8)
C	INITIALIZE THE FILE DESCRIPTOR BLOCK (FDB)
	CALL INIT(FDB)
C	SET UP THE HOW OPEN CODE (HOC)
C	FIXED LENGTH RANDOM ACCESS RECORD 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="1016
C	SET UP FOR FIXED LENGTH RECORDS
C	AND NO FORTRAN CARRIAGE CONTROL
C	HERE WE ARE FILLING IN THE RECORD TYPE BYTE "F.RTYP"
C	AND THE RECORD ATTRIBUTE BYTE
	FDB(1)=1
C	SET UP THE RECORD LENGTH TO BE 16 BYTES
C	HERE WE SET UP THE RECORD SIZE WORD F.RSIZ
	FDB(2)=16
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,12800
	DO 1100 J=1,8
1100	BUF(J)=I
C	WRITE A BLOCK OF DATA TO THE FILE
	CALL DARWT(FDB,BUF,16,I,,IER)
1000	CONTINUE
C	CLOSE THE FILE
	CALL CLOS(FDB)
	CALL EXIT
	END