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 "HORSE" 02 LBL 15 03 LBL a 04 RCL 24 05 PI 06 + 07 29 08 * 09 FRC 10 STO 24 11 RTN 12 LBL 14 13 LBL E 14 CF 00 15 CF 01 16 7DSP0 17 7CLREG 18 7P<>S 19 7CLREG 20 1 21 STOP 22 STO 24 23 2 24 STOP 25 STO 23 26 STO 25 27 LBL 09 28 XEQ 15 29 7DSZ 30 GTO 09 31 10 32 * 33 1 34 + 35 INT 36 STO 21 37 6 38 * 39 STO 22 40 1 41 STO 25 42 LBL 01 43 RCL 23 44 RCL 25 45 X>Y? 46 GTO 19 47 STOP 48 STO IND 25 49 ST+ 09 50 7ISZ 51 GTO 01 52 LBL 19 53 LBL e 54 7DSZ 55 RCL 09 56 STO 20 57 LBL 08 58 RCL IND 25 59 RCL 20 60 / 61 1/X 62 1 63 - 64 STO IND 25 65 CHS 66 7P<>S 67 STO IND 25 68 7P<>S 69 7DSZ 70 GTO 08 71 7P<>S 72 RCL 21 73 STO 00 74 RCL 22 75 STO 09 76 LBL 02 77 CLX 78 7DSP0 79 STOP 80 STO 25 81 7P<>S 82 RCL IND 25 83 7DSP1 84 PSE 85 7P<>S 86 GTO 02 87 LBL 13 88 LBL D 89 XEQ 15 90 RCL 23 91 * 92 1 93 + 94 INT 95 STO 25 96 RCL IND 25 97 PI 98 X=Y? 99 GTO 13 100 RDN 101 RCL 00 102 ST+ IND 25 103 RCL IND 25 104 RCL 09 105 X<=Y? 106 GTO 03 107 GTO 13 108 LBL 03 109 FS? 00 110 GTO 04 111 RCL 25 112 STO 20 113 SF 00 114 PI 115 STO IND 25 116 GTO 13 117 LBL 04 118 FS? 01 119 GTO 05 120 RCL 25 121 STO 21 122 SF 01 123 PI 124 STO IND 25 125 GTO 13 126 LBL 05 127 RCL 25 128 STO 22 129 RCL 20 130 E2 131 * 132 RCL 21 133 E1 134 * 135 + 136 RCL 22 137 + 138 7P<>S 139 RTN 140 LBL 10 141 LBL A 142 RCL 20 143 XEQ 17 144 XEQ 18 145 STO 00 146 7PRTX 147 RCL 21 148 XEQ 17 149 2 150 / 151 XEQ 18 152 7PRTX 153 RCL 22 154 XEQ 17 155 2.9 156 / 157 XEQ 18 158 7PRTX 159 CLX 160 7DSP0 161 RTN 162 LBL 11 163 LBL B 164 RCL 21 165 XEQ 17 166 2.2 167 / 168 XEQ 18 169 STO 00 170 7PRTX 171 RCL 22 172 XEQ 17 173 3 174 / 175 ST+ 00 176 RCL 00 177 3 178 / 179 XEQ 18 180 7PRTX 181 CLX 182 7DSP0 183 RTN 184 LBL 12 185 LBL C 186 RCL 22 187 XEQ 17 188 3.3 189 / 190 XEQ 18 191 7PRTX 192 CLX 193 7DSP0 194 RTN 195 LBL 17 196 LBL c 197 STO 25 198 RCL IND 25 199 2 200 * 201 2 202 + 203 RTN 204 LBL 18 205 LBL d 206 INT 207 ENTER 208 LASTX 209 FRC 210 5 211 * 212 INT 213 .2 214 * 215 + 216 7DSP2 217 2.2 218 X>Y? 219 X<>Y 220 RDN 221 RTN 222 GTO 67 223 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall