The Museum of HP Calculators
The Museum of HP Calculators
This program is Copyright © HP and is used here by permission. It was originally printed in the Games Pac. This program was uploaded by Chris Johnson.
This program is supplied without representation or warranty of any kind. Chris Johnson, Hewlett Packard and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.
Documentation Information (CD or source code)
How to get this Program to your Calculator (via
HP-IL, disk, wand, and fingers)
Download Binary (.raw) program for disk or PC HP-IL Card download
Download Hexadecimal (.dat) program for Serial Port download
LINE KEYS 01 LBL "SWAR" 02 14 03 XEQ "SIZE?" 04 FC?C 25 05 PROMPT 06 XEQ "INI" 07 STO 00 08 LBL A 09 SF 21 10 FIX 00 11 CF 29 12 CF 00 13 CF 05 14 CF 06 15 CF 07 16 CF 08 17 SF 27 18 CF 09 19 0 20 STO 05 21 6 22 STO 12 23 5 E2 24 STO 13 25 "GROUPS ?" 26 PROMPT 27 STO 07 28 13.013 29 + 30 STO 08 31 STO 10 32 "ALGLOGS PER?" 33 PROMPT 34 STO 06 35 X<> 07 36 ST* 07 37 RCL 07 38 + 39 14 40 + 41 XEQ "SIZE?" 42 FC?C 25 43 PROMPT 44 RCL 08 45 INT 46 RCL X 47 1 E3 48 / 49 + 50 STO 09 51 LBL 14 52 RCL 09 53 100 54 XEQ "RNDMW" 55 10 56 / 57 GTO 05 58 LBL 13 59 RCL IND Y 60 X=Y? 61 GTO 14 62 RDN 63 LBL 05 64 X=0? 65 GTO 14 66 ISG Y 67 GTO 13 68 STO IND 10 69 DSE 10 70 GTO 14 71 3 72 SF 09 73 XEQ 12 74 RCL 08 75 INT 76 RCL X 77 1 E3 78 / 79 RCL 07 80 + 81 + 82 LBL 12 83 100 84 XEQ "RNDMW" 85 10 86 / 87 STO IND Y 88 RDN 89 DSE X 90 GTO 12 91 FS?C 09 92 RTN 93 GTO B 94 LBL 51 95 "ORDERS" 96 PROMPT 97 GTO 51 98 LBL D 99 SF 21 100 LBL 52 101 RCL 08 102 STO 10 103 LBL 11 104 RCL 01 105 INT 106 LASTX 107 FRC 108 RCL IND 10 109 FS? 07 110 ABS 111 FRC 112 LASTX 113 INT 114 RDN 115 - 116 10 117 * 118 X^2 119 RDN 120 - 121 X^2 122 R^ 123 + 124 SQRT 125 2 126 FS? 08 127 ST/ X 128 FS?C 07 129 RTN 130 X<=Y? 131 GTO 11 132 SF 06 133 FS?C 08 134 RTN 135 "ENEMY QD " 136 RCL IND 10 137 10 138 * 139 ARCL X 140 AVIEW 141 LBL 11 142 DSE 10 143 GTO 11 144 FS?C 08 145 RTN 146 RCL 03 147 X<0? 148 GTO 05 149 14 150 STO 10 151 SF 07 152 XEQ 11 153 X<=Y? 154 GTO 05 155 SF 06 156 "BASE QD " 157 RCL 14 158 10 159 * 160 ABS 161 ARCL X 162 AVIEW 163 FS? 00 164 GTO 50 165 LBL 05 166 "CLEAR" 167 FC?C 06 168 AVIEW 169 GTO 51 170 LBL I 171 SF 21 172 FS? 00 173 SF 09 174 SF 08 175 XEQ 52 176 FC?C 06 177 GTO 05 178 RCL 08 179 INT 180 1 181 + 182 RCL 10 183 INT 184 STO 04 185 14 186 - 187 RCL 06 188 * 189 + 190 RCL X 191 RCL 06 192 1 193 - 194 + 195 1 E3 196 / 197 + 198 STO 09 199 STO 11 200 LBL 10 201 RCL IND 11 202 X<0? 203 GTO 10 204 "CONTACT MADE" 205 FC? 00 206 AVIEW 207 SF 00 208 SF 06 209 10 210 * 211 "ALGLOG SC " 212 ARCL X 213 AVIEW 214 LBL 10 215 ISG 11 216 GTO 10 217 LBL 05 218 RCL 01 219 RCL 14 220 ABS 221 X#Y? 222 GTO 05 223 RCL 03 224 SF 06 225 "BASE SC " 226 10 227 * 228 ARCL X 229 AVIEW 230 LBL 05 231 "CLEAR" 232 FC?C 06 233 AVIEW 234 FS?C 09 235 GTO 50 236 GTO 51 237 LBL J 238 SF 21 239 RCL 13 240 "ENERGY" 241 X=0? 242 GTO 07 243 X>Y? 244 X<>Y 245 ST- 13 246 SF 09 247 10 248 / 249 STO 10 250 GTO 05 251 LBL 07 252 "GONE" 253 AVIEW 254 GTO 51 255 LBL E 256 SF 21 257 STO 10 258 RCL 12 259 "TORPS " 260 X=0? 261 GTO 07 262 1 263 ST- 12 264 CF 09 265 LBL 05 266 "MISS" 267 FC? 00 268 GTO 05 269 RCL 09 270 STO 11 271 LBL 09 272 RCL IND 11 273 X<0? 274 GTO 09 275 INT 276 LASTX 277 FRC 278 RCL 02 279 INT 280 ST- Z 281 X<> L 282 FRC 283 - 284 10 285 * 286 R-P 287 FC? 09 288 RDN 289 RCL 10 290 - 291 0 292 FS? 09 293 GTO 06 294 CLX 295 1 296 P-R 297 R-P 298 RDN 299 ABS 300 5 301 LBL 06 302 FC? 06 303 X<Y? 304 SF 07 305 FC? 06 306 X<Y? 307 GTO 09 308 SF 06 309 "HIT" 310 TONE 08 311 TONE 09 312 AVIEW 313 -1 314 STO IND 11 315 LBL 09 316 ISG 11 317 GTO 09 318 -1 319 FC? 07 320 ST* IND 04 321 FC?C 07 322 CF 00 323 FC? 06 324 TONE 05 325 FC? 06 326 TONE 04 327 FC?C 06 328 GTO 05 329 CLA 330 RCL 07 331 + 332 ARCL X 333 "
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall