KerbalCOBOL.cbl

      ******************************************************************
      * Author:  RYAN BURNSIDE
      * Date:    04/11/2019
      * Purpose: KERBAL SPACE SIMULATION
      ******************************************************************

       IDENTIFICATION DIVISION.
       PROGRAM-ID. LOOPING-COUNTER.
       DATA DIVISION.

       FILE SECTION.
       WORKING-STORAGE SECTION.
         01 WS-COUNTER PIC 9(5) VALUE 10.
       PROCEDURE DIVISION.

       COUNTDOWN.
           DISPLAY WS-COUNTER.
           SUBTRACT 1 FROM WS-COUNTER.

       MAIN-PROCEDURE.
           PERFORM COUNTDOWN WS-COUNTER TIMES.
           DISPLAY "BRASTOFFU!".
           DISPLAY "CONTRATURATION MUN REACHED.".
           MOVE 10 TO WS-COUNTER.
           PERFORM COUNTDOWN WS-COUNTER TIMES.
           DISPLAY "BRASTOFFU!".
           DISPLAY "CONGRATURATION NIPPON REACHED.".
           STOP RUN.
       END PROGRAM LOOPING-COUNTER.