version 1.3, 1999/02/03 00:10:22
|
version 1.5, 1999/12/03 18:24:23
|
Line 25 decimal
|
Line 25 decimal
|
: ESC[ 27 emit [char] [ emit ; |
: ESC[ 27 emit [char] [ emit ; |
|
|
: at-xy ( u1 u2 -- ) \ facility at-x-y |
: at-xy ( u1 u2 -- ) \ facility at-x-y |
\G Position the cursor so that subsequent text output will |
\G Position the cursor so that subsequent text output will take |
\G take place at column u1, row u2 of the display. (column |
\G place at column @var{u1}, row @var{u2} of the display. (column 0, |
\G 0, row 0 is the top left-hand corner of the display). |
\G row 0 is the top left-hand corner of the display). |
1+ swap 1+ swap ESC[ pn ;pn [char] H emit ; |
1+ swap 1+ swap ESC[ pn ;pn [char] H emit ; |
|
|
: page ( -- ) \ gforth |
: page ( -- ) \ facility |
\G Clear the display and set the cursor to the top left-hand |
\G Clear the display and set the cursor to the top left-hand |
\G corner. |
\G corner. |
ESC[ ." 2J" 0 0 at-xy ; |
ESC[ ." 2J" 0 0 at-xy ; |