The Museum of HP Calculators


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

Program Listing

LINE  KEYS
 01 LBL "FLIPO"
 02 LBL 12
 03 "SIZE>=103"
 04 CF 01
 05 CF 12
 06 CF 13
 07 CF 27
 08 SF 21
 09 SF 25
 10 SREG 97
 11 FC? 25
 12 PROMPT
 13 FC?C 25
 14 GTO 12
 15 SREG 94
 16 CLST
 17 99
 18 LBL 15
 19 STO IND X
 20 DSE X
 21 GTO 15
 22 STO 07
 23 STO 93
 24 S+
 25 STO 90
 26 S+
 27 STO 91
 28 S+
 29 STO 92
 30 RCL 09
 31 X<> 77
 32 X<> 72
 33 X<> 22
 34 X<> 27
 35 X<> 78
 36 X<> 87
 37 X<> 82
 38 X<> 71
 39 X<> 21
 40 X<> 12
 41 X<> 28
 42 X<> 17
 43 X<> 67
 44 X<> 76
 45 X<> 73
 46 X<> 62
 47 X<> 32
 48 X<> 23
 49 X<> 37
 50 X<> 26
 51 X<> 57
 52 X<> 75
 53 X<> 74
 54 X<> 52
 55 X<> 42
 56 X<> 24
 57 X<> 47
 58 X<> 25
 59 X<> 56
 60 X<> 65
 61 X<> 64
 62 X<> 53
 63 X<> 43
 64 X<> 34
 65 X<> 46
 66 X<> 35
 67 X<> 58
 68 X<> 85
 69 X<> 84
 70 X<> 51
 71 X<> 41
 72 X<> 14
 73 X<> 48
 74 X<> 15
 75 X<> 66
 76 X<> 63
 77 X<> 33
 78 X<> 36
 79 X<> 68
 80 X<> 86
 81 X<> 83
 82 X<> 61
 83 X<> 31
 84 X<> 13
 85 X<> 38
 86 X<> 16
 87 STO 00
 88 X<> 88
 89 X<> 81
 90 X<> 11
 91 X<> 18
 92 STO 02
 93 1 E-5
 94 STO 08
 95 ST* 09
 96 ADV
 97 ADV
 98 "HANDICAP?"
 99 TONE 09
