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