HP12c Credit Card Payment Calculation

[gpltaylor]

Hi All, I came across this post on my travels and I wanted to post what I use.

NOTE: This is not within a loop, it's used to proof each iteration of an amortisation calculation. however, adding a loop and storing the agrigates within REGs will not be hard to add.

The following registers need to be assigned before running the program

########## Required REGs#################
# Calc Interest
## I = (Annual Rate / 100 / 12)
## PV = Loan
## 3% STO 1 (REG 1 is the min payment %)

########## REGs Values after Running #########

### Register Afer run
# 7: Interest Payment
# 8: Min Payment
# PV: Current PV after deduction

########## The Program #################
f P/RCL
f PRGM

### Calculate the Interest
RCL PV
RCL I (need to be Annual Rate / 100 / 12)
*
ENTER
STO 7 ## We need this later on to add to the PV

### Calculate the Min Payment
RCL PV
RVL 1
*
STO 8

## Calculate New PV
RCL PV
RCL 7
+
STO PV
RCL PV
RCL 8
-
STO PV

f P/R
g GTO 00

###########
18
100
-
STO i
2000
STO PV
R/S
###

I hope this is useful