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