ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT STANDARD-IN ASSIGN TO KEYBOARD.
DATA DIVISION.
FILE SECTION.
FD STANDARD-IN.
01 LINE-INPUT PIC X(256).
WORKING-STORAGE SECTION.
01 ERROR-MESSAGE PIC X VALUE '?'.
01 FILE-CONTROL-SWITCH PIC X VALUE 'N'.
88 EOF VALUE 'Y'.
PROCEDURE DIVISION.
OPEN INPUT STANDARD-IN.
PERFORM UNTIL EOF
READ STANDARD-IN
AT END SET EOF TO TRUE
NOT AT END PERFORM PROCESS-COMMAND
END-READ
END-PERFORM.
PROCESS-COMMAND.
IF LINE-INPUT = 'q' THEN
STOP RUN
ELSE
DISPLAY ERROR-MESSAGE
END-IF.