home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / DIVERSEN / TIPI2A / HELPDBUG.TPI < prev    next >
Text File  |  1994-09-13  |  2KB  |  98 lines
  1. define menu
  2. # ( -- choice)
  3. # ( valid$ -- )
  4. # Returns the chosen key or 0 if the user escapes from this menu
  5.  0 cursor
  6.  ucase$
  7.  27 chr$ swap$ +$
  8.  begin
  9.   inkey$ ucase$ # valid$ key$
  10.   len instr *
  11.   dup
  12.   if dup drop$ endif drop$
  13.  until
  14.  1 -
  15.  1 cursor
  16. enddef
  17.  
  18. define wait
  19.  begin key until cls
  20. enddef
  21.  
  22.  begin cls
  23.  |
  24.  |   ╔══════════════════════════════════════════════╗
  25.  |   ║ D E B U G G I N G    I N S T R U C T I O N S ║
  26.  |   ╠══════════════════════╦═══════════════════════╣
  27.  |   ║                      ║                       ║
  28.  |   ║ [A] TRACECOL         ║ [D] TRACEROW          ║
  29.  |   ║                      ║                       ║
  30.  |   ║ [B] TRACEOFF         ║ [E] TRACEVAR          ║
  31.  |   ║                      ║                       ║
  32.  |   ║ [C] TRACEON          ║                       ║
  33.  |   ╚══════════════════════╩═══════════════════════╝
  34.  "abcde" menu dup cls
  35.  case 0 of endof
  36.       1 of
  37. |
  38. |   TRACECOL
  39. |
  40. |   Data Stack:         col --
  41. |   String Stack:           --
  42. |
  43. |   Sets the column that the trace window will be
  44. |   shown on.
  45. |
  46.         wait
  47.         endof
  48.       2 of
  49. |
  50. |   TRACEOFF
  51. |
  52. |   Data Stack:             --
  53. |   String Stack:           --
  54. |
  55. |   Turns instruction tracing off.
  56. |
  57.         wait
  58.         endof
  59.       3 of
  60. |
  61. |   TRACEON
  62. |
  63. |   Data Stack:             --
  64. |   String Stack:           --
  65. |
  66. |   Turns instruction tracing on. When instruction
  67. |   tracing is on, TIPI displays an informational
  68. |   window showing the stacks, any TRACEVARs and
  69. |   the instructions being executed.
  70. |
  71.         wait
  72.         endof
  73.       4 of
  74. |
  75. |   TRACEROW
  76. |
  77. |   Data Stack:            row --
  78. |   String Stack:              --
  79. |
  80. |   Sets the row that the trace window will be
  81. |   shown on.
  82. |
  83.         wait
  84.         endof
  85.       5 of
  86. |
  87. |   TRACEVAR
  88. |
  89. |   Data Stack:            var --
  90. |   String Stack:              --
  91. |
  92. |   Adds a var to the trace window.
  93. |
  94.         wait
  95.         endof
  96.   endcase
  97.  not until
  98.