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