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