       IDENTIFICATION DIVISION.\n       PROGRAM-ID. SUMUP.\n       PROCEDURE DIVISION.\n           ACCEPT COUNTER FROM CONSOLE.\n           MOVE 0 TO TOTAL.\n           PERFORM VARYING COUNTER FROM 1 BY 1 UNTIL COUNTER > 5\n               ADD COUNTER TO TOTAL\n           END-PERFORM.\n           DISPLAY TOTAL.\n           STOP RUN.\n