C
C  THIS EXAMPLE OF DIRECT ACCESS, UNFORMATTED I/O WRITES THE DIGITS 1 THRU
C  10 INTO A FILE 'LIST' ON DRIVE 1.  IT THEN READS TWO DIFFERENT SECTIONS 
C  OF THAT FILE (DIGITS 5 THROUGH 10 AND DIGITS 3 THROUGH 7) AND PRINTS 
C  THEM OUT TO THE CONSOLE.
C 

      PROGRAM PROG1A
      OPEN (1,FILE=':F1:LIST',ACCESS='DIRECT',RECL=2)

      DO 120 I=1,10
      WRITE (1,REC=I) I
120   CONTINUE

      DO 140 K=5,10
      READ (1,REC=K) I
C
C  SEQUENTIAL, FORMATTED I/O TO THE CONSOLE.
C
      WRITE (6,130) I
130   FORMAT (I2)
140   CONTINUE

      DO 160 J=3,7
      READ (1,REC=J) I
C
C  SEQUENTIAL, FORMATTED I/O TO THE CONSOLE.
C
      WRITE (6,150) I
150   FORMAT (I2)
160   CONTINUE

      END