The Museum of HP Calculators

Bagels 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 "BAGELS"
 02 28
 03 XEQ "SIZE?"
 04 FC?C 25
 05 PROMPT
 06 SF 08
 07 XEQ "INI"
 08 STO 24
 09 CF 05
 10 10
 11 STO 20
 12 LBL a
 13 RCL 25
 14 "LENGTH?"
 15 PROMPT
 16 ABS
 17 INT
 18 X=0?
 19 GTO d
 20 8
 21 X<>Y
 22 X>Y?
 23 GTO d
 24 STO 21
 25 STO 25
 26 RCL 27
 27 "MAX DIG?"
 28 PROMPT
 29 ABS
 30 INT
 31 X=0?
 32 GTO d
 33 STO 27
 34 9
 35 X<>Y
 36 X>Y?
 37 GTO d
 38 RCL 20
 39 /
 40 ST+ 21
 41 FC? 08
 42 GTO b
 43 "DIGS CAN DUP"
 44 AVIEW
 45 "0 LEGAL"
 46 AVIEW
 47 LBL b
 48 CLX
 49 STO 22
 50 SF 29
 51 SF 09
 52 "GUESS?"
 53 PROMPT
 54 CF 29
 55 X<0?
 56 GTO 16
 57 CF 09
 58 LBL c
 59 0
 60 STO 19
 61 STO 26
 62 FC? 05
 63 GTO 00
 64 FS? 07
 65 GTO 01
 66 CLX
 67 RCL 24
 68 1/X
 69 R-D
 70 STO 24
 71 LBL 00
 72 SF 05
 73 CLX
 74 .211327
 75 ENTER
 76 9821
 77 RCL 24
 78 *
 79 +
 80 FRC
 81 D-R
 82 1/X
 83 STO 24
 84 LBL 01
 85 CF 07
 86 RDN
 87 INT
 88 STO 23
 89 RCL 24
 90 1/X
 91 R-D
 92 SF 06
 93 XEQ 11
 94 RCL 23
 95 CF 06
 96 XEQ 11
 97 XEQ e
 98 LBL 02
 99 RCL IND 10
100 RCL 20
101 ST- 10
102 CLX
103 RCL IND 10
104 X#Y?
105 GTO 03
106 CHS
107 X<>Y
108 CHS
109 X<>Y
110 1
111 ST+ 19
112 RDN
113 LBL 03
114 STO IND 10
115 X<>Y
116 RCL 20
117 ST+ 10
118 RDN
119 STO IND 10
120 DSE 10
121 GTO 02
122 XEQ e
123 LBL 04
124 RCL IND 10
125 X<0?
126 GTO 07
127 SF 07
128 RCL 25
129 STO 00
130 LBL 05
131 CLX
132 RCL IND 00
133 X=Y?
134 GTO 06
135 DSE 00
136 GTO 05
137 GTO 07
138 LBL 06
139 CHS
140 STO IND 00
141 1
142 ST+ 26
143 LBL 07
144 DSE 10
145 GTO 04
146 RCL 25
147 STO 10
148 CLX
149 LBL 08
150 STO IND 10
151 DSE 10
152 GTO 08
153 XEQ e
154 CLX
155 LBL 09
156 STO IND 10
157 DSE 10
158 GTO 09
159 FIX 00
160 1
161 ST+ 22
162 FC? 07
163 GTO 10
164 CLX
165 TONE 05
166 TONE 05
167 LBL 15
168 FC? 08
169 GTO 07
170 CF 08
171 "PLC="
172 ARCL 19
173 " XVAL="
174 ARCL 26
175 AVIEW
176 PSE
177 LBL 07
178 XEQ 17
179 ":"
180 FIX 00
181 9
182 RCL 25
183 -
184 STO 00
185 LBL A
186 " "
187 DSE 00
188 GTO A
189 ARCL 19
190 "-"
191 ARCL 26
192 SF 29
193 PROMPT
194 CF 29
195 CLA
196 X<0?
197 GTO 16
198 ADV
199 GTO c
200 LBL 10
201 TONE 08
202 TONE 09
203 "YOU GOT IT."
204 AVIEW
205 XEQ 17
206 AVIEW
207 FIX 00
208 CLA
209 ARCL 22
210 " GUESS"
211 1
212 RCL 22
213 X=Y?
214 GTO 10
215 "ES"
216 LBL 10
217 AVIEW
218 SF 29
219 AON
220 "N"
221 ASTO Y
222 "SAME? Y/N"
223 PROMPT
224 AOFF
225 ASTO X
226 X=Y?
227 GTO a
228 GTO b
229 LBL 11
230 RCL 21
231 FRC
232 RCL 20
233 1/X
234 +
235 STO 00
236 CLX
237 RCL 25
238 STO 10
239 RDN
240 FS? 06
241 GTO 12
242 R^
243 10^X
244 /
245 ABS
246 XEQ e
247 RDN
248 LBL 12
249 STO 09
250 LBL 13
251 RCL 09
252 FRC
253 RCL 20
254 *
255 STO 09
256 RCL 00
257 X<>Y
258 FS? 06
259 *
260 1
261 +
262 INT
263 STO IND 10
264 DSE 10
265 GTO 13
266 RTN
267 LBL d
268 TONE 04
269 "ILLEGAL NO."
270 AVIEW
271 GTO a
272 LBL e
273 RCL 25
274 RCL 20
275 +
276 .01
277 +
278 STO 10
279 RTN
280 LBL 16
281 CF 29
282 CLA
283 FIX 00
284 "LEN="
285 ARCL 25
286 ", MAX="
287 ARCL 27
288 AVIEW
289 CLA
290 FS? 09
291 GTO b
292 GTO 15
293 LBL 17
294 CLA
295 RCL 23
296 RCL 25
297 10^X
298 /
299 FRC
300 FIX IND 25
301 "    "
302 ARCL X
303 ASHF
304 RTN
305 LBL "INI"
306 SF 21
307 DEG
308 "SEED ?"
309 PROMPT
310 SIN
311 ABS
312 RTN
313 LBL "SIZE?"
314 FIX 00
315 "SIZE>="
316 ARCL X
317 1
318 -
319 SF 25
320 RCL IND X
321 RTN
322 END

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