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

C A recoding of the previous NOLOOP example


      PROGRAM LOOP
      IMPLICIT NONE
      INTEGER I
      REAL X, SUM

      SUM = 0

      DO I = 1, 6
         PRINT *, 'Please enter a number: '
         READ *, X
         SUM = SUM + X
      ENDDO

      PRINT *, 'The sum of the numbers is ', SUM

      STOP
      END