File: INTRST.FC of Tape: Sources/Focal/fc3
(.FC,.FO Focal format converted to 'WRITE' listing)
C-PS/8 FOCAL, 1971 01.01 C INTRST FROM 'FOCAL PROGRAMMING MANUAL' PDP-15 SYSTEMS 01.02 C COPYRIGHT 1970 BY DIGITAL EQUPMENT CORP. 01.03 C REPRINTED BY PERMISSION OF DIGITAL EQUIPMENT CORP. 01.04 C LAST CHANGE: 8/9/71 01.05 01.06 C THIS PROGRAM WILL COMPUTE MONTHLY PAYMENTS AND THE 01.07 C CONTRIBUTION OF EACH PAYMENT TO INTEREST AND PRINCIPAL. 01.08 C YOU WILL BE ASKED THE AMOUNT OF THE PRINCIPAL, THE RATE 01.09 C OF THE INTEREST, AND THE TERM OF THE LOAN, WHICH IS IN 01.10 C MONTHS. THE PROGRAM WILL THEN OUTPUT A TABLE SHOWING 01.11 C THE PROGRESSION OF THE LOAN. 01.12 01.33 E 01.34 A "PRINCIPAL: ",PR,!"INTEREST RATE: ",IN 01.35 A !"TERM (IN MONTHS): ",TE,!! 01.40 S D=1+((IN/12)*.01) 01.41 F A=1,TE;D 15.99 01.42 S C=PR/B 01.50 S BA=PR 05.02 T "PRINCIPAL:",%7.02,PR,:30"PAYMENTS",C,!!! 05.05 T :5,"PAYMENT",:17,"INTEREST",:32,"PRINCIPAL",:50,"BALANCE",! 06.01 F M=1,TERM;D 7 06.02 T !!!,:20,"TOTAL INTEREST",%6.02,TO,!!!;G 1.33 07.01 S CI=BA*(IN/12)*.01 07.02 S TO=TO+CI 07.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)