XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Tastatur: F10-Taste abfragen
Declare Taste&,Ende%
Window 0,0-640,200
Print Hallo Meister
def @GetState(1) !User32,GetKeyState

While @equ(Ende%,0)

    Let Taste&=@GetState($79)
    drawtext 100,10,@add$(@str$(TASTE&),          )

    If @and(@neq(Taste&,0),@neq(Taste&,1))

        @messagebox(Taste F10 wurde gedückt,Message,0)

    endif

wend

end