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

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

*> = is equality operator
*> or is logical operator

IDENTIFICATION DIVISION.
PROGRAM-ID. Likecobol.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 character_from_keyboard    PIC  X.

PROCEDURE DIVISION.
DISPLAY "Do you like the COBOL programming language?"
DISPLAY "Please, answer Y or N."

ACCEPT character_from_keyboard

DISPLAY "You typed in " character_from_keyboard

IF character_from_keyboard = "Y" or character_from_keyboard = "y"
    DISPLAY "That is nice to hear."
ELSE
    IF character_from_keyboard = "N" or character_from_keyboard = "n"
        DISPLAY "That is not so nice to hear."
        DISPLAY "I hope you change your mind soon."
    ELSE
        DISPLAY "I do not understand " character_from_keyboard
    END-IF
END-IF

DISPLAY "End of program.".
STOP RUN.