XProfan

Abfragen der Funktionstasten mit %ScanKey
declare x%,y%,e%
x% = 400
y% = 480
WindowStyle 16
WindowTitle Bitte eine beliebige Taste drücken ... (Beenden mit Esc)
Window (%MaxX - x%) / 2,(%MaxY - y%) / 2 - x%,y%

whilenot e%

    WaitInput
    print %Key:  + str$(%Key)
    print %ScanKey:  + str$(%ScanKey)
    print

    if ScanKey(27)

        e% = 1

    endif

endwhile