FOCAL (Formula Calculator)

• 1.06 C THIS PROGRAM WILL COMPUTE MONTHLY PAYMENTS
• 1.33 E
• 1.34 A "PRINCIPAL: ",PR,!"INTEREST RATE: ",IN
• 1.35 A !"TERM (IN MONTHS): ",TE,!!
• 1.40 S D=1+((IN/12)*.01)
• 1.41 F A=1,TE;D 15.99
• 1.42 S C=PR/B
• 1.50 S BA=PR
• 5.02 T "PRINCIPAL:",%7.02,PR,:30"PAYMENTS",C,!!!
• 5.05 T :5,"PAYMENT",:17,"INTEREST",:32,"PRINCIPAL",:50,"BALANCE",!
• 6.01 F M=1,TERM;D 7
• 6.02 T !!!,:20,"TOTAL INTEREST",%6.02,TO,!!!;G 1.33
• 7.01 S CI=BA*(IN/12)*.01
• 7.02 S TO=TO+CI
• 7.03 S CP=C-CI;S BA=BA-CP;T %7,M,%14.02,CI,CP,BA,!
• 15.99 S B=B+(1/D^A)