This program is Copyright © HP and is used here by permission. It was originally printed in the Electrical Engineering 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 "AF" 02 ENG 03 03 "FO?" 04 PROMPT 05 STO 00 06 "A?" 07 PROMPT 08 STO 01 09 "PF?" 10 PROMPT 11 STO 02 12 "C?" 13 PROMPT 14 STO 03 15 STOP 16 LBL "LP" 17 RCL 02 18 2 19 / 20 RCL 01 21 / 22 XEQ A 23 / 24 STO 05 25 "R1=" 26 XEQ 05 27 RCL 03 28 4 29 * 30 RCL 01 31 1 32 + 33 * 34 RCL 02 35 X^2 36 / 37 "C2=" 38 XEQ 05 39 RCL 02 40 2 41 / 42 RCL 01 43 1 44 + 45 / 46 RCL 04 47 / 48 "R3=" 49 XEQ 05 50 RCL 01 51 RCL 05 52 * 53 "R4=" 54 XEQ 05 55 RCL 03 56 "C5=" 57 GTO 05 58 LBL "HP" 59 RCL 03 60 "C1=C3=" 61 XEQ 05 62 RCL 01 63 / 64 "C4=" 65 XEQ 05 66 XEQ A 67 RCL 02 68 X<>Y 69 / 70 2 71 RCL 01 72 1/X 73 + 74 / 75 "R2=" 76 XEQ 05 77 RCL 03 78 RCL 01 79 2 80 * 81 1 82 + 83 RCL 02 84 / 85 RCL 04 86 / 87 "R5=" 88 GTO 05 89 LBL "BP" 90 XEQ A 91 RCL 01 92 * 93 RCL 02 94 * 95 1/X 96 "R1=" 97 XEQ 05 98 2 99 RCL 02 100 X^2 101 / 102 RCL 01 103 - 104 RCL 04 105 * 106 RCL 02 107 * 108 1/X 109 "R2=" 110 XEQ 05 111 RCL 03 112 "C3=C4=" 113 XEQ 05 114 2 115 RCL 02 116 / 117 RCL 04 118 / 119 "R5=" 120 LBL 05 121 ARCL X 122 AVIEW 123 STOP 124 RTN 125 LBL A 126 2 127 PI 128 * 129 RCL 00 130 * 131 RCL 03 132 * 133 STO 04 134 RTN 135 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall