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