TriOS-alt/forth/key.lib

18 lines
419 B
Plaintext

hex
ifnot: lib:key
: lib:key ;
\ kommandoformate
ifnot: bel:fkt!b@ \ ( fkt -- b )
: bel:fkt!b@ b[ 0 [b!] [b!] [b@] ]b ;
\ keyboard-funktionen
ifnot: key:stat \ ( -- stat ) - tastenstatus abfragen
: key:stat 1 bel:fkt!b@ ;
ifnot: key:code \ ( -- code ) - tastencode abfragen
: key:code 2 bel:fkt!b@ ;
ifnot: key:spec \ ( -- spec ) - spezialtasten abfragen
: key:spec 4 bel:fkt!b@ ;