mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-22 20:34:07 +00:00
1 line
40 KiB
Plaintext
1 line
40 KiB
Plaintext
|
\\ *** AES -Funktionen *** 26may86we Dieses File enth<74>lt alle AES-Funktionen. Zur genauren Beschreibung verweisen wir auf die Dokumentation von Digital Research. \ AES Loadscreen cas20130105 \needs GEM include gem\basics.fb Onlyforth \needs 2over include double.fb Onlyforth GEM also definitions 1 +load cr .( Eventwords loaded) cr 7 +load cr .( Menuwords loaded) cr $0C +load cr .( Objectwords loaded) cr $10 +load cr .( Formwords loaded) cr $14 +load cr .( Graphicswords loaded) cr $19 +load cr .( Fileselect loaded) cr $1C +load cr .( Windowwords loaded) cr $22 +load cr .( RSRCwords loaded) cr \ Event Loadscreen 01feb86we Onlyforth GEM also definitions 1 5 +thru \ event_keybd event_button 06aug86we : evnt_keybd ( -- key ) &20 0 1 0 AES ; : evnt_button ( #clicks0 bmask bstate -- #clicks1 ) intin 3 array! &21 3 5 0 AES ; \\ #clicks0 is awaitet # of clicks bmask is a button mask bstate is the awaitet state of mouse-button(s) #clicks1 is the actually entered # of clicks bmask + bstate use the convention: lowest bit is leftmost button etc. bit = 0 is button up bit = 1 is button down more return parameters are in intout-array
|