The Museum of HP Calculators

Constant Payment to Principal Loan for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the Lend/Save/Lease Solution Book. 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

Program Listing

LINE  KEYS
 01 LBL "CPMT"
 02 STOP
 03 LBL A
 04 CF 01
 05 "K ?"
 06 PROMPT
 07 STO 00
 08 LBL 01
 09 SF 21
 10 "INT ?"
 11 PROMPT
 12 1 E2
 13 /
 14 STO 01
 15 "CPMT ?"
 16 PROMPT
 17 STO 02
 18 "PV ?"
 19 PROMPT
 20 STO 03
 21 FS? 01
 22 RTN
 23 RCL 00
 24 "K"
 25 XEQ 09
 26 LBL E
 27 RCL 03
 28 RCL 02
 29 RCL 00
 30 *
 31 -
 32 STO 04
 33 RCL 02
 34 +
 35 RCL 01
 36 *
 37 STO 07
 38 1
 39 ST+ 00
 40 RCL 07
 41 "PMT. I."
 42 XEQ 09
 43 RCL 02
 44 +
 45 "T. PMT."
 46 XEQ 09
 47 RCL 04
 48 "BAL."
 49 XEQ 09
 50 LBL 00
 51 2
 52 RCL 00
 53 -
 54 RCL 02
 55 *
 56 RCL 03
 57 /
 58 2
 59 +
 60 2
 61 /
 62 RCL 00
 63 1
 64 -
 65 *
 66 RCL 01
 67 *
 68 RCL 03
 69 *
 70 FS? 01
 71 RTN
 72 "T. INT."
 73 XEQ 09
 74 RCL 03
 75 RCL 02
 76 /
 77 RCL 00
 78 X>Y?
 79 RTN
 80 ADV
 81 "K"
 82 XEQ 09
 83 GTO E
 84 LBL B
 85 SF 01
 86 XEQ 01
 87 "B. PER. NO. ?"
 88 PROMPT
 89 STO 06
 90 "E. PER. NO. ?"
 91 PROMPT
 92 1
 93 +
 94 STO 00
 95 XEQ 00
 96 STO 05
 97 RCL 06
 98 STO 00
 99 XEQ 00
100 RCL 05
101 X<>Y
102 -
103 "ACC. INT."
104 LBL 09
105 "="
106 ARCL X
107 AVIEW
108 RTN
109 END

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