C23456789012345678901234567890123456789012345678901234567890123
      PROGRAM READING
      INTEGER A(10)
      REAL    L(10)
  5   WRITE (*,*) ' Read in exactly 10 numbers. To exit from loop, ctrl d'
      READ (*,*, END=10) (A(J), J=1,10)
      WRITE (*,100) (A(J), J = 1,10)
  100 FORMAT (10(I3,1X))
      GOTO 5
  10  WRITE (*,*) ' Data entry terminated with ctrl d'
  30  WRITE (*,*) ' Fixed format (I3) entry.<CR> when no more numbers.'
        write (*,*) ' |  |  |  |  |  |  |  |  |  |'
        READ (*,110,END=40,ERR=40) (A(J), J = 1,10)
  110   FORMAT (10(I3))
        WRITE (*,100) (A(J), J = 1,10)
        IF (A(1) .EQ. 0) THEN
        GOTO 50
        ENDIF
        GOTO 30
  40  WRITE (*,*) ' Wrong sort of data '
 50   WRITE (*,*) ' Format (F4.1) entry.<CR> when no more numbers.'
        write (*,*) '  |   |   |   |   |   |   |   |   |   |'
        READ (*,120,END=60,ERR=50) (L(J), J = 1,10)
  120   FORMAT (10(F4.1))
        WRITE (*,130) (L(J), J = 1,10)
  130   FORMAT (10(F4.1,1X))
        IF (L(1) .EQ. 0) THEN
        CALL EXIT
        ENDIF
        GOTO 50
   60    CALL EXIT
      END