Name

pfe-facility-ext ? Facility + extensions

Synopsis

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";
?

Description

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