1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
\ ansi.4th
\
\ ANSI Terminal words for kForth
\
\ Copyright (c) 1999--2000 Krishna Myneni
\ Creative Consulting for Research and Education
\
\ This software is provided under the terms of the GNU
\ General Public License.
\
\ ====> Requires that the file strings.4th be included first
\
\ Revisions:
\ 06-10-1999
\ 10-11-1999 force cursor to 0 0 on page; define at-xy KM
\ 01-23-2000 replaced char with [char] for ANS Forth compatibility KM
\ Colors
0 constant BLACK
1 constant RED
2 constant GREEN
3 constant YELLOW
4 constant BLUE
5 constant MAGENTA
6 constant CYAN
7 constant WHITE
variable orig_base
: save_base ( -- | store current base and set to decimal )
base @ orig_base !
decimal ;
: restore_base ( -- | restore original base )
orig_base @ base ! ;
save_base
: ansi_escape ( -- | output escape code )
27 emit [char] [ emit ;
: clrtoeol ( -- | clear to end of line )
ansi_escape [char] K emit ;
: gotoxy ( x y -- | position cursor at col x row y )
save_base
ansi_escape s>string count type [char] ; emit
s>string count type [char] H emit
restore_base ;
: at-xy ( x y -- | same as gotoxy for ANS compatibility )
save_base
ansi_escape s>string count type [char] ; emit
s>string count type [char] H emit
restore_base ;
: page ( -- | clear the screen and put cursor at top left )
ansi_escape [char] 2 emit [char] J emit 0 0 at-xy ;
: cur_up ( n -- | move cursor up by n lines )
save_base
ansi_escape s>string count type [char] A emit
restore_base ;
: cur_down ( n -- | move cursor down by n lines )
save_base
ansi_escape s>string count type [char] B emit
restore_base ;
: cur_left ( n -- | move cursor left by n columns )
save_base
ansi_escape s>string count type [char] D emit
restore_base ;
: cur_right ( n -- | move cursor right by n columns )
save_base
ansi_escape s>string count type [char] C emit
restore_base ;
: save_cursor ( -- | save current cursor position )
ansi_escape [char] s emit ;
: restore_cursor ( -- | restore cursor to previously saved position )
ansi_escape [char] u emit ;
: foreground ( n -- | set foreground color to n )
save_base
ansi_escape 30 + s>string count type [char] m emit
restore_base ;
: background ( n -- | set background color to n )
save_base
ansi_escape 40 + s>string count type [char] m emit
restore_base ;
: text_normal ( -- | set normal text display )
ansi_escape [char] 0 emit [char] m emit ;
: text_bold ( -- | set bold text )
ansi_escape [char] 1 emit [char] m emit ;
: text_underline ( -- | set underlined text )
save_base
ansi_escape [char] 4 emit [char] m emit
restore_base ;
: text_blink ( -- | set blinking text )
save_base
ansi_escape [char] 5 emit [char] m emit
restore_base ;
: text_reverse ( -- | set reverse video text )
save_base
ansi_escape [char] 7 emit [char] m emit
restore_base ;
restore_base
|
