gm2-libs-coroutines/KeyBoardLEDs (The GNU Modula-2 Compiler)

#### 4.3.2 gm2-libs-coroutines/KeyBoardLEDs ¶

    DEFINITION MODULE KeyBoardLEDs ;

    EXPORT QUALIFIED SwitchLeds,
                     SwitchScroll, SwitchNum, SwitchCaps ;

    (*
       SwitchLeds - switch the keyboard LEDs to the state defined
                    by the BOOLEAN variables. TRUE = ON.
    *)

    PROCEDURE SwitchLeds (NumLock, CapsLock, ScrollLock: BOOLEAN) ;

    (*
       SwitchScroll - switchs the scroll LED on or off.
    *)

    PROCEDURE SwitchScroll (Scroll: BOOLEAN) ;

    (*
       SwitchNum - switches the Num LED on or off.
    *)

    PROCEDURE SwitchNum (Num: BOOLEAN) ;

    (*
       SwitchCaps - switches the Caps LED on or off.
    *)

    PROCEDURE SwitchCaps (Caps: BOOLEAN) ;

    END KeyBoardLEDs.