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