OPEN(3,FILE='UDIR',RECL=10,FORM='UNFORMATTED',ACCESS='DIRECT') WRITE(3,REC=3) .TRUE., 'abcdef' WRITE(3,REC=1) 2049 CLOSE(3) END