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