OPEN(3,FILE='BDIR',RECL=10,FORM='BINARY',ACCESS='DIRECT')
WRITE(3,REC=1) 'abcdefghijklmno'
WRITE(3) 4,5
WRITE(3,REC=4) 'pq'
CLOSE(3)
END
