pfe-facility-ext ? Facility + extensions
AT-XY ( col# row# -- ) ?=>? ( | ) ; | ? |
"[ANS] FORTH"
;KEY? ( -- key-flag ) ?=>? ( | ) ; | ? |
"[ANS] FORTH"
;PAGE ( -- ) ?=>? ( | ) ; | ? |
"[ANS] FORTH"
;EKEY ( -- key-code# ) ?=>? ( | ) ; | ? |
"[ANS] FORTH"
;EKEY>CHAR ( key-code# -- key-code# 0 | char# true! ) ?=>? ( | ) ; | ? |
"[ANS] FORTH"
;EKEY? ( -- ekey-flag ) ?=>? ( | ) ; | ? |
"[ANS] FORTH"
;EMIT? ( -- emit-flag ) ?=>? ( | ) ; | ? |
"[ANS] FORTH"
;MS ( milliseconds# -- ) ?=>? ( | ) ; | ? |
"[ANS] FORTH"
;TIME&DATE ?=>? ( | ) ; | ? |
"[ANS] FORTH"
;
AT-XY ( col# row# -- ) [ANS] => "[ANS] FORTH"
move the cursor position to the given row and column of the screen. If the output device is not a terminal this will have no effect but can still send an escape sequence.
KEY? ( -- key-flag ) [ANS] => "[ANS] FORTH"
if a character is available from the keyboard, return true.
The KEY
word will retrieve the actual character.
PAGE ( -- ) [ANS] => "[ANS] FORTH"
CLRSCR
EKEY ( -- key-code# ) [ANS] => "[ANS] FORTH"
return a keyboard event, the encoding may differ, esp. that it can contain special keys.
EKEY>CHAR ( key-code# -- key-code# 0 | char# true! ) [ANS] => "[ANS] FORTH"
EKEY? ( -- ekey-flag ) [ANS] => "[ANS] FORTH"
check if a character is available from the keyboard
to be received - unlike KEY
? it will not discard
non-visible codes.
EMIT? ( -- emit-flag ) [ANS] => "[ANS] FORTH"
if EMIT
can safely output characters without
blocking the forth by waiting for an indefinite time.
MS ( milliseconds# -- ) [ANS] => "[ANS] FORTH"
wait at least the specified milliseconds (suspend the forth tasklet)
TIME&DATE - no description, sorry