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