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

      INTEGER ISUM

      ISUM=0

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

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

      STOP
      END



