;Auto: Hroudtwolf

EnableExplicit

Procedure.s GetKeyboardName()
  Protected KeybName.s
  Protected ret.l
  
  KeybName.s="?"   
  ret.l=GetKeyboardType_(0)
  Select ret.l
    Case 1
      KeybName.s="IBM PC/XT Or compatible (83-key) keyboard"
    Case 2
      KeybName.s="Olivetti 'ICO' (102-key) keyboard"
    Case 3
      KeybName.s="IBM PC/AT (84-key) or similar keyboard"
    Case 4
      KeybName.s="IBM enhanced (101- or 102-key) keyboard"   
    Case 5
      KeybName.s="Nokia 1050 and similar keyboards"   
    Case 6
      KeybName.s="Nokia 9140 and similar keyboards"   
    Case 7
      KeybName.s="Japanese keyboard"   
  EndSelect
  ProcedureReturn KeybName.s
EndProcedure

MessageRequester("","Tastatur-Name: "+GetKeyboardName(),0)