The Museum of HP Calculators

Pinball for the HP-41C/CV/CX

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

Program Listing

LINE  KEYS
 01 LBL "PINBALL"
 02 7
 03 XEQ "SIZE?"
 04 FC?C 25
 05 PROMPT
 06 SF 27
 07 XEQ "INI"
 08 CF 21
 09 STO 00
 10 0
 11 STO 04
 12 STO 05
 13 FIX 00
 14 CF 29
 15 CF 02
 16 CF 01
 17 CF 00
 18 "$.25=3 GAMES"
 19 PROMPT
 20 LBL A
 21 TONE 06
 22 TONE 07
 23 TONE 06
 24 1
 25 ST+ 04
 26 "$"
 27 FIX 02
 28 RCL 04
 29 4
 30 /
 31 ARCL X
 32 " SPENT"
 33 AVIEW
 34 FIX 00
 35 TONE 08
 36 TONE 06
 37 TONE 09
 38 3
 39 ST+ 05
 40 LBL 19
 41 "GAMES:"
 42 ARCL 05
 43 AVIEW
 44 TONE 08
 45 RTN
 46 LBL E
 47 TONE 09
 48 RCL 05
 49 X=0?
 50 RTN
 51 1
 52 ST- 05
 53 4
 54 STO 02
 55 0
 56 STO 06
 57 LBL 15
 58 CF IND 02
 59 DSE 02
 60 X<0?
 61 GTO 17
 62 1 E3
 63 STO 01
 64 SF IND 02
 65 5
 66 STO 03
 67 "FIRE"
 68 TONE 09
 69 PROMPT
 70 LBL 16
 71 CLD
 72 RDN
 73 11
 74 XEQ "RNDMW"
 75 SF 25
 76 TONE IND X
 77 GTO IND X
 78 LBL 02
 79 "OUT"
 80 GTO 02
 81 LBL 01
 82 "L"
 83 GTO 01
 84 LBL 03
 85 "R"
 86 LBL 01
 87 " FLIPPER"
 88 LBL 02
 89 AVIEW
 90 PSE
 91 X#Y?
 92 GTO 01
 93 2
 94 X#Y?
 95 GTO 16
 96 XEQ "RNDMW"
 97 X=0?
 98 GTO 16
 99 "TILT"
100 AVIEW
101 TONE 00
102 0
103 STO 01
104 LBL 01
105 2
106 FS?C 00
107 ST* 01
108 RCL 06
109 BEEP
110 LBL 12
111 VIEW X
112 RCL 01
113 X=0?
114 GTO 15
115 RDN
116 1 E3
117 ST- 01
118 +
119 STO 06
120 TONE 06
121 GTO 12
122 LBL 00
123 "MUSHROOMS"
124 100
125 ENTER
126 10
127 GTO 00
128 LBL 04
129 "SPINNER"
130 50
131 ENTER
132 25
133 LBL 00
134 AVIEW
135 XEQ "RNDMW"
136 1
137 +
138 *
139 LBL 13
140 TONE 09
141 DSE L
142 GTO 13
143 GTO 14
144 LBL 05
145 "KICKOUT"
146 50
147 GTO 14
148 LBL 06
149 "BONUS"
150 1 E3
151 ST+ 01
152 10
153 GTO 14
154 LBL 07
155 "FLAG "
156 6
157 RCL 03
158 -
159 ARCL X
160 CLX
161 10
162 DSE 03
163 GTO 14
164 5
165 STO 03
166 CF IND 02
167 1
168 ST+ 02
169 SF IND 02
170 100
171 LBL 14
172 AVIEW
173 10
174 X<>Y
175 FS? 00
176 *
177 TONE 07
178 TONE 06
179 CLD
180 PSE
181 ST+ 06
182 GTO 16
183 LBL 08
184 "SLING SHOT"
185 10
186 GTO 14
187 LBL 09
188 "SPECIAL"
189 FC?C 00
190 SF 00
191 10
192 GTO 14
193 LBL 10
194 "ROLLOVER"
195 10
196 GTO 14
197 LBL 17
198 5 E4
199 RCL 06
200 -
201 1
202 X>Y?
203 ST+ 05
204 X<=Y?
205 RTN
206 BEEP
207 GTO 19
208 LBL "INI"
209 SF 21
210 DEG
211 "SEED ?"
212 PROMPT
213 SIN
214 ABS
215 RTN
216 LBL "RNDM"
217 RCL 00
218 9821
219 *
220 .211327
221 +
222 FRC
223 STO 00
224 RTN
225 LBL "RNDMW"
226 XEQ "RNDM"
227 *
228 INT
229 RTN
230 LBL "SIZE?"
231 FIX 00
232 "SIZE>="
233 ARCL X
234 1
235 -
236 SF 25
237 RCL IND X
238 RTN
239 END

Go back to the HP-41 software library
Go back to the general software library
Go back to the main exhibit hall