000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    calc1.
000003 AUTHOR.        Michael Bieber.
000004
000005 ENVIRONMENT DIVISION.
000006* Since there are no files, this division is empty.
000007
000008 DATA DIVISION.
000009
000010 WORKING-STORAGE SECTION.
000011 01  start-constant     PIC 9 VALUE 1.
000012 01  end-constant       PIC 9 VALUE 5.
000013 01  increment-constant PIC 9 VALUE 1.
000014 01  result-calc        PIC 9.
000015
000016 PROCEDURE DIVISION.
000017
000018 100-main.
000019     PERFORM 200-initialize.
000020     PERFORM 300-addition
000021		UNTIL result-calc = end-constant.
000022	    DISPLAY "The result is: ".
000023	    DISPLAY result-calc.
000024     STOP RUN.  
000025
000026 200-initialize. 
000027     MOVE start-constant TO result-calc.
000028
000029 300-addition.
000030     ADD increment-constant TO result-calc.