; German forum: http://www.purebasic.fr/german/viewtopic.php?t=2429&highlight=
; Author: MVXA (updated for PB 4.00 by Andre)
; Date: 12. March 2005
; OS: Windows, Linux
; Demo: Yes


; Problem: Roh-Code wird nicht angezeigt....

If OpenConsole()
  PrintN("Druecken Sie Escape zum Beenden.")

  Repeat
    key_pressed$ = Inkey()

    If key_pressed$<>""
      If Asc(key_pressed$)>=32 And Asc(key_pressed$)<128
        PrintN("Sie drueckten: "+Left(key_pressed$, 1))
        PrintN("Diese hat einen Roh-Code von: "+Str(PeekB(@key_pressed$+1) & $FF))
      Else
        ; Entweder ein nicht darstellbarer ASCII-Code oder ein erweitertes Zeichen
        If Asc(key_pressed$)=255 And skip_shift=0
          PrintN("Sie drueckten die erweiterte (erstes Zeichen=255) Taste: "+Str(PeekB(@key_pressed$+1) & $FF))
        ElseIf Asc(key_pressed$)=224
          skip_shift = 1
          PrintN("Sie drueckten eine Cursortaste (erstes Zeichen=224) mit dem Roh-Code: "+Str(PeekB(@key_pressed$+1) & $FF))
        Else
          If skip_shift=1
            skip_shift = 0
          Else
            PrintN("Die von Ihnen grdrueckte Taste hat Roh-Werte von: "+Str(PeekB(@key_pressed$) & $FF)+" und "+Str(PeekB(@key_pressed$+1) & $FF))
          EndIf
        EndIf
      EndIf
    Else
      Delay(1)
    EndIf

  Until Left(key_pressed$, 1) = Chr(27)

  CloseConsole()
EndIf
; IDE Options = PureBasic v4.02 (Windows - x86)
; Folding = -