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