XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Tastaturabfrage (2)
declare e%
WindowStyle 48 + 512
WindowTitle Bitte Taste drücken ...
cls

WhileNot e%

    WaitInput
    cls
    locate 0,0
    print %Scankey ist:  + str$(%Scankey)
    print %Key ist  + str$(%Key)
    Case equ(%Key,2) : e%=1 X-Button der Titelleiste

Wend