100 PROMPT
101 RCL 04
102 X<>Y
103 ABS
104 INT
105 X>Y?
106 CLX
107 STO 04
108 ST+ 01
109 XEQ 55
110 FIX 00
111 "Hdc="
112 XEQ 56
113 XEQ IND X
114 ADV
115 PSE
116 GTO IND 00
117 LBL 01
118 RCL 28
119 X<> 67
120 X<> 88
121 STO 28
122 RCL 27
123 X<> 78
124 X<> 58
125 STO 27
126 LBL 00
127 RTN
128 LBL 02
129 RCL 21
130 X<> 67
131 X<> 88
132 STO 21
133 RCL 22
134 X<> 78
135 X<> 58
136 STO 22
137 RTN
138 LBL 03
139 RCL 82
140 X<> 67
141 X<> 88
142 STO 82
143 RCL 72
144 X<> 78
145 X<> 58
146 STO 72
147 RTN
148 LBL 04
149 RCL 77
150 X<> 67
151 X<> 88
152 X<> 78
153 X<> 58
154 STO 77
155 RTN
156 LBL 16
157 GRAD
158 CF 12
159 "YOU 1ST?<D>"
160 PROMPT
161 DEG
162 LBL D
163 RCL 10
164 STO 00
165 1/X
166 ST+ 44
167 ST+ 45
168 ST+ 54
169 ST+ 55
170 GTO IND 04
171 LBL C
172 LBL E
173 GTO IND 00
174 LBL 04
175 ST+ 88
176 LBL 03
177 ST+ 81
178 LBL 02
179 ST+ 11
180 LBL 01
181 ST+ 18
182 LBL 00
183 FC? 42
184 CHS
185 STO IND 90
186 SIGN
187 " W"
188 ASTO IND 91
189 ASTO IND 92
190 " B"
191 X<0?
192 ASTO IND 91
193 X>0?
194 ASTO IND 92
195 GTO IND 04
196 LBL 04
197 ST* 88
198 LBL 03
199 ST* 81
200 LBL 02
201 ST* 11
202 LBL 01
203 ST* 18
204 LBL 00
205 ABS
206 CHS
207 ST* 45
208 ST* 54
209 SF 04
210 FS?C 01
211 GTO C
212 LBL 10
213 RCL 02
214 STO 00
215 FS? 42
216 GTO IND X
217 RCL 01
218 XEQ 55
219 ARCL IND 91
220 RCL 06
221 STO 05
222 RCL 46
223 RCL 64
224 FS? 08
225 RCL 34
226 X<Y?
227 RCL 65
228 FS? 07
229 X<>Y
230 FC? 08
231 FS?C 07
232 X=0?
233 SF 07
234 FC?C 08
235 SF 08
236 RCL IND 90
237 CHS
238 X<>Y
239 ENTER
240 CLX
241 STO 04
242 GTO 01
243 LBL 17
244 RCL IND X
245 FRC
246 X=0?
247 GTO 01
248 LASTX
249 X=Y?
250 GTO 02
251 R^
252 X<>Y
253 GTO 17
254 LBL 01
255 RDN
256 ABS
257 XEQ 00
258 X#0?
259 GTO 03
260 X<>Y
261 RCL IND T
262 GTO 17
263 LBL 02
264 INT
265 STO IND 05
266 "|- "
267 ARCL X
268 FS? 04
269 XROM 29,08
270 SIGN
271 RCL 07
272 RCL 06
273 -
274 X#0?
275 ENTER
276 LBL 03
277 BEEP
278 X=Y?
279 FS? 42
280 GTO 01
281 FS? 01
282 GTO 04
283 ADV
284 LBL 18
285 FS? 42
286 "PLAY:"
287 ARCL IND 92
288 "|-?"
289 7
290 STO 05
291 CF 12
292 CLST
293 TONE 06
294 GRAD
295 PROMPT
296 CLS
297 INT
298 STO 03
299 STO 04
300 RCL 01
301 XEQ 55
302 ARCL IND 92
303 RCL 03
304 X=0?
305 GTO 02
306 RAD
307 RCL 10
308 X<>Y
309 X<=Y?
310 GTO 03
311 RCL 89
312 X<=Y?
313 GTO 03
314 X<>Y
315 RCL IND X
316 X=Y?
317 GTO 03
318 FRC
319 X#0?
320 GTO 03
321 STO 04
322 RCL IND 90
323 RCL 03
324 XEQ 00
325 X=0?
326 GTO 03
327 LBL 01
328 X=Y?
329 GTO 01
330 5
331 STO 00
332 BEEP
333 GTO 04
334 LBL 01
335 XEQ 57
336 DEG
337 DSE 05
338 LBL 02
339 RCL IND 90
340 FS? 42
341 GTO 01
342 CHS
343 RCL 01
344 XEQ 02
345 ARCL IND 91
346 R^
347 R^
348 LBL 01
349 RCL 02
350 GTO 17
351 LBL A
352 FC?C 01
353 SF 01
354 LBL 03
355 FIX 00
356 ARCL 03
357 "|- NG"
358 LBL B
359 GTO IND 00
360 LBL 00
361 XEQ 01
362 X<> T
363 RCL 09
364 -
365 XEQ 01
366 X<> T
367 RCL 08
368 +
369 XEQ 01
370 X<> T
371 RCL 08
372 -
373 XEQ 01
374 CLX
375 X<> 93
376 X=0?
377 RTN
378 R^
379 INT
380 X<>Y
381 RCL 91
382 /
383 +
384 STO IND 05
385 ARCL X
386 X<>Y
387 CHS
388 SIGN
389 LASTX
390 ABS
391 ST+ IND Z
392 RDN
393 ST* IND Y
394 ABS
395 ST+ 01
396 ST+ 04
397 FS? 04
398 XROM 29,08
399 RCL 60
400 RCL 01
401 X<=Y?
402 ENTER
403 RTN
404 LBL 01
405 STO Z
406 X<>Y
407 ISG Y
408 AOFF
409 RCL IND Y
410 FRC
411 X=Y?
412 XEQ 13
413 X<> T
414 CHS
415 STO Z
416 X<>Y
417 ISG Y
418 AOFF
419 RCL IND Y
420 FRC
421 X#Y?
422 RTN
423 LBL 13
424 RDN
425 ISG Y
426 AOFF
427 RCL IND Y
428 FRC
429 X=Y?
430 GTO 13
431 CHS
432 X#Y?
433 RTN
434 SIGN
435 ABS
436 CHS
437 X<>Y
438 R^
439 R^
440 LBL 14
441 DSE X
442 AOFF
443 X=Y?
444 GTO 01
445 R^
446 ST* IND Y
447 ST- 93
448 RDN
449 GTO 14
450 LBL 01
451 RDN
452 RTN
453 LBL E
454 LBL 05
455 7
456 STO 00
457 XEQ 55
458 "TALY:"
459 XEQ 57
460 PSE
461 11.088
462 SF 25
463 .
464 ENTER
465 LN
466 LBL 06
467 RCL IND Z
468 FRC
469 X#0?
470 SIGN
471 X<0?
472 ST- Z
473 +
474 OCT
475 DEC
476 ISG Z
477 GTO 06
478 "|-B"
479 FIX 00
480 CF 29
481 ARCL Y
482 "|-,W"
483 CHS
484 -
485 TONE 07
486 XEQ 56
487 LASTX
488 FS?C 04
489 XROM 29,20
490 ADV
491 LBL 07
492 CF 12
493 FC? 55
494 CF 21
495 SF 29
496 DEG
497 FIX 02
498 STOP
499 GTO 07
500 LBL B
501 RCL 02
502 STO 00
503 GRAD
504 GTO IND X
505 LBL 04
506 ADV
507 GRAD
508 CF 21
509 AVIEW
510 PSE
511 PSE
512 FC? 01
513 GTO 05
514 LBL C
515 FS? 04
516 GTO 01
517 RCL 01
518 RCL 04
519 -
520 XEQ 55
521 ARCL IND 92
522 RCL 07
523 TONE 07
524 XEQ 03
525 PSE
526 X<> L
527 1
528 X>Y?
529 CLX
530 -
531 +
532 XEQ 02
533 ARCL IND 91
534 RCL 06
535 XEQ 03
536 ADV
537 PSE
538 LBL 01
539 XEQ 55
540 FIX 00
541 CF 29
542 11.018
543 STO 03
544 1.008
545 STO 05
546 "   "
547 LBL 08
548 ARCL X
549 ISG X
550 GTO 08
551 FS? 04
552 XROM 29,08
553 LBL 09
554 " "
555 ARCL 05
556 "|-:"
557 LBL 11
558 RCL IND 03
559 FRC
560 X<0?
561 "|-*"
562 X=0?
563 "|--"
564 X>0?
565 "|-O"
566 ISG 03
567 GTO 11
568 TONE 07
569 AVIEW
570 2.01
571 ST+ 03
572 ISG 05
573 GTO 09
574 LBL B
575 ADV
576 CLD
577 CLST
578 LBL D
579 GTO IND 00
580 LBL 55
581 CF 04
582 SF 12
583 SF 21
584 SF 25
585 SF 27
586 CLA
587 XROM 29,01
588 CLD
589 FS?C 25
590 SF 04
591 LBL 02
592 CLA
593 FIX 00
594 SF 29
595 RCL 10
596 X<>Y
597 X<Y?
598 " "
599 ARCL X
600 FIX 02
601 RTN
602 LBL 03
603 X=0?
604 "|- "
605 LBL 56
606 ARCL X
607 FS? 04
608 XROM 29,08
609 LBL 57
610 CF 21
611 AVIEW
612 SF 21
613 END

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