IDENTIFICATION DIVISION.
PROGRAM-ID. LIFE.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
01 LOVE PIC 9(04) VALUE 0.
01 MANY PIC 9(02) VALUE 0.
*
PROCEDURE DIVISION.
PERFORM UNTIL LOVE = ∞
ADD 1 TO LOVE MANY
IF MANY = 10
THEN DISPLAY LOVE
MOVE ZERO TO MANY
ELSE CONTINUE
END-IF
END-PERFORM
DISPLAY LOVE
STOP RUN.