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