Lisaac prototype interface

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 <-