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