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