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 Applied Stats 1 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 "ANVA3" 02 LBL A 03 CLRG 04 STOP 05 STO 20 06 13 07 X<=Y? 08 GTO 09 09 ADV 10 LBL 01 11 STOP 12 2 13 * 14 28 15 + 16 STO 13 17 STOP 18 ST+ IND 25 19 XROM 30,29 20 ST+ IND 13 21 SREG 14 22 S+ 23 GTO 01 24 LBL B 25 RCL 15 26 ST+ 26 27 RCL 14 28 "~R" 29 XEQ 11 30 ST+ 27 31 X^2 32 ST+ 28 33 CLS 34 0 35 STO 25 36 1 37 ST+ 29 38 RCL 20 39 RCL 29 40 X#Y? 41 GTO 01 42 ADV 43 LBL 02 44 RCL IND 25 45 "~C." 46 XEQ 11 47 X^2 48 ST+ 21 49 XROM 30,29 50 RCL 20 51 RCL 25 52 X#Y? 53 GTO 02 54 ADV 55 30 56 STO 25 57 LBL 03 58 RCL IND 25 59 "~T." 60 XEQ 11 61 X^2 62 ST+ 22 63 LASTX 64 RCL 20 65 / 66 "MOY.T" 67 XEQ 11 68 XROM 30,29 69 RCL 20 70 STO IND 25 71 XROM 30,29 72 RCL 20 73 2 74 * 75 30 76 + 77 RCL 25 78 X#Y? 79 GTO 03 80 ADV 81 RCL 27 82 X^2 83 RCL 20 84 X^2 85 / 86 STO 01 87 RCL 26 88 RCL 01 89 - 90 STO 00 91 RCL 28 92 RCL 20 93 / 94 RCL 01 95 - 96 STO 02 97 RCL 21 98 RCL 20 99 / 100 RCL 01 101 - 102 STO 03 103 RCL 22 104 RCL 20 105 / 106 RCL 01 107 - 108 STO 04 109 RCL 00 110 RCL 02 111 RCL 03 112 RCL 04 113 + 114 + 115 - 116 STO 07 117 RCL 20 118 1 119 - 120 STO 09 121 RCL 20 122 2 123 - 124 * 125 STO 06 126 RCL 07 127 X<>Y 128 / 129 STO 05 130 "ANVA" 131 AVIEW 132 RCL 09 133 2 134 STO 25 135 "RANG." 136 AVIEW 137 XEQ 04 138 "COL." 139 AVIEW 140 XEQ 04 141 "TRAIT." 142 AVIEW 143 XEQ 04 144 "ERR." 145 AVIEW 146 RCL 06 147 "D.L." 148 XEQ 11 149 RCL 07 150 "S.C." 151 XEQ 11 152 RCL 05 153 "C.M." 154 XEQ 11 155 ADV 156 "TOT." 157 AVIEW 158 RCL 20 159 X^2 160 1 161 - 162 "D.L." 163 XEQ 11 164 RCL 00 165 "S.C." 166 XEQ 11 167 RTN 168 LBL 04 169 RCL 09 170 "D.L." 171 XEQ 11 172 RCL IND 25 173 "S.C." 174 XEQ 11 175 X<>Y 176 / 177 "C.M." 178 XEQ 11 179 RCL 05 180 / 181 STO 10 182 "F" 183 XEQ 11 184 XEQ 05 185 XROM 30,29 186 RTN 187 LBL 05 188 2 189 9 190 / 191 STO 17 192 RCL 09 193 / 194 STO 14 195 RCL 17 196 RCL 06 197 / 198 STO 17 199 1 200 - 201 CHS 202 RCL 10 203 3 204 1/X 205 Y^X 206 * 207 1 208 RCL 14 209 - 210 - 211 STO 15 212 RCL 17 213 RCL 10 214 2 215 3 216 / 217 Y^X 218 * 219 RCL 14 220 + 221 SQRT 222 RCL 15 223 X<>Y 224 / 225 STO 16 226 X>0? 227 SF 02 228 ABS 229 1 230 RCL 16 231 .196854 232 * 233 + 234 RCL 16 235 X^2 236 .115194 237 * 238 + 239 RCL 16 240 3 241 Y^X 242 .000344 243 * 244 + 245 RCL 16 246 4 247 Y^X 248 .019527 249 * 250 + 251 -4 252 Y^X 253 2 254 / 255 CHS 256 1 257 + 258 FIX 03 259 FS?C 02 260 XEQ 06 261 "P" 262 XEQ 11 263 FIX 02 264 ADV 265 RTN 266 LBL 06 267 1 268 X<>Y 269 - 270 RTN 271 LBL 11 272 "=" 273 ARCL X 274 AVIEW 275 RTN 276 LBL E 277 RCL 25 278 1 279 - 280 STO 25 281 STOP 282 2 283 * 284 28 285 + 286 STO 24 287 STOP 288 ST- IND 24 289 ST- IND 25 290 S- 291 GTO 01 292 LBL e 293 STOP 294 1 295 - 296 STO 23 297 STOP 298 2 299 * 300 28 301 + 302 STO 24 303 STOP 304 ST- IND 23 305 ST- IND 24 306 S- 307 STOP 308 2 309 * 310 28 311 + 312 STO 24 313 STOP 314 ST+ IND 23 315 ST+ IND 24 316 S+ 317 GTO 01 318 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall