C Illustrates skipping around in format statements

      PROGRAM FMT3
      
      IMPLICIT NONE
      INTEGER MONTH, DAY, YEAR

      PRINT *, 'Please enter a date as mm.dd.yy'

      READ (UNIT=*, FMT=100) MONTH, DAY, YEAR
      WRITE (UNIT=*, FMT=200) DAY
      WRITE (UNIT=*, FMT=300) MONTH
      WRITE (UNIT=*, FMT=400) YEAR


 100  FORMAT (I2, TR1, I2, TR1, I2)
 200  FORMAT ('The day is ', I2)
 300  FORMAT ('The month is ', I2)
 400  FORMAT ('The year is ', I2)

      STOP
      END