The Museum of HP Calculators
Pinball Wizard 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
Download Data Set (.d41) See Note under Data
Sets(below.)
Display the Program Barcode (.pdf) for printing and scanning
Data Set
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.
To run the program, load the data and then start the program with XEQ "WIZARD".
RR000 = "OUT"
RR001 = "*STAR-"
RR002 = "*LANE-"
RR003 = "THUMP-"
RR004 = "SPIN-"
RR005 = "KICK-"
RR006 = "SLING-"
RR007 = "DROP-"
RR008 = "*A-"
RR009 = "*B-"
RR010 = "*C-"
RR011 = "*D-"
RR012 = "*E-"
RR013 = "*F-"
RR014 = "RGHT-3"
RR015 = "BALL "
RR016 = "LEFT-1"
RR017 = +0.000000000E+0
RR018 = "GAME "
RR019 = " OVER"
RR020 = "BONUS "
RR021 = "SHOOT"
RR022 = "AGAIN"
RR023 = "MATCH-"
RR024 = "HISCR-"
RR025 = "SCORE-"
RR026 = "X 2"
RR027 = "X 3"
RR028 = "CREDIT"
RR029 = "X 5"
RR030 = "PLAYER"
RR031 = "*TILT*"
RR032 = +0.000000000E+0
RR033 = +0.000000000E+0
RR034 = +0.000000000E+0
RR035 = +0.000000000E+0
RR036 = +0.000000000E+0
RR037 = +1.000000000E+1
RR038 = +5.000000000E+1
RR039 = +1.000000000E+2
RR040 = +1.000000000E+3
RR041 = +0.000000000E+0
RR042 = +0.000000000E+0
RR043 = +0.000000000E+0
RR044 = +0.000000000E+0
RR045 = +0.000000000E+0
RR046 = +0.000000000E+0
RR047 = +0.000000000E+0
RR048 = +0.000000000E+0
RR049 = +0.000000000E+0
RR050 = +0.000000000E+0
RR051 = +0.000000000E+0
RR052 = +0.000000000E+0
RR053 = +0.000000000E+0
RR054 = +0.000000000E+0
RR055 = +0.000000000E+0
RR056 = +0.000000000E+0
RR057 = +0.000000000E+0
RR058 = +0.000000000E+0
RR059 = +0.000000000E+0
RR060 = +0.000000000E+0
RR061 = +0.000000000E+0
RR062 = +0.000000000E+0
RR063 = +0.000000000E+0
Program Listing
LINE KEYS
01 LBL "WIZARD"
02 FRC
03 1/X
04 LASTX
05 STO 63
06 FIX 00
07 SF 27
08 " CAP-PINBALL"
09 AVIEW
10 LBL a
11 .010
12 LBL 10
13 CF IND X
14 ISG X
15 GTO 10
16 SF 01
17 CF 20
18 CF 21
19 FS? 55
20 SF 21
21 RTN
22 LBL E
23 FIX 02
24 "$ "
25 ARCL 52
26 FIX 00
27 AVIEW
28 RTN
29 LBL C
30 .25
31 ST+ 52
32 TONE 04
33 39
34 RCL 53
35 X>Y?
36 GTO D
37 ISG 53
38 LBL D
39 CLA
40 ARCL 53
41 "
"
42 ARCL 28
43 RCL 53
44 1
45 X#Y?
46 "S"
47 AVIEW
48 RTN
49 LBL B
50 RCL 53
51 X=0?
52 GTO D
53 0
54 FS?C 01
55 STO 45
56 RCL 45
57 4
58 X=Y?
59 GTO 11
60 1
61 ST+ 45
62 ST- 53
63 TONE 05
64 XEQ D
65 PSE
66 LBL 11
67 CLA
68 ARCL 30
69 "S ="
70 ARCL 45
71 AVIEW
72 RTN
73 LBL A
74 RCL 45
75 X=0?
76 RTN
77 40
78 +
79 RCL 40
80 /
81 41
82 STO 58
83 +
84 0
85 LBL 12
86 STO IND Y
87 ISG Y
88 GTO 12
89 1
90 STO 48
91 STO 50
92 TONE 09
93 TONE 08
94 TONE 08
95 TONE 08
96 TONE 07
97 TONE 07
98 BEEP
99 TONE 08
100 TONE 08
101 TONE 08
102 TONE 09
103 LBL 13
104 41
105 STO 58
106 1
107 STO 48
108 LBL 14
109 1
110 STO 46
111 1.003
112 STO 51
113 0
114 STO 47
115 25
116 STO 49
117 XEQ a
118 SF 01
119 CF 02
120 CLA
121 ARCL 30
122 " NO. "
123 ARCL 48
124 AVIEW
125 PSE
126 CLA
127 ARCL 15
128 ARCL 50
129 CF 22
130 LBL 15
131 AVIEW
132 PSE
133 FC?C 22
134 GTO 15
135 LBL 16
136 12
137 XEQ 09
138 4
139 -
140 X>0?
141 GTO 17
142 FS? 02
143 GTO 18
144 "NO "
145 ARCL 25
146 ARCL 21
147 ARCL 22
148 AVIEW
149 PSE
150 GTO 14
151 LBL 17
152 SF 02
153 CLA
154 ARCL IND X
155 GTO IND X
156 LBL 18
157 -2
158 X<>Y
159 X=Y?
160 0
161 X<0?
162 GTO 19
163 RCL 00
164 CLD
165 PSE
166 FC?C 22
167 GTO 20
168 2
169 X#Y?
170 GTO 20
171 5
172 XEQ 09
173 1
174 X=Y?
175 GTO 21
176 GTO 16
177 LBL 20
178 CLA
179 ARCL 20
180 ARCL IND 49
181 AVIEW
182 PSE
183 RCL 46
184 29
185 X<Y?
186 STO 46
187 RCL 49
188 24
189 -
190 ST* 46
191 RCL 40
192 RCL 46
193 *
194 ST+ IND 58
195 FIX 03
196 CF 28
197 RCL 46
198 CLD
199 LBL 22
200 PSE
201 TONE 07
202 DSE X
203 GTO 22
204 FIX 00
205 SF 28
206 LBL b
207 CLA
208 ARCL 30
209 " "
210 ARCL 48
211 "-"
212 ARCL 25
213 ARCL IND 58
214 AVIEW
215 FS? 03
216 GTO 14
217 RCL 45
218 RCL 48
219 X=Y?
220 GTO 25
221 1
222 ST+ 48
223 ST+ 58
224 GTO 14
225 LBL 25
226 5
227 RCL 50
228 X=Y?
229 GTO 26
230 1
231 ST+ 50
232 GTO 13
233 LBL 26
234 10
235 XEQ 09
236 1
237 -
238 10
239 *
240 STO 35
241 RCL 45
242 40
243 +
244 RCL 40
245 /
246 41
247 +
248 STO 57
249 LBL 27
250 RCL 36
251 RCL IND 57
252 X>Y?
253 STO 36
254 X>Y?
255 SF 00
256 RCL 39
257 /
258 FRC
259 RCL 39
260 *
261 RCL 35
262 X=Y?
263 XEQ 24
264 ISG 57
265 GTO 27
266 CLA
267 ARCL 23
268 ARCL 35
269 AVIEW
270 PSE
271 CLA
272 ARCL 24
273 ARCL 36
274 AVIEW
275 FS?C 00
276 XEQ 24
277 PSE
278 RCL 45
279 40
280 +
281 RCL 40
282 /
283 41
284 +
285 STO 57
286 LBL 28
287 CLA
288 ARCL 30
289 " "
290 RCL 57
291 INT
292 40
293 -
294 ARCL X
295 " - "
296 ARCL IND 57
297 AVIEW
298 54.056
299 RCL IND 57
300 ENTER
301 LBL 23
302 CLX
303 RCL IND Z
304 X<=Y?
305 XEQ 24
306 ISG Z
307 GTO 23
308 ISG 57
309 GTO 28
310 CLA
311 ARCL 18
312 ARCL 19
313 AVIEW
314 0
315 STO 45
316 BEEP
317 RTN
318 LBL 09
319 RCL 63
320 9821
321 *
322 .211327
323 +
324 FRC
325 STO 63
326 *
327 1
328 +
329 INT
330 RTN
331 LBL 21
332 CF 03
333 CLA
334 ARCL 31
335 AVIEW
336 TONE 04
337 TONE 03
338 TONE 02
339 TONE 01
340 TONE 00
341 PSE
342 GTO b
343 LBL 19
344 ENTER
345 ABS
346 X<>Y
347 17
348 +
349 X<>Y
350 CLA
351 ARCL IND Y
352 AVIEW
353 PSE
354 FC?C 22
355 GTO 29
356 X=Y?
357 GTO 16
358 LBL 29
359 0
360 GTO 18
361 LBL 24
362 CLX
363 1
364 ST+ 53
365 CLX
366 RCL 53
367 40
368 X<=Y?
369 STO 53
370 RDN
371 TONE 09
372 RTN
373 LBL 01
374 1
375 ST+ 46
376 RCL 38
377 ST+ IND 58
378 ARCL X
379 AVIEW
380 TONE 05
381 TONE 05
382 TONE 05
383 TONE 05
384 TONE 05
385 GTO 16
386 LBL 02
387 1
388 ST+ 46
389 300
390 ST+ IND 58
391 ARCL X
392 AVIEW
393 TONE 06
394 TONE 06
395 TONE 06
396 GTO 16
397 LBL 03
398 RCL 39
399 STO 62
400 6
401 ENTER
402 10
403 LBL 30
404 XEQ 09
405 X<> 62
406 RCL 62
407 STO 61
408 *
409 ST+ IND 58
410 ARCL X
411 AVIEW
412 LBL 31
413 TONE IND Z
414 DSE 62
415 GTO 31
416 FS?C 04
417 RTN
418 GTO 16
419 LBL 04
420 RCL 37
421 STO 62
422 5
423 ENTER
424 25
425 SF 04
426 XEQ 30
427 RCL 61
428 5
429 /
430 INT
431 ST+ 46
432 GTO 16
433 LBL 05
434 8
435 RCL 47
436 X>Y?
437 X<>Y
438 2
439 +
440 STO 47
441 ENTER
442 ENTER
443 RCL 40
444 *
445 ST+ IND 58
446 ARCL X
447 AVIEW
448 LBL 32
449 TONE 07
450 DSE Y
451 GTO 32
452 GTO 16
453 LBL 06
454 10
455 ST+ IND 58
456 ARCL X
457 AVIEW
458 TONE 05
459 GTO 16
460 LBL 07
461 ISG 51
462 GTO 33
463 1.003
464 STO 51
465 SF 03
466 RCL 39
467 ST+ IND 58
468 CLA
469 ARCL 21
470 ARCL 22
471 AVIEW
472 TONE 08
473 TONE 08
474 GTO 16
475 LBL 33
476 RCL 51
477 1
478 -
479 ARCL X
480 AVIEW
481 TONE 05
482 10
483 ST+ IND 58
484 GTO 16
485 LBL 08
486 1
487 ST+ 46
488 6
489 XEQ 09
490 ENTER
491 ENTER
492 4
493 +
494 X<>Y
495 7
496 +
497 CLA
498 ARCL IND X
499 SF IND Y
500 500
501 ST+ IND 58
502 ARCL X
503 AVIEW
504 TONE 06
505 TONE 06
506 TONE 06
507 TONE 06
508 TONE 06
509 FC? 05
510 GTO 34
511 FC? 06
512 GTO 34
513 SF 20
514 26
515 STO 49
516 FC? 07
517 GTO 34
518 FC? 08
519 GTO 34
520 27
521 STO 49
522 FC? 09
523 GTO 34
524 FC? 10
525 GTO 34
526 TONE 09
527 TONE 09
528 29
529 STO 49
530 LBL 34
531 FC? 20
532 GTO 16
533 CLA
534 ARCL 20
535 ARCL IND 49
536 AVIEW
537 PSE
538 GTO 16
539 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall