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

C A recoding of the previous NOLOOP example


      PROGRAM NOLOOP
      IMPLICIT NONE
      REAL X, SUM

      SUM = 0

      PRINT *, 'Please enter a number: '
      READ *, X
      SUM = SUM + X

      PRINT *, 'Please enter a number: '
      READ *, X
      SUM = SUM + X

      PRINT *, 'Please enter a number: '
      READ *, X
      SUM = SUM + X

      PRINT *, 'Please enter a number: '
      READ *, X
      SUM = SUM + X

      PRINT *, 'Please enter a number: '
      READ *, X
      SUM = SUM + X

      PRINT *, 'Please enter a number: '
      READ *, X
      SUM = SUM + X

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

      STOP
      END