summaryrefslogtreecommitdiff
path: root/share/examples/bootforth/screen.4th
diff options
context:
space:
mode:
authorcvs2svn <cvs2svn@FreeBSD.org>1999-01-21 00:55:32 +0000
committercvs2svn <cvs2svn@FreeBSD.org>1999-01-21 00:55:32 +0000
commit76b5366091f76c9bc73570149ef5055648fc2c39 (patch)
tree590d020e0f2a5bea6e09d66d951a674443b21d67 /share/examples/bootforth/screen.4th
parent4b4d01da6f07f7754ff6a6e4f5223e9f0984d1a6 (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.4th36
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
-;