Section Header
    + name := INPUT_KEYBOARD;
    - comment :="X11 - Keyboard Driver";
    - version := 1;
    - date :="2003/04";
Section Inherit
    + parent_input:Expanded INPUT;
Section Public
Get Character (Interrupt #21)
    - key key:UINTEGER_8 press p:BOOLEAN <-
Section Public
    - make <-
        Install keyboard.
    - get_event <-
    - get_key:UINTEGER_16 <-
        Use without interface running: text mode
Guru section.
    - acknowledge <-
Key code generate.
0:CTRL 1:AltGr 2:Alt 3:Cmd 4:Shift 5:Cap 6:NumLock 7:Scrolllock
    - key_ctrl :UINTEGER_16 :=
    - key_alt_gr:UINTEGER_16 :=
    - key_alt :UINTEGER_16 :=
    - key_of c:CHARACTER :UINTEGER_16 <-
    - key_to_string k:UINTEGER_16 :STRING <-