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