XProfan

declare rtf&,ende%,a$,befehl$[1000],wort$,wort%,gruen%
Def @GetAsyncKeyState(1) !"User32","GetAsyncKeyState"
windowstyle 11
window 0,0 - %maxx,%maxy
rtf&=Create("RichEdit",%hwnd,"",100,100,300,400)
setfocus(rtf&)
===================================================================

proc befehlelesen

endproc

====================================================================

Proc auswerten

    beep

endif

endproc

=====================================================================
Hauptschleife
befehlelesen
zurücksetzen
@GetAsyncKeyState($10)
@GetAsyncKeyState($32)

whilenot ende%

waitinput

IF @GetAsyncKeyState($10)

    case @GetAsyncKeyState($32)<>0 : auswerten

endif

wend