The Museum of HP Calculators

Compound Interest Solutions for the HP-41C/CV/CX

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

Program Listing

LINE  KEYS
 01 LBL "MONEY"
 02 LBL e
 03 SF 21
 04 SF 27
 05 CF 00
 06 FIX 02
 07 0
 08 STO 00
 09 STO 01
 10 STO 02
 11 STO 03
 12 STO 04
 13 STO 05
 14 RTN
 15 LBL 14
 16 "="
 17 ARCL X
 18 AVIEW
 19 RTN
 20 LBL a
 21 12
 22 *
 23 LBL A
 24 "N"
 25 STO 01
 26 FS?C 22
 27 GTO 14
 28 XEQ "N"
 29 GTO 14
 30 LBL b
 31 12
 32 /
 33 LBL B
 34 "I"
 35 STO 02
 36 FS?C 22
 37 GTO 14
 38 XEQ "*I"
 39 GTO 14
 40 LBL C
 41 "PV"
 42 STO 03
 43 FS?C 22
 44 GTO 14
 45 XEQ "PV"
 46 GTO 14
 47 LBL D
 48 "PMT"
 49 STO 04
 50 FS?C 22
 51 GTO 14
 52 XEQ "PMT"
 53 GTO 14
 54 LBL E
 55 "FV"
 56 STO 05
 57 FS?C 22
 58 GTO 14
 59 XEQ "FV"
 60 GTO 14
 61 LBL c
 62 "END"
 63 0
 64 STO 00
 65 FS?C 00
 66 PROMPT
 67 1
 68 STO 00
 69 SF 00
 70 "BEGIN"
 71 PROMPT
 72 LBL d
 73 ADV
 74 FS? 00
 75 GTO 00
 76 "END"
 77 AVIEW
 78 GTO 01
 79 LBL 00
 80 "BEGIN"
 81 AVIEW
 82 LBL 01
 83 "N"
 84 RCL 01
 85 XEQ 14
 86 "I"
 87 RCL 02
 88 XEQ 14
 89 "PV"
 90 RCL 03
 91 XEQ 14
 92 "PMT"
 93 RCL 04
 94 XEQ 14
 95 "FV"
 96 RCL 05
 97 GTO 14
 98 LBL "N"
 99 RCL 02
100 X=0?
101 GTO 03
102 1 E2
103 /
104 STO 06
105 RCL 03
106 *
107 RCL 04
108 +
109 X=0?
110 GTO 04
111 XEQ 08
112 RCL 09
113 SIGN
114 X>0?
115 GTO 02
116 RCL 08
117 SIGN
118 X>0?
119 GTO 01
120 LBL 04
121 "$ERROR"
122 AVIEW
123 RTN
124 LBL 03
125 RCL 03
126 RCL 05
127 +
128 RCL 04
129 /
130 CHS
131 STO 01
132 RTN
133 LBL 01
134 RCL 08
135 XEQ 10
136 CHS
137 STO 01
138 RTN
139 LBL 02
140 RCL 09
141 LBL 10
142 LN1+X
143 RCL 06
144 LN1+X
145 /
146 STO 01
147 RTN
148 LBL 09
149 RCL 03
150 ENTER
151 X<> 05
152 STO 03
153 +
154 RCL 06
155 CHS
156 STO 06
157 ABS
158 RCL 00
159 *
160 1
161 +
162 RCL 04
163 *
164 RCL 06
165 RCL 03
166 *
167 +
168 /
169 RCL 06
170 *
171 CHS
172 STO 09
173 RTN
174 LBL 08
175 XEQ 09
176 STO 08
177 XEQ 09
178 RTN
179 LBL "PV"
180 RCL 02
181 X=0?
182 GTO 00
183 XEQ 07
184 RCL 07
185 RCL 05
186 *
187 RCL 04
188 RCL 06
189 *
190 +
191 GTO 01
192 LBL 00
193 RCL 04
194 RCL 01
195 *
196 RCL 05
197 +
198 LBL 01
199 CHS
200 STO 03
201 RTN
202 LBL "PMT"
203 RCL 02
204 X=0?
205 GTO 00
206 XEQ 07
207 RCL 07
208 RCL 05
209 *
210 RCL 03
211 +
212 RCL 06
213 /
214 GTO 01
215 LBL 00
216 RCL 03
217 RCL 05
218 +
219 RCL 01
220 /
221 LBL 01
222 CHS
223 STO 04
224 RTN
225 LBL "FV"
226 RCL 02
227 X=0?
228 GTO 00
229 XEQ 07
230 RCL 06
231 RCL 04
232 *
233 RCL 03
234 +
235 RCL 07
236 /
237 GTO 01
238 LBL 00
239 RCL 04
240 RCL 01
241 *
242 RCL 03
243 +
244 LBL 01
245 CHS
246 STO 05
247 RTN
248 LBL 07
249 RCL 02
250 1 E2
251 /
252 LN1+X
253 RCL 01
254 *
255 CHS
256 E^X
257 STO 07
258 LASTX
259 E^X-1
260 CHS
261 RCL 02
262 1 E2
263 /
264 /
265 LASTX
266 RCL 00
267 *
268 1
269 +
270 *
271 STO 06
272 RTN
273 LBL "*I"
274 RCL 01
275 RCL 04
276 *
277 RCL 03
278 +
279 RCL 05
280 +
281 X=0?
282 GTO 02
283 CF 05
284 RCL 03
285 RCL 04
286 RCL 00
287 *
288 +
289 STO 06
290 LASTX
291 RCL 04
292 -
293 CHS
294 RCL 05
295 +
296 STO 07
297 RCL 01
298 1
299 X=Y?
300 GTO 00
301 RCL 04
302 X#0?
303 GTO 01
304 LBL 00
305 RCL 06
306 RCL 07
307 *
308 X=0?
309 GTO 04
310 RCL 07
311 RCL 06
312 /
313 CHS
314 RCL 01
315 1/X
316 Y^X
317 1
318 -
319 GTO 02
320 LBL 01
321 RCL 07
322 RCL 06
323 *
324 X>0?
325 GTO 04
326 RCL 01
327 1/X
328 1
329 +
330 STO 02
331 RCL 06
332 RCL 04
333 *
334 X<0?
335 XEQ 05
336 LBL 12
337 RCL 02
338 LN
339 RCL 01
340 *
341 E^X-1
342 RCL 02
343 1
344 -
345 X=0?
346 GTO 00
347 /
348 GTO 01
349 LBL 00
350 RCL 01
351 LBL 01
352 STO 08
353 1
354 -
355 RCL 04
356 *
357 RCL 02
358 RCL 01
359 Y^X
360 RCL 06
361 *
362 +
363 STO 09
364 RCL 01
365 RCL 08
366 -
367 RCL 02
368 1
369 -
370 X=0?
371 GTO 00
372 /
373 RCL 02
374 *
375 RCL 04
376 *
377 GTO 01
378 LBL 00
379 RCL 01
380 1
381 RCL 01
382 -
383 *
384 2
385 /
386 LBL 01
387 RCL 09
388 RCL 01
389 *
390 +
391 RCL 09
392 X<>Y
393 /
394 RCL 07
395 CHS
396 RCL 09
397 /
398 X<>Y
399 Y^X
400 RCL 02
401 *
402 LASTX
403 X<>Y
404 STO 02
405 X<>Y
406 %CH
407 ABS
408 1 E-6
409 X<=Y?
410 GTO 12
411 FS? 05
412 XEQ 05
413 CF 05
414 RCL 02
415 1
416 -
417 STO 02
418 LBL 02
419 1 E2
420 *
421 STO 02
422 RTN
423 LBL 05
424 SF 05
425 RCL 02
426 1/X
427 STO 02
428 RCL 07
429 X<> 06
430 STO 07
431 END

Go back to the HP-41 software library
Go back to the general software library
Go back to the main exhibit hall