This program is Copyright © HP and is used here by permission. It was originally printed in the Games II Solution Book. This program was entered and uploaded by Tony Duell. The Barcode for this program was provided by Brian Ward.
This program is supplied without representation or warranty of any kind. Tony Duell, 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
Download Data Set 1 (.d41) See Note under Data Sets
(below.)
Download Data Set 2 (.d41)
Download Data Set 3
(.d41)
Display the Program Barcode (.pdf) for printing
and scanning
Currently, we know how to transfer the .d41 files to an HP-4C1 with Tony Duell's LIF Utilities for linux. Other users can enter the register listings below by hand. If you determine how DOS users can transfer these files, please let me know.
You start the program by loading data set 1 and then XEQ "ADV". See the Games II Solution book for information on how to create your own adventures by altering the data.
RR000 = +0.000000000E+0 RR001 = +0.000000000E+0 RR002 = +9.000000000E+0 RR003 = -9.500000000E+1 RR004 = +0.000000000E+0 RR005 = "R HERE" RR006 = "OR DOO" RR007 = "ELEVAT" RR008 = +9.400000000E+1 RR009 = +9.200000000E-1 RR010 = -7.700000000E+1 RR011 = +7.983850000E-1 RR012 = "ARRAY" RR013 = "OF DIS" RR014 = "SIGNS " RR015 = +7.422110000E+1 RR016 = +7.369680000E-1 RR017 = " AHEAD" RR018 = "DOOR" RR019 = "RITY " RR020 = "A SECU" RR021 = +5.900160000E+1 RR022 = +5.856000000E-1 RR023 = "ABOVE" RR024 = "CE UP " RR025 = "L OFFI" RR026 = "CONTRO" RR027 = +4.500000000E+1 RR028 = +4.747360000E-1 RR029 = " HERE" RR030 = "L DESK" RR031 = "CONTRO" RR032 = +5.900000000E+1 RR033 = +3.443370000E-1 RR034 = +1.900000000E+93 RR035 = "STAIRS" RR036 = +1.907000333E+35 RR037 = +1.907000328E+35 RR038 = +1.911000392E+44 RR039 = "ARM-" RR040 = "CH -AL" RR041 = "CE MAT" RR042 = "NO VOI" RR043 = +2.806651704E+44 RR044 = "PHONE" RR045 = "GEN RM" RR046 = "GEN" RR047 = +1.900000000E+46 RR048 = "LOSES" RR049 = "DOOR C" RR050 = +2.904990000E+57 RR051 = +2.904701628E+57 RR052 = "ALARM" RR053 = +1.902001604E+18 RR054 = " ON" RR055 = "SENSOR" RR056 = +1.906002650E+55 RR057 = "SLOT" RR058 = +1.805000150E+18 RR059 = "OFFICE" RR060 = "MURAL" RR061 = "DIME" RR062 = "CHAIRS" RR063 = "ID" RR064 = "LOCKER" RR065 = +1.601000000E+61 RR066 = "O SAFE" RR067 = "NOPE N" RR068 = +1.911001067E+60 RR069 = +1.905000165E+62 RR070 = +1.601000000E+63 RR071 = +1.905000170E+64 RR072 = "HMM.." RR073 = +1.902001871E+64 RR074 = "LOUNGE" RR075 = "LEVER1" RR076 = "LEVER2" RR077 = "VATOR" RR078 = +1.902000316E+18 RR079 = +1.900000000E+18 RR080 = +1.908002679E+75 RR081 = "MOVES" RR082 = "VATOR" RR083 = +1.908002704E+75 RR084 = "KLUNK" RR085 = +1.913002683E+76 RR086 = "ALARM" RR087 = +1.902001704E+18 RR088 = "LOSES" RR089 = "DOOR C" RR090 = +1.913001611E+91 RR091 = "LATCH" RR092 = +1.805000190E+18 RR093 = "DESK" RR094 = "HANGAR" RR095 = "CELL"
RR000 = +0.000000000E+0 RR001 = +0.000000000E+0 RR002 = +9.000000000E+0 RR003 = -9.500000000E+1 RR004 = +0.000000000E+0 RR005 = " HERE" RR006 = "L DESK" RR007 = "CONTRO" RR008 = +9.400000000E+1 RR009 = +9.288368400E-1 RR010 = " ABOVE" RR011 = "CE UP" RR012 = "L OFFI" RR013 = "CONTRO" RR014 = +8.300000000E+1 RR015 = +8.181800000E-1 RR016 = "D HERE" RR017 = "E DROI" RR018 = "SERVIC" RR019 = +8.300000000E+1 RR020 = +6.381818000E-1 RR021 = "E LIFT" RR022 = "SERVIC" RR023 = +5.400000000E+1 RR024 = +4.652000000E-1 RR025 = "RS" RR026 = " LOCKE" RR027 = "TORAGE" RR028 = "TOOL S" RR029 = +4.535000024E+1 RR030 = +4.040000000E-1 RR031 = "R HERE" RR032 = "TY DOO" RR033 = "SECURI" RR034 = +8.600300000E+1 RR035 = +4.300000000E-1 RR036 = +1.900000000E+87 RR037 = "ALARM" RR038 = +1.902001604E+48 RR039 = "LOCKED" RR040 = +1.902001039E+44 RR041 = "BOARD" RR042 = "INPUT " RR043 = +1.805001793E+48 RR044 = "LOCKER" RR045 = "ROOM" RR046 = +1.911000220E+59 RR047 = +1.905000149E+48 RR048 = "DOOR" RR049 = +1.913000230E+53 RR050 = "LOOR" RR051 = " 3RD F" RR052 = +1.906002646E+70 RR053 = "LATCH" RR054 = "SHAFT" RR055 = +1.911000224E+59 RR056 = "HIDES" RR057 = "DROID " RR058 = +1.902002715E+62 RR059 = "PANEL" RR060 = "TO A " RR061 = "MOVES " RR062 = "DROID " RR063 = +1.805001555E+62 RR064 = +1.911002684E+79 RR065 = "ALARM" RR066 = +1.911001704E+77 RR067 = "OFF" RR068 = "GEN 2 " RR069 = +1.911002676E+78 RR070 = "LIFT" RR071 = +1.907000320E+85 RR072 = "ALERT" RR073 = "DROID " RR074 = "N OFF," RR075 = "ALL GE" RR076 = +1.911001389E+79 RR077 = "KNOB 3" RR078 = "KNOB 2" RR079 = "KNOB 1" RR080 = +1.907000309E+85 RR081 = +1.705201315E+82 RR082 = "GEN" RR083 = "GEN RM" RR084 = +1.907000315E+85 RR085 = "STAIRS" RR086 = "HALL" RR087 = "PHONE" RR088 = +1.900000000E+91 RR089 = +8.876696684E-1 RR090 = "ON" RR091 = "DESK" RR092 = +1.908002789E+93 RR093 = "SWITCH" RR094 = "OFFICE" RR095 = "CELL"
RR000 = +0.000000000E+0 RR001 = +0.000000000E+0 RR002 = +9.000000000E+0 RR003 = -9.500000000E+1 RR004 = +0.000000000E+0 RR005 = "R HERE" RR006 = "TY DOO" RR007 = "SECURI" RR008 = +9.400150000E+1 RR009 = +8.988876600E-1 RR010 = "RS" RR011 = " LOCKE" RR012 = "TORAGE" RR013 = "TOOL S" RR014 = +6.309000017E+1 RR015 = +6.464000000E-1 RR016 = -6.100000000E+1 RR017 = +5.860000000E-1 RR018 = "PUTER" RR019 = "TY COM" RR020 = "SECURI" RR021 = +6.300092700E+1 RR022 = +3.529000000E-1 RR023 = "UTER" RR024 = "L COMP" RR025 = "CONTRO" RR026 = +6.300000022E+1 RR027 = +3.945370000E-1 RR028 = "ALARM" RR029 = +1.913001704E+49 RR030 = +2.902520140E+48 RR031 = "BYE UN" RR032 = "OPEN " RR033 = "LOCKS " RR034 = +2.902230136E+44 RR035 = +2.914001237E+44 RR036 = +2.901001033E+47 RR037 = +1.905000150E+48 RR038 = "KEY" RR039 = +1.806001033E+44 RR040 = +1.913001044E+46 RR041 = "SAFE" RR042 = "FF,UN " RR043 = "UTER O" RR044 = "COMP" RR045 = +1.913001044E+49 RR046 = "DISKS" RR047 = "MICRO" RR048 = "MEMORY" RR049 = "PLUG" RR050 = +1.600000000E+38 RR051 = +5.253546464E-1 RR052 = +1.600000000E+55 RR053 = +1.600000000E+56 RR054 = +1.600000000E+57 RR055 = "PLIERS" RR056 = "S DRVR" RR057 = "WRENCH" RR058 = +1.913000215E+59 RR059 = "LATCH" RR060 = +1.702090893E+81 RR061 = "SHAFT" RR062 = "LOCKER" RR063 = "ROOM" RR064 = +2.902501351E+62 RR065 = "ALARM" RR066 = +1.902001604E+81 RR067 = +6.000000000E-1 RR068 = +7.776660000E-1 RR069 = +7.978660000E-1 RR070 = +1.908000204E+90 RR071 = +1.908000204E+91 RR072 = +1.908000204E+92 RR073 = +7.066000000E-1 RR074 = +7.166000000E-1 RR075 = +7.266000000E-1 RR076 = +1.908001375E+91 RR077 = +1.908001374E+92 RR078 = +1.908001374E+90 RR079 = +1.908001373E+91 RR080 = "OPEN" RR081 = "DOOR " RR082 = +1.908002767E+92 RR083 = +8.266000000E-1 RR084 = +1.908001383E+90 RR085 = +1.908001373E+91 RR086 = +8.584660000E-1 RR087 = +1.908001368E+90 RR088 = +1.908001386E+91 RR089 = +1.908001369E+92 RR090 = "KEY C" RR091 = "KEY B" RR092 = "KEY A" RR093 = -9.422150000E+1 RR094 = "HALL" RR095 = "CELL"
LINE KEYS 01 LBL "ADV" 02 FIX 00 03 CF 21 04 AON 05 LBL "L" 06 RCL 02 07 1 08 - 09 RCL IND X 10 "YOURE IN A " 11 ARCL IND X 12 AVIEW 13 PSE 14 X<0? 15 GTO 00 16 " WITH" 17 AVIEW 18 CLA 19 RDN 20 1 21 - 22 XEQ 10 23 PSE 24 LBL 00 25 RCL 02 26 RCL IND X 27 X=0? 28 GTO "?" 29 "YOU SEE:" 30 AVIEW 31 SF 14 32 XEQ 21 33 LBL "?" 34 RCL 02 35 1 36 - 37 LASTX 38 RCL IND Y 39 FRC 40 ABS 41 X=0? 42 GTO 30 43 "EXITS ARE: " 44 1 E2 45 STO 01 46 * 47 X>Y? 48 "N" 49 FRC 50 RCL 01 51 * 52 X>Y? 53 "S" 54 FRC 55 RCL 01 56 * 57 X>Y? 58 "E" 59 FRC 60 X#0? 61 "W" 62 CLD 63 LBL 30 64 STOP 65 LBL 16 66 RCL 00 67 FRC 68 STO 00 69 5.019 70 LBL 28 71 CF IND X 72 ISG X 73 GTO 28 74 ASTO X 75 ASTO Y 76 ASHF 77 ASTO L 78 " " 79 ARCL X 80 ASTO X 81 " " 82 ARCL X 83 ASHF 84 ASTO X 85 CLA 86 ARCL Y 87 ARCL L 88 SF 25 89 GTO IND X 90 GTO 23 91 LBL "GE" 92 SF 12 93 1 94 XEQ 27 95 FS?C 09 96 GTO 25 97 RCL 00 98 INT 99 XEQ 18 100 RCL 00 101 INT 102 1 E2 103 ST/ 00 104 RDN 105 ST+ 00 106 GTO 11 107 LBL "IN" 108 CLA 109 RCL 00 110 FRC 111 CLD 112 LBL 21 113 1 E2 114 * 115 X=0? 116 GTO 00 117 RCL IND X 118 X<0? 119 GTO "S" 120 LOG 121 VIEW IND X 122 RDN 123 FRC 124 GTO 21 125 LBL 00 126 FS? 14 127 RTN 128 STOP 129 GTO 16 130 LBL "TH" 131 SF 11 132 LBL "DR" 133 CLX 134 XEQ 15 135 R^ 136 INT 137 ST+ IND 02 138 1 E2 139 ST/ IND 02 140 X<>Y 141 XEQ 05 142 FC?C 11 143 GTO 11 144 3 145 STO 01 146 SF 12 147 RCL IND 02 148 1 E2 149 * 150 XEQ 22 151 GTO 11 152 LBL "PU" 153 13 154 GTO 00 155 LBL "PR" 156 8 157 GTO 00 158 LBL "OP" 159 2 160 GTO 00 161 LBL "WO" 162 6 163 GTO 00 164 LBL "CL" 165 7 166 GTO 00 167 LBL "RE" 168 9 169 GTO 00 170 LBL "MO" 171 11 172 GTO 00 173 LBL "LI" 174 12 175 LBL 00 176 XEQ 27 177 GTO 11 178 LBL "AT" 179 SF 19 180 14 181 XEQ 27 182 RCL 00 183 INT 184 XEQ 18 185 "DESTROYED" 186 AVIEW 187 GTO 11 188 LBL "FE" 189 4 190 GTO 00 191 LBL "GI" 192 10 193 LBL 00 194 SF 13 195 XEQ 27 196 RCL 01 197 XEQ 05 198 GTO 11 199 LBL "GO" 200 LBL "EX" 201 SF 12 202 SF 17 203 5 204 XEQ 27 205 GTO 11 206 LBL "^N" 207 2 208 GTO 00 209 LBL "^S" 210 4 211 GTO 00 212 LBL "^E" 213 6 214 GTO 00 215 LBL "^W" 216 8 217 LBL 00 218 10^X 219 RCL 02 220 1 221 - 222 X<>Y 223 RCL IND Y 224 ABS 225 * 226 INT 227 1 E2 228 MOD 229 X=0? 230 GTO 23 231 STO 02 232 SF 16 233 LBL 11 234 FC?C 14 235 GTO 00 236 RCL 00 237 1 238 - 239 INT 240 CLA 241 XEQ 10 242 LBL 00 243 RCL 02 244 90 245 - 246 X<=0? 247 GTO 00 248 " READ " 249 ARCL X 250 AVIEW 251 XROM 30,02 252 SF 16 253 LBL 00 254 FS?C 16 255 GTO "L" 256 " SO?" 257 FC?C 17 258 " OK" 259 GTO 30 260 LBL 27 261 STO 01 262 RCL 02 263 XEQ 15 264 R^ 265 LBL 22 266 INT 267 ST+ 00 268 2 269 RCL IND 00 270 ENTER 271 LOG 272 RND 273 10^X 274 / 275 X>Y? 276 SF 10 277 FRC 278 10 279 * 280 SF IND X 281 FRC 282 1 E2 283 * 284 INT 285 RCL 01 286 X#Y? 287 GTO 02 288 LASTX 289 FRC 290 1 E2 291 * 292 INT 293 FC?C 07 294 GTO 00 295 RCL 02 296 X=Y? 297 GTO 01 298 LBL 02 299 FS?C 12 300 RTN 301 RCL 00 302 INT 303 ST- 00 304 5 305 - 306 FS?C 08 307 GTO 22 308 GTO 25 309 LBL 00 310 X=0? 311 GTO 01 312 FS?C 10 313 GTO 00 314 RCL 00 315 FRC 316 LBL 24 317 1 E2 318 * 319 INT 320 X=Y? 321 SF 18 322 RDN 323 LASTX 324 FRC 325 X#0? 326 GTO 24 327 FS?C 06 328 FS?C 18 329 FS?C 18 330 GTO 25 331 GTO 01 332 LBL 00 333 "WHAT" 334 SF 15 335 FC?C 13 336 GTO 25 337 LBL 20 338 STO 01 339 CLX 340 XEQ 15 341 R^ 342 INT 343 RCL 01 344 X#Y? 345 GTO 25 346 LBL 01 347 RCL IND 00 348 ENTER 349 LOG 350 RND 351 10^X 352 / 353 1 E7 354 * 355 LBL 29 356 1 E2 357 MOD 358 INT 359 LASTX 360 FRC 361 1 E2 362 * 363 INT 364 X<>Y 365 14 366 X<Y? 367 SF 14 368 X<Y? 369 ST- Y 370 RDN 371 X<>Y 372 CLA 373 GTO IND Y 374 LBL 00 375 RTN 376 LBL 01 377 ST+ IND 02 378 1 E2 379 ST/ IND 02 380 RCL IND 00 381 SCI 05 382 RND 383 FIX 00 384 STO IND 00 385 SF 16 386 RTN 387 LBL 02 388 "GO IN?" 389 CF 23 390 STOP 391 FS?C 23 392 GTO 16 393 SF 16 394 STO 02 395 RTN 396 LBL 03 397 STO 02 398 SF 16 399 RTN 400 LBL 04 401 RCL IND X 402 STO IND 00 403 RTN 404 LBL 05 405 1 E2 406 ST/ 02 407 RCL 00 408 INT 409 STO 01 410 RCL Z 411 XEQ 18 412 1 E2 413 ST* 02 414 RCL 01 415 ST+ 00 416 RTN 417 LBL 06 418 XEQ 10 419 GTO 25 420 LBL 07 421 RCL 00 422 FRC 423 X<> IND Y 424 RCL 00 425 INT 426 + 427 STO 00 428 RTN 429 LBL 08 430 RCL 02 431 1 432 - 433 RCL IND X 434 X<> IND Z 435 STO IND Y 436 RTN 437 LBL 09 438 " THE END" 439 STOP 440 LBL 10 441 ARCL IND X 442 DSE X 443 RCL IND X 444 SIGN 445 X#0? 446 AVIEW 447 X#0? 448 RTN 449 RDN 450 GTO 10 451 LBL 11 452 XEQ 10 453 "YOU DIED" 454 PROMPT 455 LBL 12 456 RCL 00 457 5 458 - 459 RCL IND X 460 STO IND Z 461 RTN 462 LBL 13 463 RCL IND 02 464 X<> IND Y 465 STO IND 02 466 SF 16 467 RTN 468 LBL 14 469 RCL IND X 470 RCL 00 471 INT 472 DSE X 473 XEQ 10 474 X<>Y 475 + 476 STOP 477 ASTO X 478 X#Y? 479 1 E6 480 X=Y? 481 1 E2 482 RCL IND L 483 * 484 GTO 29 485 LBL 15 486 "? " 487 PROMPT 488 RCL IND X 489 FRC 490 LBL 17 491 1 E2 492 * 493 RCL IND X 494 LOG 495 RCL IND X 496 R^ 497 ASTO X 498 X=Y? 499 RTN 500 R^ 501 FRC 502 X#0? 503 GTO 17 504 LBL 23 505 "HUH?" 506 CLD 507 GTO 30 508 LBL 25 509 RDN 510 "TRY" 511 ASTO Y 512 "I CANT" 513 FS?C 19 514 " HA" 515 STOP 516 ASTO X 517 X#Y? 518 GTO 16 519 R^ 520 FC?C 15 521 1 522 GTO 20 523 LBL 18 524 2.90002 525 X<>Y 526 RCL IND 02 527 FRC 528 LBL 26 529 1 E2 530 * 531 INT 532 X=Y? 533 GTO 01 534 RDN 535 LASTX 536 FRC 537 ISG Z 538 X#0? 539 GTO 26 540 LBL 01 541 RCL Z 542 INT 543 10^X 544 / 545 ST- IND 02 546 0 547 X<> IND 02 548 FRC 549 1 E10 550 * 551 LBL 19 552 1 E2 553 FC?C 07 554 ST/ IND 02 555 / 556 FRC 557 X=0? 558 SF 07 559 ST+ IND 02 560 LASTX 561 INT 562 X#0? 563 GTO 19 564 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall