C Created: Joe Zachary, January 26, 1993
C Modified: 

C Illustrates the need for DO loops


      PROGRAM NOLOOP
      IMPLICIT NONE
      REAL A, B, C, D, E, F

      PRINT *, 'Please enter a number: '
      READ *, A

      PRINT *, 'Please enter a number: '
      READ *, B

      PRINT *, 'Please enter a number: '
      READ *, C

      PRINT *, 'Please enter a number: '
      READ *, D

      PRINT *, 'Please enter a number: '
      READ *, E

      PRINT *, 'Please enter a number: '
      READ *, F

      PRINT *, 'The sum of the numbers is ', A+B+C+D+E+F

      STOP
      END