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

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.