SHARE
TWEET

KerbalCOBOL.cbl

a guest Apr 11th, 2019 96 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.       ******************************************************************
  2.       * Author:  RYAN BURNSIDE
  3.       * Date:    04/11/2019
  4.       * Purpose: KERBAL SPACE SIMULATION
  5.       ******************************************************************
  6.        
  7.        IDENTIFICATION DIVISION.
  8.        PROGRAM-ID. LOOPING-COUNTER.
  9.        DATA DIVISION.
  10.        
  11.        FILE SECTION.
  12.        WORKING-STORAGE SECTION.
  13.          01 WS-COUNTER PIC 9(5) VALUE 10.
  14.        PROCEDURE DIVISION.
  15.        
  16.        COUNTDOWN.
  17.            DISPLAY WS-COUNTER.
  18.            SUBTRACT 1 FROM WS-COUNTER.
  19.        
  20.        MAIN-PROCEDURE.
  21.            PERFORM COUNTDOWN WS-COUNTER TIMES.
  22.            DISPLAY "BRASTOFFU!".
  23.            DISPLAY "CONTRATURATION MUN REACHED.".
  24.            MOVE 10 TO WS-COUNTER.
  25.            PERFORM COUNTDOWN WS-COUNTER TIMES.
  26.            DISPLAY "BRASTOFFU!".
  27.            DISPLAY "CONGRATURATION NIPPON REACHED.".
  28.            STOP RUN.
  29.        END PROGRAM LOOPING-COUNTER.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top