C Illustrates file I/O

C Created:  Joe Zachary, November 13, 1992
C Modified:

      PROGRAM FILE3

      IMPLICIT NONE
      INTEGER I, NUMBER

      PRINT *, 'Please enter a positive integer less than 20'
      READ *, NUMBER

      DO I = 1, NUMBER
         WRITE (UNIT=6, FMT=200) I
      ENDDO

 200  FORMAT (I2)

      STOP
      END