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