1 \ Screen manipulation related words.
2 \ $FreeBSD: src/share/examples/bootforth/screen.4th,v 1.2 1999/08/28 00:19:10 peter Exp $
3 \ $DragonFly: src/share/examples/bootforth/screen.4th,v 1.2 2003/06/17 04:36:57 dillon Exp $
7 : escc ( -- ) \ emit Esc-[
11 : ho ( -- ) \ Home cursor
15 : cld ( -- ) \ Clear from current position to end of display
19 : clear ( -- ) \ clear screen
23 : at-xy ( x y -- ) \ move cursor to x rows, y cols (1-based coords)
24 escc .# 59 emit .# 72 emit \ Esc-[%d;%dH
27 : fg ( x -- ) \ Set foreground color
28 escc 3 .# .# 109 emit \ Esc-[3%dm
31 : bg ( x -- ) \ Set background color
32 escc 4 .# .# 109 emit \ Esc-[4%dm
35 : me ( -- ) \ Mode end (clear attributes)