diff options
Diffstat (limited to 'share/examples/bootforth/screen.4th')
| -rw-r--r-- | share/examples/bootforth/screen.4th | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/share/examples/bootforth/screen.4th b/share/examples/bootforth/screen.4th deleted file mode 100644 index 4b0a01e7c982..000000000000 --- a/share/examples/bootforth/screen.4th +++ /dev/null @@ -1,36 +0,0 @@ -\ Screen manipulation related words. -\ $Id$ - -marker task-screen.4th - -: escc ( -- ) \ emit Esc-[ - 91 27 emit emit -; - -: ho ( -- ) \ Home cursor - escc 72 emit \ Esc-[H -; - -: cld ( -- ) \ Clear from current position to end of display - escc 74 emit \ Esc-[J -; - -: clear ( -- ) \ clear screen - ho cld -; - -: at-xy ( x y -- ) \ move cursor to x rows, y cols (1-based coords) - escc .# 59 emit .# 72 emit \ Esc-[%d;%dH -; - -: fg ( x -- ) \ Set foreground color - escc 3 .# .# 109 emit \ Esc-[3%dm -; - -: bg ( x -- ) \ Set background color - escc 4 .# .# 109 emit \ Esc-[4%dm -; - -: me ( -- ) \ Mode end (clear attributes) - escc 109 emit -; |
