The Museum of HP Calculators

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)
Display the Program Barcode (.pdf) for printing and scanning

Data Sets

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
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
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"
```

Program Listing

```LINE  KEYS
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
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
```