C Collection of code snippets by Arne Vajhøj 
C (from articles on eksperten.dk / vajhoej.dk written sometime between 2004 and now) 
      PROGRAM DIRCRE
      INTEGER*4 I
      CHARACTER*80 BUF
      OPEN(UNIT=1,FILE='db.dat',STATUS='NEW',
     +     FORM='UNFORMATTED',ACCESS='DIRECT',RECL=80)
      DO 100 I=1,100
        WRITE(BUF,1000) I
        WRITE(UNIT=1,REC=I) BUF
100   CONTINUE
      CLOSE(UNIT=1)
1000  FORMAT('Dette er record ',I3)
      END