IDENTIFICATION DIVISION.
PROGRAM-ID. EXO-ACCEPT-18.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-REPONSE    PIC X VALUE SPACE.

PROCEDURE DIVISION.
    DISPLAY "Voulez-vous continuer ? (O/N) : "
    ACCEPT WS-REPONSE

    IF WS-REPONSE = "O"
		DISPLAY "Vous avez repondu O : on continue."
    ELSE
		DISPLAY "Vous avez repondu autre chose : on s'arrete."
    END-IF

    STOP RUN.