CP()0J HSC-PS/8 FOCAL, 1971?MD7BE?MB.B"A "PRINCIPAL: ",PR,!"INTEREST RATE: ",IN?MCBA !"TERM (IN MONTHS): ",TE,!!?MF9B(S D=1+((IN/12)*.01)?MCTB*S C=PR/B?MC[B2S BA=PR?MI>JBT "PRINCIPAL:",%7.02,PR,:30"PAYMENTS",C,!!!?MGHLAF M=1,TERM;D 7?MDKNAS CI=BA*(IN/12)*
01?MDSNBS TO=TO+CI?MD-NCS CP=C-CI;S BA=BA-CP;T %7,M,%14.02,CI,CP,BA,!?M
S B=B+(1/D^A)?MEWBFC     THIS PROGRAM WILL COMPUTE MONTHLY PAYMENTS AND THE ?ME7BGC CONTRIBUTION OF EACH PAYMENT TO INTEREST AND PRINCIPAL.?MFWBHC YOU WILL BE ASKED THE AMOUNT OF THE PRINCIPAL, THE RATE?MG"BIC OF THE INTEREST, AND THE TERM OF THE LOAN, WH
CH IS IN?MGDBL?MCMB)F A=1,TE;D 15.99?MBWB!E?MC>LBT !!!,:20,"TOTAL INTEREST",%6.02,TO,!!!;G 1.33?MHABJC MONTHS.  THE PROGRAM WILL THEN OUTPUT A TABLE SHOWING?MF6BKC THE PROGRESSION OF THE LOAN.?MISBAC     INTRST FROM 	FOCAL PROGRAMMING MANUAL	 PDP-15 SYSTE
S?MI.BCC     REPRINTED BY PERMISSION OF DIGITAL EQUIPMENT CORP.?MH4BBC     COPYRIGHT 1970  BY DIGITAL EQUPMENT CORP.?MBTBDC     LAST CHANGE: 8/9/71?MC4JET :5,"PAYMENT",:17,"INTEREST",:32,"PRINCIPAL",:50,"BALANCE",!?M  L D INTRST;L S INTRST;L R CHISQR?M?M"
RINCIPAL",:50,"BALANCE",!?RTING LOCATION: 1.34?MH?H?H?H?H?H?H?H?H?H?H?H?H?H?H?H?H?H?H?H?F M=1,TERM;D 7?MF;LBT !!!,:20,"TOTAL INTEREST",%6.02,TO,!!!;G 1.7TCY*I>I3C3A7LR 3YOPT7L2J*I+MCP7IR 3YOPT	V6/KP3EWS3RWV* C3CGHR6)2JC3K[N.,BI*I>I3CWH+CCK3ASN2 WR7SSE6 WN
MWB3RZ 3L
A"M&J7I+S2 [NL7G6JNI+KCP3CGL*I>I/A+C*=B0+ICF+NCO3N7U7BKE"M&J7I+S2 C3K[N6IN/+KCP7RSE3U;R2 [I6 WN3MWBR*M2I7J3P& 2 C3K[N2MNJ3T
L*=:I2MNJ

Note: Lines longer than 256 characters were wrapped