* sowa.cob :
IDENTIFICATION  DIVISION.
PROGRAM-ID.     sowa.
ENVIRONMENT     DIVISION.
DATA            DIVISION.
WORKING-STORAGE  SECTION.
01 X  PIC 99.
01 TOTAL  PIC 9999.
01 I PIC 999.
01 CC PIC X(1).
PROCEDURE       DIVISION.

START-1.
 DISPLAY SPACE.
 DISPLAY '****  総和(1+2+3+ ... +N)を求める ****' AT 0101.
 DISPLAY '最終項Nを入力（01--99まで）==>' AT 0201.
 ACCEPT X AT 0232.
 MOVE 0 TO TOTAL.
 MOVE 1 TO I.
 PERFORM SOWA-LOOP  UNTIL I > X.
 DISPLAY X 'までの総和 :' TOTAL  AT 0301.
 DISPLAY '終了しますか　(Y/N) ' AT 0501
 ACCEPT CC AT 0522.
 IF CC = 'N' THEN
 GO TO START-1.
   STOP RUN.

SOWA-LOOP.
 COMPUTE TOTAL = TOTAL + I.
 COMPUTE I = I +1.