OPEN(3,FILE='FDIR',FORM='FORMATTED',ACCESS='DIRECT',RECL=10)
WRITE(3,'(A10)',REC=1) 'RECORD ONE'
WRITE(3,'(I5)',REC=3) 30303
CLOSE(3)
END