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