gforth/vt100.fs - diff

Return to vt100.fs CVS log

Up to [gforth] / gforth

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