home *** CD-ROM | disk | FTP | other *** search
- COPYRIGHT (C) 1989, STEVE STAMM TPC Technologies
- ALL RIGHTS RESERVED - FOR INFO CALL (615) 984-9029
-
- DISCLAIMER
- ----------
- I have done everything that I know of to make all TPC utilities safe and
- friendly. However, I make no warranty of any kind. If you use this product
- you do so at your own risk. I will not be held responsible for any loss or
- damage resulting from its use. By using this product you are agreeing to
- these terms.
-
- PURPOSE
- -------
- The purpose for TPCMENU is to allow the programmer to easily create
- Lightbar Menus. This version contains code to allow for the use of a
- mouse. The mouse is automatically activated if the mouse driver is
- available.
-
-
- SYNTAX
- ------
- LOAD TPCMENU
- MEMVAR = CHR(CHOICE) + CHR(VERT_SPACE+1) + CHR(ROW+1)+;
- CHR(COLLUM+1) + CHR(ROWS) + CHR(COLLUMS)+;
- CHR(TOTAL) + CHR(HORZ_SPACE) + CHR(LB_WIDTH)+;
- CHR(BACKGR) + CHR(BAR_COLOR) + OTHER_KEY + ;
- SPACE(LB_WIDTH)
-
- CALL TPCMENU WITH MEMVAR
-
- PARAMETERS: 1 - CHOICE && First CHOICE to be highlighted
- 2 - VERTICAL SPACE && Number of lines between rows
- 3 - STARTING ROW && Topmost ROW of the menu
- 4 - STARTING COLLUMN && Leftmost collum of the menu
- 5 - TOTAL ROWS && Total number of rows
- 6 - TOTAL COLLUMNS && Total number of columns
- 7 - TOTAL NUMBER OF CHOICES && Total number of menu choices
- 8 - HORIZONTAL SPACE && Number of columns between bars
- 9 - LIGHTBAR WIDTH && Width of the litebar
- 10 - BACKGROUND COLOR && Numeric value for the screen color
- 11 - LIGHTBAR COLOR && Numeric value for the bar color
- 12 - OTHER_KEY && List of return keys (bounded by
- && asterisks)
- && Ex: other_key = "*"+chr(59)+"*"
-
- COLORS
- ------
-
- -------------------------------------------------------------------
- | | Background |
- -------------------------------------------------------------------
- | Foreground | Black Blue Green Cyan Red Magenta Brown Grey |
- -------------------------------------------------------------------
- | Black | 0 16 32 48 64 80 96 112 |
- | Blue | 1 17 33 49 65 81 97 113 |
- | Green | 2 18 34 50 66 82 98 114 |
- | Cyan | 3 19 35 51 67 83 99 115 |
- | Red | 4 20 36 52 68 84 100 116 |
- | Magenta | 5 21 37 53 69 85 101 117 |
- | Brown | 6 22 38 54 70 86 102 118 |
- | Grey | 7 23 39 55 71 87 103 119 |
- | Br Black | 8 24 40 56 72 88 104 120 |
- | Br Blue | 9 25 41 57 73 89 105 121 |
- | Br Green | 10 26 42 58 74 90 106 122 |
- | Br Cyan | 11 27 43 59 75 91 107 123 |
- | Br Red | 12 28 44 60 76 92 108 124 |
- | Br Magenta | 13 29 45 61 77 93 109 125 |
- | Br Brown | 14 30 46 62 78 94 110 126 |
- | Br Grey | 15 31 47 63 79 95 111 127 |
- -------------------------------------------------------------------
-
- If you have turned "Blink" off using TPCBlInt.BIN then you can use
- the following combinations. If you have not set "Blink" off, then
- using these combinations will result in Blinking or flashing colors.
- -------------------------------------------------------------------
- | | Background |
- -------------------------------------------------------------------
- | | Br Br Br Br Br Br Br Br |
- | Foreground | Black Blue Green Cyan Red Magenta Brown Grey |
- -------------------------------------------------------------------
- | Black | 128 144 160 176 192 208 224 240 |
- | Blue | 129 145 161 177 193 209 225 241 |
- | Green | 130 146 162 178 194 210 226 242 |
- | Cyan | 131 147 163 179 195 211 227 243 |
- | Red | 132 148 164 180 196 212 228 244 |
- | Magenta | 133 149 165 181 197 213 229 245 |
- | Brown | 134 150 166 182 198 214 230 246 |
- | Grey | 135 151 167 183 199 215 231 247 |
- | Br Black | 136 152 168 184 200 216 232 248 |
- | Br Blue | 137 153 169 185 201 217 233 249 |
- | Br Green | 138 154 170 186 202 218 234 250 |
- | Br Cyan | 139 155 171 187 203 219 235 251 |
- | Br Red | 140 156 172 188 204 220 236 252 |
- | Br Magenta | 141 157 173 189 205 221 237 253 |
- | Br Brown | 142 158 174 190 206 222 238 254 |
- | Br Grey | 143 159 175 191 207 223 239 255 |
- -------------------------------------------------------------------
-
- NOTE
- ----
- TPCMENU RETURNS VALUES AS FOLLOWS:
- * --- CHOICE = OPTION SELECTED
- CHOICE= ASC(SUBSTR(MEMNAR,1,1))
- * --- kEY PRESSED TO RETURN
- KEY = ASC(SUBSTR(MEMVAR,2,1))
- * --- WHAT WAS UNDER THE BAR
- UNDER = RTRIM(SUBSTR(MEMVAR,3,LB_WIDTH))7
- * --- W A R N I N G !!! -----------------
- * Be SURE that your memvar is long enough to accept the return
- * params TPCMENU returns what was under the lightbar and will
- * corrupt other memvars if the return var is not long enough.
-
- Because of the long parameter list and having to parse out the returned
- string the program LBAR.PRG has been included. See the demonstration
- program for examples of its use.
-
- REGISTRATION
- ------------
- This utility is marketed using the SHAREWARE marketing concept.
- The idea is simple. If you use it pay for it.
-
- The fee for registering TPCMENU.BIN is $25
- For registration of all TPC utilities the fee is $50
-
- For a list of all the TPC utilities send a Self Addressed Stamped
- Envelope.
-
- Send all enquiries and registration fees to:
-
- Steve Stamm
- TPC Technologies
- P.O. 9634
- Knoxville, Tenn. 37940
-
- Thanks for your support!
-
- Steve Stamm
-