HP-41/42 Wizard of Pinball Game

Back to main page | Email me at: Gene!


This program will simulate a Pinball Machine. It was written by Craig Pearce, a fellow member of the CHiP chapter. Craig was the author of one of the best HP-67 programs ever written, Pinball Wizard. He took it and expanded it to include many features (tones and alpha displays) of the HP-41 and this is what he created. Thanks Craig!

Instructions: The instructions for this game are very similar to the HP-67 Pinball Wizard Game. See that write-up for more information.
1) XEQ "W"
2) at the SEED? prompt, enter a decimal seed and press R/S.
3) when the display shows RGHT-3, press 3 to flip the right flipper.
4) when the display shows LEFT-1, press 1 to flip the right flipper.
5) if the display shows OUT, you may opt to try to tilt the game by entering a 2.


Program Listing: Most lines are fairly straightforward. As always, if you have a question, email.
Line      Instruction
01         LBL "W"
02         FIX 0
03         "OUT"
04         ASTO 00
05         "*STAR-"
06         ASTO 01
07         "*LANE-"
08         ASTO 02
09         "THUMP-"
10         ASTO 03
11         "SPIN-"
12         ASTO 04
13         "KICK-"
14         ASTO 05
15         "SLING-"
16         ASTO 06
17         "DROP-"
18         ASTO 07
19         "*A-"
20         ASTO 08
21         "*B-"
22         ASTO 09
23         "*C-"
24         ASTO 10
25         "*D-"
26         ASTO 11
27         "*E-"
28         ASTO 12
29         "*F-"
30         ASTO 13
31         "RGHT-3"
32         ASTO 14
33         "BALL "
34         ASTO 15
35         "LEFT-1"
36         ASTO 16
37         "OVER"
38         ASTO 18
39         "BONUS"
40         ASTO 20
41         "SHOOT "
42         ASTO 21
43         "AGAIN"
44         ASTO 22
45         "HSCR-"
46         ASTO 24
47         "SCORE-"
48         ASTO 25
49         "X2"
50         ASTO 26
51         "X3"
52         ASTO 27
53         "X5"
54         ASTO 29
55         "PLAYER"
56         ASTO 30
57         "TILT"
58         ASTO 31
59         10
60         STO 37
61         X^2
62         STO 39
63         LASTX
64         *
65         STO 40
66         50
67         STO 38
68         "SEED?
69         PROMPT
70         STO 17
71         "PLAYERS?"
72         STO 45
73         CLA
74         ARCL 30
75         ->"S="
76         ARCL 45
77         AVIEW
78         40
79         +
80         RCL 40
81         /
82         41
83         STO 28
84         +
85         0
86         LBL 12
87         STO IND Y
88         ISG Y
89         GTO 12
90         1
91         STO 35
92         BEEP
93         BEEP
94         LBL 13
95         41
96         STO 28
97         1
98         STO 48
99         LBL 14
100        1
101        STO 46
102        1.003
103        STO 19
104        0
105        STO 47
106        25
107        STO 34
108        XEQ a
109        CF 02
110        CLA
111        ARCL 30
112        ->" "
113        ARCL 48
114        AVIEW
115        PSE
116        CLA
117        ARCL 15
118        ARCL 35
119        CF 22
120        AVIEW
121        LBL 15
122        PSE
123        FS?C 22
124        GTO 15
125        LBL 16
126        12
127        XEQ 09
128        4
129        -
130        X > 0?
131        GTO 17
132        FS? 02
133        GTO 18
134        GTO 16
135        LBL a
136        0.02
137        LBL 10
138        CF IND X
139        ISG X
140        GTO 10
141        SF 01
142        RTN
143        LBL 17
144        SF 02
145        CLA
146        ARCL IND X
147        GTO IND X
148        LBL 18
149        -2
150        X <> Y
151        X = Y?
152        0
153        X < 0?
154        GTO 19
155        RCL 00
156        CLD
157        PSE
158        FC?C 22
159        GTO 20
160        2
161        X NE Y?
162        GTO 20
163        9
164        XEQ 09
165        1
166        X = Y?
167        GTO 21
168        GTO 16
169        LBL 20
170        CLA
171        ARCL 20
172        ARCL IND 34
173        AVIEW
174        PSE
175        RCL 46
176        RCL 34
177        24
178        -
179        ST* 46
180        RCL 40
181        RCL 46
182        *
183        ST+ IND 28
184        FIX 3
185        CF 28
186        RCL 46
187        CLD
188        LBL 22
189        TONE 7
190        PSE
191        FIX 0
192        SF 28
193        LBL b
194        CLA
195        ARCL 30
196        ->" "
197        ARCL 48
198        ->"-"
199        ARCL 25
200        ARCL IND 28
201        AVIEW
202        FS? 03
203        GTO 14
204        RCL 45
205        RCL 48
206        X = Y?
207        GTO 25
208        1
209        ST+ 48
210        ST+ 28
211        GTO 14
212        LBL 25
213        5
214        RCL 35
215        X = Y?
216        GTO 26
217        1
218        ST+ 35
219        GTO 13
220        LBL 26
221        CLA
222        ARCL 24
223        ARCL 36
224        AVIEW
225        RCL 45
226        40
227        +
228        RCL 40
229        /
230        41
231        +
232        STO 23
233        LBL 28
234        CLA
235        ARCL 30
236        ->" "
237        RCL 23
238        INT
239        40
240        -
241        ARCL X
242        ->"-"
243        ARCL IND 23
244        AVIEW
245        ISG 23
246        GTO 28
247        CLA
248        ARCL 18
249        AVIEW
250        BEEP
251        RTN
252        LBL 09
253        RCL 17
254        997
255        *
256        FRC
257        STO 17
258        *
259        1
260        +
261        INT
262        RTN
263        LBL 21
264        CF 03
265        CLA
266        ARCL 31
267        AVIEW
268        TONE 1
269        TONE 0
270        PSE
271        GTO b
272        LBL 19
273        ENTER
274        ABS
275        X <> Y
276        17
277        +
278        X <> Y
279        CLA
280        ARCL IND Y
281        AVIEW
282        PSE
283        FC?C 22
284        GTO 29
285        X = Y?
286        GTO 16
287        LBL 29
288        0
289        GTO 18
290        LBL 01
291        1
292        ST+ 46
293        RCL 38
294        ST+ IND 28
295        ARCL X
296        AVIEW
297        TONE 5
298        TONE 5
299        TONE 5
300        TONE 5
301        TONE 5
302        GTO 16
303        LBL 02
304        1
305        ST+ 46
306        300
307        ST+ IND 28
308        ARCL X
309        AVIEW
310        TONE 6
311        TONE 6
312        TONE 6
313        GTO 16
314        LBL 03
315        RCL 39
316        STO 32
317        6
318        ENTER
319        10
320        LBL 30
321        XEQ 09
322        X <> 32
323        RCL 32
324        STO 33
325        *
326        ST+ IND 28
327        ARCL X
328        AVIEW
329        LBL 31
330        TONE IND Y
331        DSE 32
332        GTO 31
333        FS?C 04
334        RTN
335        GTO 16
336        LBL 04
337        RCL 37
338        STO 32
339        5
340        ENTER
341        30
342        SF 04
343        XEQ 30
344        RCL 33
345        5
346        /
347        INT
348        ST+ 46
349        GTO 16
350        LBL 05
351        RCL 47
352        2
353        +
354        STO 47
355        ENTER
356        ENTER
357        RCL 40
358        *
359        ST+ IND 28
360        ARCL X
361        AVIEW
362        LBL 32
363        TONE 7
364        DSE Y
365        GTO 32
366        GTO 16
367        LBL 06
368        10
369        ST+ IND 28
370        ARCL X
371        AVIEW
372        TONE 5
373        GTO 16
374        LBL 07
375        ISG 19
376        GTO 33
377        1.003
378        STO 19
379        SF 03
380        RCL 39
381        ST+ IND 28
382        CLA
383        ARCL 21
384        ARCL 22
385        AVIEW
386        TONE 8
387        TONE 8
388        GTO 16
389        LBL 33
390        RCL 19
391        1
392        -
393        ARCL X
394        AVIEW
395        TONE 5
396        10
397        ST+ IND 28
398        GTO 16
399        LBL 08
400        1
401        ST+ 46
402        6
403        XEQ 09
404        ENTER
405        ENTER
406        4
407        +
408        X <> Y
409        7
410        +
411        CLA
412        ARCL IND X
413        SF IND Y
414        500
415        ST+ IND 28
416        ARCL X
417        AVIEW
418        TONE 6
419        TONE 6
420        TONE 6
421        TONE 6
422        TONE 6
423        FC? 05
424        GTO 34
425        FC? 06
426        GTO 34
427        SF 20
428        26
429        STO 34
430        FC? 07
431        GTO 34
432        FC? 08
433        GTO 34
434        27
435        STO 34
436        FC? 09
437        GTO 34
438        FC? 10
439        GTO 34
440        TONE 9
441        TONE 9
442        29
443        STO 34
444        LBL 34
445        FC? 20
446        GTO 16
447        CLA
448        ARCL 20
449        ARCL IND 34
450        AVIEW
451        PSE
452        GTO 16
453        END

That's it. Enjoy!