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