ICOUNT = 0
   5  READ (5,222, END = 72) X
      WRITE (6,365) X
      ICOUNT = ICOUNT + 1
  222 FORMAT(I5)
      GOTO 5
  72  WRITE (6, 91) ICOUNT
  91  FORMAT (1X, ' The number of values read is ', I10)
 365  FORMAT (1X,  ' X = ', I15)
      STOP
      END