/* xkeys.p */

def var mykey as integer no-undo.

repeat:
    readkey.
    mykey = lastkey.
    if mykey = keycode(" ") then leave.
    readkey pause 0.
    
    display
        kblabel(keylabel(mykey)) format "x(16)"         label "KBLABEL"
        keylabel(mykey)          format "x(16)"         label "KEYLABEL"
        keyfunction(mykey)       format "x(16)"         label "KEYFUNCTION"
        mykey                    format "zzz,zz9"       label "LASTKEY"
        keycode(keylabel(mykey)) format "zzz,zz9"       label "KEYCODE"
        lastkey when lastkey <> - 1 format "zzz,zz9"    label "2nd CODE"
        with title " XKEYS - PRESS SPACEBAR TO EXIT ".
end.

/* end of module */