C------------------------------------
C     SUM up to 100 from 1
C------------------------------------

      INTEGER ISUM

      OPEN(Unit=11,File='SUM_OUT.TXT', Status='NEW')

      ISUM=0

      DO I=1,100
        ISUM=ISUM + I
        WRITE (11,200) I, ISUM
      ENDDO

 200  FORMAT ('I = ', I5, 5X, 'SUM =', I7)

      CLOSE(Unit=11)

      STOP
      END



