*> 2022-12-22 File created by Kari Laitinen.

*> Tested at: https://www.jdoodle.com/execute-cobol-online/

IDENTIFICATION DIVISION.
PROGRAM-ID. Game.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 given_integer    BINARY-LONG.
01 winning_integer  BINARY-LONG.

PROCEDURE DIVISION.
DISPLAY "This program is a computer game."
DISPLAY "Please, type in an integer."

ACCEPT given_integer
ADD 1 TO given_integer GIVING winning_integer
DISPLAY "   You typed in " given_integer
DISPLAY "   My number is " winning_integer
DISPLAY "Sorry, you lost. I won. The game is over.".
STOP RUN.