diff options
| author | cvs2svn <cvs2svn@FreeBSD.org> | 1999-01-21 00:55:32 +0000 |
|---|---|---|
| committer | cvs2svn <cvs2svn@FreeBSD.org> | 1999-01-21 00:55:32 +0000 |
| commit | 76b5366091f76c9bc73570149ef5055648fc2c39 (patch) | |
| tree | 590d020e0f2a5bea6e09d66d951a674443b21d67 /share/examples/bootforth/screen.4th | |
| parent | 4b4d01da6f07f7754ff6a6e4f5223e9f0984d1a6 (diff) | |
This commit was manufactured by cvs2svn to create tagrelease/3.0.0
'RELENG_3_0_0_RELEASE'.
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 -; |
