* corpus charka — nivel 5: nombres de condición (nivel 88)
IDENTIFICATION DIVISION.
PROGRAM-ID. SEMAFORO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-LUZ      PIC X(5) VALUE 'ROJO'.
   88 ES-PARE  VALUE 'ROJO'.
   88 ES-SIGA  VALUE 'VERDE'.
01 WS-CODIGO   PIC 9(1) VALUE 0.
   88 ES-EXITO VALUE 0.
PROCEDURE DIVISION.
MAIN.
    IF ES-PARE
        DISPLAY 'LUZ ROJA: DETENERSE'
    END-IF.
    IF ES-EXITO
        DISPLAY 'CODIGO OK'
    END-IF.
    MOVE 'VERDE' TO WS-LUZ.
    MOVE 9 TO WS-CODIGO.
    IF ES-SIGA
        DISPLAY 'LUZ VERDE: AVANZAR'
    END-IF.
    IF ES-EXITO
        DISPLAY 'CODIGO OK'
    ELSE
        DISPLAY 'CODIGO DE ERROR'
    END-IF.
    STOP RUN.
