home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / DIVERSEN / TIPI2A / HELPMISC.TPI < prev    next >
Text File  |  1994-09-24  |  5KB  |  259 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. |   ║ M I S C E L L A N E O U S    I N S T R U C T I O N S ║
  26. |   ╠══════════════╦═══════════════╦═══════════════════════╣
  27. |   ║              ║               ║                       ║
  28. |   ║ [A] BIT?     ║ [G] NOT       ║ [M] TRUE              ║
  29. |   ║              ║               ║                       ║
  30. |   ║ [B] BYE      ║ [H] OFF       ║ [N] VERSION           ║
  31. |   ║              ║               ║                       ║
  32. |   ║ [C] ERROR    ║ [I] RANDOM    ║ [#] #                 ║
  33. |   ║              ║               ║                       ║
  34. |   ║ [D] EVAL     ║ [J] RANDOMIZE ║ [(] (                 ║
  35. |   ║              ║               ║                       ║
  36. |   ║ [E] FALSE    ║ [K] TICKS     ║ [)] )                 ║
  37. |   ║              ║               ║                       ║
  38. |   ║ [F] MACHINE? ║ [L] TIMEOUT   ║                       ║
  39. |   ╚══════════════╩═══════════════╩═══════════════════════╝
  40.  "abcdefghijklmn#()" menu dup cls
  41.  case 0 of endof
  42.       1 of
  43. |
  44. |   BIT?
  45. |   
  46. |   Data Stack:       number bit -- flag
  47. |   String Stack:                --
  48. |   
  49. |   Returns true if bit is set in number.
  50. |
  51.         wait
  52.         endof
  53.       2 of
  54. |
  55. |   BYE
  56. |   
  57. |   Data Stack:             n --
  58. |   String Stack:             --
  59. |   
  60. |   Exits a TIPI program and returns to DOS. BYE
  61. |   returns the top value from the data stack as an
  62. |   error level to DOS.
  63. |
  64.         wait
  65.         endof
  66.       3 of
  67. |
  68. |   ERROR
  69. |   
  70. |   Data Stack:                -- n
  71. |   String Stack:              --
  72. |   
  73. |   Places the number of the current error on the
  74. |   data stack.
  75. |
  76.         wait
  77.         endof
  78.       4 of
  79. |
  80. |   EVAL
  81. |   
  82. |   Data Stack:                -- ?
  83. |   String Stack:           I$ -- ?
  84. |   
  85. |   Evaluates the instruction I$ from the string
  86. |   stack.
  87. |
  88.         wait
  89.         endof
  90.       5 of
  91. |
  92. |   FALSE
  93. |   
  94. |   Data Stack:                 -- 0
  95. |   String Stack:               --
  96. |   
  97. |   Places the value of FALSE (0) on the top of the
  98. |   data stack.
  99. |
  100.         wait
  101.         endof
  102.       6 of
  103. |
  104. |   MACHINE?
  105. |   
  106. |   Data Stack:                  -- n
  107. |   String Stack:                --
  108. |   
  109. |   Returns a number identifying the computer TIPI
  110. |   is running on according to the following table.
  111. |
  112. |   0 = PC
  113. |   1 = HP95LX
  114. |   2 = HP100LX
  115. |
  116.         wait
  117.         endof
  118.       7 of
  119. |
  120. |   NOT
  121. |   
  122. |   Data Stack:            n -- m
  123. |   String Stack:            --
  124. |   
  125. |   Negates the truth value of a flag. If n is
  126. |   non-zero, m is zero. If n is zero, m is one. 
  127. |
  128.         wait
  129.         endof
  130.       8 of
  131. |
  132. |   OFF
  133. |   
  134. |   Data Stack:              --
  135. |   String Stack:            --
  136. |   
  137. |   Shuts off an HP palmtop computer.
  138. |   OFF has no effect on a PC.
  139. |
  140.         wait
  141.         endof
  142.       9 of
  143. |
  144. |   RANDOM
  145. |   
  146. |   Data Stack:             N -- R
  147. |   String Stack:             --
  148. |   
  149. |   Replaces N on the data stack with R, a random
  150. |   integer selected from the range 1 to N
  151. |   (inclusive). 
  152. |
  153.         wait
  154.         endof
  155.      10 of
  156. |
  157. |   RANDOMIZE
  158. |   
  159. |   Data Stack:               --
  160. |   String Stack:             --
  161. |   
  162. |   Initializes the random number generator.
  163. |
  164.         wait
  165.         endof
  166.      11 of
  167. |
  168. |   TICKS
  169. |   
  170. |   Data Stack:               -- t
  171. |   String Stack:             --
  172. |   
  173. |   Places the current PC tick count on the data
  174. |   stack. A PC ticks 18.2 times per second.
  175. |
  176.         wait
  177.         endof
  178.      12 of
  179. |
  180. |   TIMEOUT
  181. |   
  182. |   Data Stack:             T --
  183. |   String Stack:             --
  184. |   
  185. |   Controls the auto-timeout feature of the HP
  186. |   palmtops. If T=0, auto-timeout is disabled. If
  187. |   T is in the range 1 to 65535, the timout is set
  188. |   to that many ticks (a tick=55 msecs).
  189. |
  190. |   Notes:
  191. |   1) The power-up default value for T is 3276
  192. |      (3 minutes).
  193. |   2) If the main batteries are low, the maximum
  194. |      timeout value will be one minute. 
  195. |
  196.         wait
  197.         endof
  198.      13 of
  199. |
  200. |   TRUE
  201. |   
  202. |   Data Stack:             -- 1
  203. |   String Stack:           --
  204. |   
  205. |   Places the constant 1 on the top of the data
  206. |   stack.
  207. |
  208.         wait
  209.         endof
  210.      14 of
  211. |
  212. |   VERSION
  213. |   
  214. |   Data Stack:              -- N
  215. |   String Stack:            --
  216. |   
  217. |   VERSION leaves an integer N on the data stack.
  218. |   N is equal to the version number times ten (ie
  219. |   if N is 23 then the TIPI version number is 2.3).
  220. |
  221.         wait
  222.         endof
  223.      15 of
  224. |
  225. |     #
  226. |   
  227. |   Data Stack:              --
  228. |   String Stack:            --
  229. |   
  230. |   Identifies a comment. Anything after the # on a
  231. |   line is ignored.
  232. |
  233.         wait
  234.         endof
  235.      16 of
  236. |
  237. |     (
  238. |   
  239. |   Data Stack:              --
  240. |   String Stack:            --
  241. |   
  242. |   Begins a comment.
  243. |
  244.         wait
  245.         endof
  246.      17 of
  247. |
  248. |     )
  249. |   
  250. |   Data Stack:              --
  251. |   String Stack:            --
  252. |   
  253. |   Ends a comment.
  254. |
  255.         wait
  256.         endof
  257.   endcase
  258.  not until
  259.