The Museum of HP Calculators


The Caves for the HP42s

This program was ported is by Pauli and is used here by permission.

This program is supplied without representation or warranty of any kind. Pauli 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.

This program is a port of The Caves program for the HP41 by James Surber. It appears in the Games II HP-41 Users' Library Solutions book from Hewlett-Packard. Detailed instructions are contain therein.

The only significant difference between the HP41 version and this is that the HP42s menu system is used to input all commands.

000 { 1866-Byte Prgm } 208 FC? 25 416 SF 97
001 LBL "CAVES" 209 GTO 77 417 GTO 77
002 CLRG 210 20 418 LBL 08
003 CLMENU 211 X>Y? 419 SF 08
004 MENU 212 RTN 420 LBL 17
005 "The Caves" 213 SF 08 421 "Small cave"
006 AVIEW 214 XEQ IND ST Y 422 XEQ 33
007 CF 29 215 RTN 423 FS? 13
008 SF 27 216 LBL 01 424 CF 08
009 XEQ 59 217 "Magic wand" 425 FS? 13
010 FIX 00 218 FS? 13 426 RTN
011 1.026 219 GTO 33 427 "Drop big cape"
012 STO 75 220 XEQ 32 428 FS?C 07
013 XEQ 97 221 SF 05 429 XEQ 31
014 18.026 222 SF 10 430 FC?C 08
015 STO 75 223 GTO 00 431 GTO 00
016 XEQ 97 224 LBL B 432 "Crystal"
017 24.026 225 FC? 05 433 GTO 37
018 STO 75 226 "No wand" 434 LBL 18
019 XEQ 97 227 FS? 05 435 FS? 13
020 TONE 9 228 "Presto" 436 RTN
021 LBL 66 229 XEQ 32 437 "Stairs"
022 1 230 FC? 05 438 XEQ 33
023 STO 68 231 GTO E 439 SF 99
024 3 232 FC?C 10 440 SF 98
025 STO 69 233 CF 05 441 GTO 77
026 5 234 XEQ 58 442 LBL F
027 STO 70 235 GTO 00 443 RCL 73
028 GTO 55 236 LBL 59 444 67
029 LBL 99 237 CF 13 445 XEQ 99
030 RAN 238 CF 10 446 X<Y?
031 * 239 CF 08 447 GTO F
032 IP 240 CF 07 448 GTO 84
033 RTN 241 CF 06 449 LBL G
034 LBL 98 242 CF 05 450 RCL 73
035 66 243 LBL 58 451 67
036 XEQ 99 244 CF 97 452 XEQ 99
037 X=0? 245 SF 04 453 X>Y?
038 GTO 98 246 SF 03 454 GTO G
039 RCL IND ST X 247 SF 02 455 GTO 84
040 X<>0? 248 SF 01 456 LBL 19
041 GTO 98 249 SF 00 457 FS? 13
042 RCL 75 250 CF 09 458 RTN
043 IP 251 RTN 459 "Fork"
044 STO IND ST Z 252 LBL 02 460 XEQ 33
045 RTN 253 "Magic word" 461 67
046 LBL 97 254 FS? 13 462 XEQ 99
047 XEQ 98 255 GTO 33 463 STO 69
048 ISG 75 256 XEQ 32 464 67
049 GTO 97 257 SF 06 465 XEQ 99
050 RTN 258 GTO 00 466 STO 70
051 LBL J 259 LBL A 467 "<- ->"
052 RCL 71 260 FC? 06 468 ASTO 68
053 GTO 84 261 "No magic" 469 SF 99
054 LBL b 262 FS? 06 470 GTO 77
055 RCL 68 263 "Abrakadabra" 471 LBL 20
056 GTO a 264 XEQ 33 472 "See light"
057 LBL I 265 FC? 06 473 FS? 13
058 RCL 70 266 GTO 77 474 GTO 33
059 GTO a 267 GTO 57 475 XEQ 32
060 LBL H 268 LBL 03 476 LBL 57
061 RCL 69 269 "Cape" 477 "End game"
062 LBL a 270 FS? 13 478 XEQ 33
063 "Moving to " 271 GTO 33 479 XEQ 48
064 ARCL ST X 272 XEQ 32 480 PROMPT
065 AVIEW 273 "Invisible to" 481 GTO 45
066 XEQ 56 274 |-" dragon" 482 LBL D
067 LBL 84 275 XEQ 33 483 XEQ 48
068 CLMENU 276 SF 07 484 GTO 77
069 MENU 277 GTO 00 485 LBL 48
070 CF 99 278 LBL 04 486 "Score = "
071 CF 98 279 SF 11 487 ARCL 72
072 CF 97 280 LBL 05 488 XEQ 32
073 X<> 73 281 "Locked chest" 489 RTN
074 STO 71 282 XEQ 33 490 LBL 21
075 RCL 73 283 FS? 13 491 "Dark cave"
076 X=0? 284 CF 11 492 FS? 13
077 GTO 66 285 FS? 13 493 GTO 33
078 67 286 RTN 494 XEQ 33
079 X=Y? 287 SF 08 495 CLA
080 GTO 67 288 XEQ 36 496 XEQ 31
081 RCL 73 289 CF 08 497 PSE
082 1 290 FC? 00 498 "Use lamp"
083 - 291 GTO 00 499 FS? 01
084 STO 68 292 FC? 11 500 XEQ 33
085 2 293 "Rubies" 501 FS? 01
086 + 294 FS?C 11 502 GTO 00
087 STO 69 295 "Silk" 503 "Oops no lamp"
088 2 296 XEQ 33 504 XEQ 33
089 MOD 297 150 505 LBL 22
090 X<>0? 298 GTO 34 506 "Feel draft"
091 GTO 68 299 LBL 06 507 FS? 13
092 RCL 73 300 "Silver" 508 GTO 33
093 7 301 XEQ 33 509 XEQ 31
094 - 302 FS? 13 510 "Yyeeeiii"
095 0 303 RTN 511 |-" the pits"
096 X<Y? 304 "Too hot" 512 GTO 45
097 X<>Y 305 GTO 35 513 LBL 23
098 STO 70 306 LBL 07 514 "Hear splash"
099 GTO 55 307 "Gold" 515 FS? 13
100 LBL 68 308 XEQ 33 516 GTO 33
101 RCL 73 309 FS? 13 517 XEQ 31
102 7 310 RTN 518 "All washed up"
103 + 311 "Too cold" 519 GTO 45
104 67 312 LBL 35 520 LBL 24
105 X>Y? 313 XEQ 33 521 "Smell dragon"
106 X<>Y 314 FS? 04 522 FS? 13
107 STO 70 315 "Use " 523 GTO 33
108 GTO 55 316 FC? 04 524 XEQ 31
109 LBL 67 317 XEQ 43 525 FS? 07
110 62 318 |-"gloves" 526 GTO 03
111 STO 68 319 XEQ 33 527 LBL 42
112 64 320 FC? 04 528 "Chomp"
113 STO 69 321 GTO 00 529 LBL 45
114 66 322 CLA 530 XEQ 33
115 STO 70 323 200 531 TONE 1
116 GTO 55 324 GTO 34 532 TONE 0
117 LBL 56 325 LBL 09 533 GTO "CAVES"
118 RCL 68 326 "Pearls" 534 LBL 44
119 X=Y? 327 GTO 37 535 FS? 03
120 RTN 328 LBL 10 536 "Use "
121 X<>Y 329 "Ming vase" 537 FC? 03
122 RCL 69 330 GTO 37 538 XEQ 43
123 X=Y? 331 LBL 11 539 |-"knife"
124 RTN 332 "Ivory" 540 XEQ 33
125 X<>Y 333 GTO 37 541 RTN
126 RCL 70 334 LBL 12 542 LBL 25
127 X=Y? 335 "Diamonds" 543 "Hear squeeks"
128 RTN 336 LBL 37 544 XEQ 33
129 "Illegal cave" 337 XEQ 33 545 FS? 13
130 XEQ 33 338 FS? 13 546 RTN
131 RCL 73 339 RTN 547 TONE 9
132 GTO 00 340 100 548 TONE 9
133 LBL 55 341 LBL 34 549 4
134 RCL IND 73 342 |-" in pack" 550 XEQ 99
135 GTO IND ST X 343 XEQ 33 551 CF IND ST X
136 LBL 00 344 STO+ 72 552 SF 09
137 "Safe" 345 RCL 72 553 "Snatch"
138 XEQ 33 346 1200 554 XEQ 33
139 LBL C 347 X=Y? 555 LBL E
140 SF 13 348 BEEP 556 XEQ 43
141 RCL 68 349 XEQ 48 557 LBL 47
142 XEQ 78 350 0 558 FC? 00
143 RCL 69 351 STO IND 73 559 |-"key "
144 XEQ 78 352 GTO 00 560 FC? 01
145 RCL 70 353 LBL 31 561 |-"lamp "
146 XEQ 78 354 TONE 5 562 FC? 02
147 CF 13 355 TONE 3 563 |-"water "
148 "No warning" 356 TONE 0 564 FC? 03
149 FC?C 08 357 GTO 33 565 |-"knife "
150 AVIEW 358 LBL 32 566 FC? 04
151 PSE 359 TONE 1 567 |-"gloves "
152 LBL 77 360 TONE 3 568 FC? 09
153 CLMENU 361 TONE 5 569 |-"nothing"
154 FS? 97 362 LBL 33 570 XEQ 33
155 GTO e 363 AVIEW 571 GTO 00
156 "->" 364 PSE 572 LBL 43
157 ARCL 68 365 RTN 573 "Bats took "
158 FC? 99 366 LBL 13 574 RTN
159 KEY 1 GTO b 367 "Ugly troll" 575 LBL 26
160 "->" 368 FS? 13 576 "Hear voice"
161 ARCL 69 369 GTO 33 577 FS? 13
162 FS? 98 370 XEQ 31 578 GTO 33
163 "UP" 371 XEQ 44 579 XEQ 33
164 KEY 2 GTO H 372 FS? 03 580 TONE 4
165 "->" 373 GTO 00 581 TONE 5
166 ARCL 70 374 GTO 42 582 TONE 6
167 FS? 98 375 LBL 14 583 "Wizard"
168 "DOWN" 376 "Web" 584 XEQ 33
169 KEY 3 GTO I 377 FS? 13 585 SF 13
170 LBL e 378 GTO 33 586 RCL 73
171 "BACK" 379 XEQ 31 587 3
172 KEY 4 GTO J 380 XEQ 44 588 -
173 "WAND" 381 FS? 03 589 1
174 FS? 05 382 GTO 00 590 X<Y?
175 KEY 5 GTO B 383 GTO 46 591 X<>Y
176 "WORD" 384 LBL 15 592 STO 75
177 FS? 06 385 "Fire" 593 6
178 KEY 6 GTO A 386 FS? 13 594 +
179 KEY 7 GTO c 387 GTO 33 595 67
180 KEY 8 GTO c 388 XEQ 31 596 X>Y?
181 MENU 389 FS? 02 597 X<>Y
182 XEQ d 390 "Use " 598 1000
183 PROMPT 391 FC? 02 599 /
184 GTO 77 392 XEQ 43 600 STO+ 75
185 LBL d 393 |-"water" 601 LBL 96
186 CLA 394 XEQ 33 602 "Cave "
187 ARCL 73 395 FS? 02 603 ARCL 75
188 |-"* Command?" 396 GTO 00 604 RCL IND 75
189 AVIEW 397 GTO 46 605 0
190 RTN 398 LBL 16 606 XEQ 95
191 LBL c 399 "Locked door" 607 18
192 CLMENU 400 FS? 13 608 XEQ 95
193 "WARN" 401 GTO 33 609 19
194 KEY 1 GTO C 402 XEQ 31 610 XEQ 95
195 "SCOR" 403 LBL 36 611 XEQ 33
196 KEY 2 GTO D 404 FS? 00 612 X<>0?
197 "ITEM" 405 "Use " 613 XEQ IND ST X
198 KEY 3 GTO E 406 FC? 00 614 ISG 75
199 KEY 7 GTO 77 407 XEQ 43 615 GTO 96
200 KEY 8 GTO 77 408 |-"key" 616 CF 13
201 MENU 409 XEQ 33 617 GTO 00
202 XEQ d 410 FS? 08 618 LBL 95
203 PROMPT 411 RTN 619 X<>Y
204 GTO 77 412 FS? 00 620 X=Y?
205 LBL 78 413 GTO 00 621 |-" empty"
206 SF 25 414 LBL 46 622 RTN
207 RCL IND ST X 415 "Go back" 623 .END.

Go back to the software library
Go back to the main exhibit hall