version 1.3, 1999/02/03 00:10:22
|
version 1.4, 1999/03/23 20:24:20
|
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 ( -- ) \ gforth |