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