10 '********************
20 '    The Financier
30 '   by Dirk Tjossem
40 'copyright1982 Artsci
50 '********************
60 CLS
70 '
80 '
90 PRINT "Term of"
100 INPUT "Loan? ",T
110 INPUT "Annual Rate (%)? ",AR
120 INPUT "Principal $",P
130 INPUT "No.Pymts/Yr? ",PY
140 RP=((AR/100)*P/PY)/(1-1/((AR/100)/PY+1)^(PY*T))
150 RP=INT(RP*100+SGN(RP)*.5)/100
160 LPRINT "Loan:";: LPRINT USING "$$#########,.##";P
170 LPRINT"at";AR;"% APR for";T;"years"
180 LPRINT"paid";PY;"times a year."
190 PRINT "Reg Pymt";: PRINT USING "$$#####.##"; RP
200 LPRINT "Reg Pymt: ";: LPRINT USING "$$####,.##"; RP
210 LPRINT:LPRINT
220 LPRINT"   Period{  *Beg Bal"
230 LPRINT"    Crt Int<>Acc Int"
240 LPRINT"   Pr Pymt<>Acc PrPymt"
250 FOR J=1 TO T*PY
260 LPRINT
270 LPRINT USING "###";J;
280 LPRINT "{ ";
290 LPRINT USING "**$########,.##";P
300 IP=P*AR/100/PY
310 IP=INT(IP*100+SGN(IP)*.5)/100
320 LPRINT USING "######,.##-"; IP;
330 IT=IT+IP
340 LPRINT USING "######,.##-"; IT
350 PR=RP-IP: IF ABS(P-PR)<.10 THEN PR=P
360 PT=PT+PR
370 LPRINT USING "######,.##-"; PR;
380 LPRINT USING "######,.##-"; PT
390 P=P-PR
400 LPRINT"     ";: LPRINT USING "**$########,.##";P
410 NEXT