This program is Copyright © HP and is used here by permission. It was originally printed in the HP-67 Games of Chance Solution Book. This program was ported to the HP-41C by reading with the HP-41C card reader and the card reader may be required for operation of this program. This program was entered and uploaded by Tony Duell.
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.)
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. The data should be saved to a magnetic card.
RR000 = +1.142661330E+8 RR001 = +2.461551460E+8 RR002 = +6.661161230E+8 RR003 = +2.443351340E+8 RR004 = +4.452251110E+8 RR005 = +5.562343550E+8 RR006 = +4.451561130E+8 RR007 = +3.562331440E+8 RR008 = +2.223443450E+8 RR009 = +1.152242360E+8 RR010 = +4.461242230E+8 RR011 = +2.553334660E+8 RR012 = +2.565563340E+8 RR013 = +1.121353360E+8 RR014 = +1.364442260E+8 RR015 = +1.451662450E+8 RR016 = +3.662351220E+8 RR017 = +3.465551260E+8 RR018 = +0.000000000E+0 RR019 = +0.000000000E+0 RR020 = +0.000000000E+0 RR021 = +0.000000000E+0 RR022 = +0.000000000E+0 RR023 = +1.000000000E+1 RR024 = +0.000000000E+0 RR025 = +0.000000000E+0
LINE KEYS 01 LBL "BIG6" 02 LBL 10 03 LBL A 04 STO 22 05 RCL 24 06 997 07 * 08 FRC 09 STO 24 10 55 11 * 12 INT 13 3 14 / 15 STO 25 16 FRC 17 RCL IND 25 18 X<>Y 19 3 20 * 21 7DSP0 22 RND 23 STO 25 24 RDN 25 7GSBI 26 INT 27 PSE 28 8 29 STO 25 30 7P<>S 31 RDN 32 E2 33 / 34 XEQ 03 35 XEQ 03 36 STO 20 37 LBL 06 38 0 39 STO 25 40 XEQ 05 41 RCL 08 42 X=Y? 43 7ISZ 44 X<>Y 45 RCL 09 46 X=Y? 47 7ISZ 48 X<>Y 49 RCL 20 50 X=Y? 51 7ISZ 52 RCL 25 53 X#0? 54 7ISZ 55 7DSZ 56 RCL 25 57 RCL 21 58 + 59 STO 21 60 GTO 06 61 LBL 03 62 INT 63 STO IND 25 64 LASTX 65 FRC 66 RCL 23 67 * 68 7ISZ 69 RTN 70 LBL 00 71 E6 72 / 73 RTN 74 LBL 01 75 XEQ 00 76 FRC 77 E3 78 * 79 RTN 80 LBL 02 81 E3 82 / 83 FRC 84 E3 85 * 86 RTN 87 LBL 05 88 RCL 22 89 X=0? 90 GTO 04 91 RCL 23 92 / 93 ENTER 94 INT 95 STO 22 96 - 97 RCL 23 98 * 99 RTN 100 LBL 14 101 LBL E 102 STO 24 103 RTN 104 LBL 04 105 7DSP2 106 7P<>S 107 RCL 21 108 STOP 109 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall