The Museum of HP Calculators
The Caves for the HP-41C/CV/CX
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
Display the Program Barcode (.pdf) for printing and scanning
Program Listing
LINE KEYS
01 LBL "CAVES"
02 CLRG
03 "SEED ?"
04 PROMPT
05 STO 74
06 "THE CAVES"
07 AVIEW
08 CF 29
09 SF 27
10 XEQ 59
11 FIX 00
12 1.026
13 STO 75
14 XEQ 97
15 18.026
16 STO 75
17 XEQ 97
18 24.026
19 STO 75
20 XEQ 97
21 TONE 09
22 LBL 66
23 1
24 STO 68
25 3
26 STO 69
27 5
28 STO 70
29 GTO 55
30 LBL 99
31 RCL 74
32 9821
33 *
34 .21137
35 +
36 FRC
37 STO 74
38 *
39 INT
40 RTN
41 LBL 98
42 66
43 XEQ 99
44 X=0?
45 GTO 98
46 RCL IND X
47 X#0?
48 GTO 98
49 RCL 75
50 INT
51 STO IND Z
52 RTN
53 LBL 97
54 XEQ 98
55 ISG 75
56 GTO 97
57 RTN
58 LBL J
59 RCL 71
60 GTO 84
61 LBL I
62 RCL 70
63 GTO "^"
64 LBL H
65 RCL 69
66 LBL "^"
67 "MOVING TO "
68 ARCL X
69 AVIEW
70 XEQ 56
71 LBL 84
72 X<> 73
73 STO 71
74 RCL 73
75 X=0?
76 GTO 66
77 67
78 X=Y?
79 GTO 67
80 RCL 73
81 1
82 -
83 STO 68
84 2
85 +
86 STO 69
87 2
88 MOD
89 X#0?
90 GTO 68
91 RCL 73
92 7
93 -
94 0
95 X<Y?
96 X<>Y
97 STO 70
98 GTO 55
99 LBL 68
100 RCL 73
101 7
102 +
103 67
104 X>Y?
105 X<>Y
106 STO 70
107 GTO 55
108 LBL 67
109 62
110 STO 68
111 64
112 STO 69
113 66
114 STO 70
115 GTO 55
116 LBL 56
117 RCL 68
118 X=Y?
119 RTN
120 X<>Y
121 RCL 69
122 X=Y?
123 RTN
124 X<>Y
125 RCL 70
126 X=Y?
127 RTN
128 "ILLEGAL CAVE"
129 XEQ 33
130 RCL 73
131 GTO 00
132 LBL 55
133 RCL IND 73
134 GTO IND X
135 LBL 00
136 "SAFE"
137 XEQ 33
138 LBL C
139 SF 13
140 RCL 68
141 XEQ 78
142 RCL 69
143 XEQ 78
144 RCL 70
145 XEQ 78
146 CF 13
147 "NO WARNING"
148 FC?C 08
149 AVIEW
150 PSE
151 LBL 77
152 CLA
153 ARCL 73
154 "
* "
155 ARCL 68
156 ", "
157 ARCL 69
158 ", "
159 ARCL 70
160 PROMPT
161 GTO "^"
162 LBL 78
163 SF 25
164 RCL IND X
165 FC? 25
166 GTO 77
167 20
168 X>Y?
169 RTN
170 SF 08
171 XEQ IND Y
172 RTN
173 LBL 01
174 "MAGIC WAND"
175 FS? 13
176 GTO 33
177 XEQ 32
178 SF 05
179 SF 10
180 GTO 00
181 LBL B
182 FC? 05
183 "NO WAND"
184 FS? 05
185 "PRESTO"
186 XEQ 32
187 FC? 05
188 GTO E
189 FC?C 10
190 CF 05
191 XEQ 58
192 GTO 00
193 LBL 59
194 CF 13
195 CF 10
196 CF 08
197 CF 07
198 CF 06
199 CF 05
200 LBL 58
201 SF 04
202 SF 03
203 SF 02
204 SF 01
205 SF 00
206 CF 09
207 RTN
208 LBL 02
209 "MAGIC WORD"
210 FS? 13
211 GTO 33
212 XEQ 32
213 SF 06
214 GTO 00
215 LBL A
216 FC? 06
217 "NO MAGIC"
218 FS? 06
219 "ABRAKADABRA"
220 XEQ 33
221 FC? 06
222 GTO 77
223 GTO 57
224 LBL 03
225 "CAPE"
226 FS? 13
227 GTO 33
228 XEQ 32
229 "INVISIBLE TO"
230 " DRAGON"
231 XEQ 33
232 SF 07
233 GTO 00
234 LBL 04
235 SF 11
236 LBL 05
237 "LOCKED CHEST"
238 XEQ 33
239 FS? 13
240 CF 11
241 FS? 13
242 RTN
243 SF 08
244 XEQ 36
245 CF 08
246 FC? 00
247 GTO 00
248 FC? 11
249 "RUBIES"
250 FS?C 11
251 "SILK"
252 XEQ 33
253 150
254 GTO 34
255 LBL 06
256 "AG"
257 XEQ 33
258 FS? 13
259 RTN
260 "TOO HOT"
261 GTO 35
262 LBL 07
263 "AU"
264 XEQ 33
265 FS? 13
266 RTN
267 "TOO COLD"
268 LBL 35
269 XEQ 33
270 FS? 04
271 "USE "
272 FC? 04
273 XEQ 43
274 "GLOVES"
275 XEQ 33
276 FC? 04
277 GTO 00
278 CLA
279 200
280 GTO 34
281 LBL 09
282 "PEARLS"
283 GTO 37
284 LBL 10
285 "MING VASE"
286 GTO 37
287 LBL 11
288 "IVORY"
289 GTO 37
290 LBL 12
291 "DIAMONDS"
292 LBL 37
293 XEQ 33
294 FS? 13
295 RTN
296 100
297 LBL 34
298 " IN PACK"
299 XEQ 33
300 ST+ 72
301 RCL 72
302 1200
303 X=Y?
304 BEEP
305 XEQ 48
306 0
307 STO IND 73
308 GTO 00
309 LBL 31
310 TONE 05
311 TONE 03
312 TONE 00
313 GTO 33
314 LBL 32
315 TONE 01
316 TONE 03
317 TONE 05
318 LBL 33
319 AVIEW
320 PSE
321 RTN
322 LBL 13
323 "UGLY TROLL"
324 FS? 13
325 GTO 33
326 XEQ 31
327 XEQ 44
328 FS? 03
329 GTO 00
330 GTO 42
331 LBL 14
332 "WEB"
333 FS? 13
334 GTO 33
335 XEQ 31
336 XEQ 44
337 FS? 03
338 GTO 00
339 GTO 46
340 LBL 15
341 "FIRE"
342 FS? 13
343 GTO 33
344 XEQ 31
345 FS? 02
346 "USE "
347 FC? 02
348 XEQ 43
349 "WATER"
350 XEQ 33
351 FS? 02
352 GTO 00
353 GTO 46
354 LBL 16
355 "LOCKED DOOR"
356 FS? 13
357 GTO 33
358 XEQ 31
359 LBL 36
360 FS? 00
361 "USE "
362 FC? 00
363 XEQ 43
364 "KEY"
365 XEQ 33
366 FS? 08
367 RTN
368 FS? 00
369 GTO 00
370 LBL 46
371 "GO BACK"
372 PROMPT
373 GTO J
374 LBL 08
375 SF 08
376 LBL 17
377 "SMALL CAVE"
378 XEQ 33
379 FS? 13
380 CF 08
381 FS? 13
382 RTN
383 "DROP BIG CAPE"
384 FS?C 07
385 XEQ 31
386 FC?C 08
387 GTO 00
388 "CRYSTAL"
389 GTO 37
390 LBL 18
391 FS? 13
392 RTN
393 "STAIRS"
394 XEQ 33
395 "UP OR DOWN ?"
396 PROMPT
397 GTO 18
398 LBL F
399 RCL 73
400 67
401 XEQ 99
402 X<Y?
403 GTO F
404 GTO 84
405 LBL G
406 RCL 73
407 67
408 XEQ 99
409 X>Y?
410 GTO G
411 GTO 84
412 LBL 19
413 FS? 13
414 RTN
415 "FORK"
416 XEQ 33
417 67
418 XEQ 99
419 STO 69
420 67
421 XEQ 99
422 STO 70
423 "LT/RT"
424 ASTO 68
425 GTO 77
426 LBL 20
427 "SEE LIGHT"
428 FS? 13
429 GTO 33
430 XEQ 32
431 LBL 57
432 "END GAME"
433 XEQ 33
434 XEQ 48
435 PROMPT
436 GTO 45
437 LBL D
438 XEQ 48
439 GTO 77
440 LBL 48
441 "SCORE = "
442 ARCL 72
443 XEQ 32
444 RTN
445 LBL 21
446 "DARK CAVE"
447 FS? 13
448 GTO 33
449 XEQ 33
450 CLA
451 XEQ 31
452 PSE
453 "USE LAMP"
454 FS? 01
455 XEQ 33
456 FS? 01
457 GTO 00
458 "OOPS NO LAMP"
459 XEQ 33
460 LBL 22
461 "FEEL DRAFT"
462 FS? 13
463 GTO 33
464 XEQ 31
465 "YYEEEIIII"
466 " THE PITS"
467 GTO 45
468 LBL 23
469 "HEAR SPLASH"
470 FS? 13
471 GTO 33
472 XEQ 31
473 "ALL WASHED UP"
474 GTO 45
475 LBL 24
476 "SMELL DRAGON"
477 FS? 13
478 GTO 33
479 XEQ 31
480 FS? 07
481 GTO 03
482 LBL 42
483 "CHOMP"
484 LBL 45
485 XEQ 33
486 TONE 01
487 TONE 00
488 GTO "CAVES"
489 LBL 44
490 FS? 03
491 "USE "
492 FC? 03
493 XEQ 43
494 "KNIFE"
495 XEQ 33
496 RTN
497 LBL 25
498 "HEAR SQUEEKS"
499 XEQ 33
500 FS? 13
501 RTN
502 TONE 09
503 TONE 09
504 4
505 XEQ 99
506 CF IND X
507 SF 09
508 "SNATCH"
509 XEQ 33
510 LBL E
511 XEQ 43
512 LBL 47
513 FC? 00
514 "KEY "
515 FC? 01
516 "LAMP "
517 FC? 02
518 "WATER "
519 FC? 03
520 "KNIFE "
521 FC? 04
522 "GLOVES"
523 FC? 09
524 "NOTHING"
525 XEQ 33
526 GTO 00
527 LBL 43
528 "BATS TOOK "
529 RTN
530 LBL 26
531 "HEAR VOICE"
532 FS? 13
533 GTO 33
534 XEQ 33
535 TONE 04
536 TONE 05
537 TONE 06
538 "WIZARD"
539 XEQ 33
540 SF 13
541 RCL 73
542 3
543 -
544 1
545 X<Y?
546 X<>Y
547 STO 75
548 6
549 +
550 67
551 X>Y?
552 X<>Y
553 1000
554 /
555 ST+ 75
556 LBL 96
557 "CAVE "
558 ARCL 75
559 RCL IND 75
560 0
561 XEQ 95
562 18
563 XEQ 95
564 19
565 XEQ 95
566 XEQ 33
567 X#0?
568 XEQ IND X
569 ISG 75
570 GTO 96
571 CF 13
572 GTO 00
573 LBL 95
574 X<>Y
575 X=Y?
576 " EMPTY"
577 RTN
578 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall