home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 5
/
ctrom5b.zip
/
ctrom5b
/
PROGRAM
/
DIVERSEN
/
TIPI2A
/
HELPDBUG.TPI
< prev
next >
Wrap
Text File
|
1994-09-13
|
2KB
|
98 lines
define menu
# ( -- choice)
# ( valid$ -- )
# Returns the chosen key or 0 if the user escapes from this menu
0 cursor
ucase$
27 chr$ swap$ +$
begin
inkey$ ucase$ # valid$ key$
len instr *
dup
if dup drop$ endif drop$
until
1 -
1 cursor
enddef
define wait
begin key until cls
enddef
begin cls
|
| ╔══════════════════════════════════════════════╗
| ║ D E B U G G I N G I N S T R U C T I O N S ║
| ╠══════════════════════╦═══════════════════════╣
| ║ ║ ║
| ║ [A] TRACECOL ║ [D] TRACEROW ║
| ║ ║ ║
| ║ [B] TRACEOFF ║ [E] TRACEVAR ║
| ║ ║ ║
| ║ [C] TRACEON ║ ║
| ╚══════════════════════╩═══════════════════════╝
"abcde" menu dup cls
case 0 of endof
1 of
|
| TRACECOL
|
| Data Stack: col --
| String Stack: --
|
| Sets the column that the trace window will be
| shown on.
|
wait
endof
2 of
|
| TRACEOFF
|
| Data Stack: --
| String Stack: --
|
| Turns instruction tracing off.
|
wait
endof
3 of
|
| TRACEON
|
| Data Stack: --
| String Stack: --
|
| Turns instruction tracing on. When instruction
| tracing is on, TIPI displays an informational
| window showing the stacks, any TRACEVARs and
| the instructions being executed.
|
wait
endof
4 of
|
| TRACEROW
|
| Data Stack: row --
| String Stack: --
|
| Sets the row that the trace window will be
| shown on.
|
wait
endof
5 of
|
| TRACEVAR
|
| Data Stack: var --
| String Stack: --
|
| Adds a var to the trace window.
|
wait
endof
endcase
not until