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