C-PS/8 FOCAL, 1971
 1.01 C     INTRST FROM 	FOCAL PROGRAMMING MANUAL	 PDP-15 SYSTEMS
 1.02 C     COPYRIGHT 1970  BY DIGITAL EQUPMENT CORP.
 1.03 C     REPRINTED BY PERMISSION OF DIGITAL EQUIPMENT CORP.
 1.04 C     LAST CHANGE: 8/9/71
 1.05 
 1.06 C     THIS PROGRAM WILL COMPUTE MONTHLY PAYMENTS AND THE 
 1.07 C CONTRIBUTION OF EACH PAYMENT TO INTEREST AND PRINCIPAL.
 1.08 C YOU WILL BE ASKED THE AMOUNT OF THE PRINCIPAL, THE RATE
 1.09 C OF THE INTEREST, AND THE TERM OF THE LOAN, WHICH IS IN
 1.10 C MONTHS.  THE PROGRAM WILL THEN OUTPUT A TABLE SHOWING
 1.11 C THE PROGRESSION OF THE LOAN.
 1.12 
 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)