The Museum of HP Calculators
The Museum of HP Calculators
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
LINE KEYS 01 LBL "PARPAR" 02 LBL 10 03 LBL A 04 STO 09 05 ST- 08 06 XEQ 11 07 7DSP2 08 7PRTX 09 STO 23 10 24 11 - 12 X=0? 13 SF 01 14 X>0? 15 XEQ 07 16 RCL 09 17 * 18 CHS 19 7DSP2 20 PSE 21 FS? 01 22 CLX 23 ST+ 08 24 RCL 08 25 CF 01 26 RTN 27 LBL 07 28 7DSP0 29 STO 23 30 PSE 31 5 32 STO 25 33 0 34 STO 07 35 LBL 08 36 XEQ 19 37 CHS 38 7PRTX 39 CHS 40 RCL 23 41 X=Y? 42 XEQ 09 43 7DSZ 44 GTO 08 45 RCL 07 46 RCL 23 47 * 48 RTN 49 LBL 09 50 1 51 ST+ 07 52 RTN 53 LBL 11 54 LBL B 55 5 56 STO 22 57 LBL 04 58 STO 25 59 CLX 60 ENTER 61 LBL 03 62 10 63 * 64 XEQ 19 65 STO IND 25 66 + 67 7DSZ 68 GTO 03 69 7DSP0 70 7PRTX 71 RCL 22 72 LBL 02 73 STO 21 74 STO 20 75 STO 25 76 RCL IND 25 77 LBL 00 78 RCL IND 25 79 X>Y? 80 XEQ 01 81 X<>Y 82 7DSZ 83 GTO 00 84 RCL 21 85 STO 25 86 CLX 87 + 88 RCL IND 25 89 X<>Y 90 STO IND 25 91 CLX 92 + 93 RCL 20 94 STO 25 95 X<>Y 96 STO IND 25 97 RCL 21 98 1 99 - 100 X#0? 101 GTO 02 102 RCL 22 103 STO 25 104 7DSZ 105 GTO 05 106 GTO 14 107 LBL 05 108 RCL IND 25 109 5 110 X<=Y? 111 GTO 06 112 RCL 25 113 STO 22 114 X=0? 115 GTO 14 116 XEQ 14 117 24 118 X<>Y 119 X>Y? 120 GTO 14 121 X=Y? 122 GTO 18 123 RCL 22 124 GTO 04 125 LBL 06 126 7DSZ 127 GTO 05 128 LBL 14 129 LBL E 130 RCL 05 131 RCL 04 132 + 133 RCL 03 134 + 135 RCL 02 136 + 137 RCL 01 138 + 139 RTN 140 LBL 18 141 LBL d 142 FS?C 02 143 GTO 14 144 RCL 01 145 4 146 X<=Y? 147 GTO 14 148 1 149 SF 02 150 GTO 04 151 LBL 01 152 RCL 25 153 STO 20 154 CLX 155 + 156 X<>Y 157 RTN 158 LBL 19 159 LBL e 160 RCL 24 161 997 162 * 163 FRC 164 STO 24 165 6 166 * 167 1 168 + 169 INT 170 RTN 171 LBL 12 172 LBL C 173 STO 24 174 RTN 175 STOP 176 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall