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