10 REM *** Loan Amortisation Program *** Author Unknown ***
20 REM Modified to run on Amstrad computers by Advantage Computer User Group
30 REM *** June 1986 ***
40 '
50 clrs$=CHR$(27)+"E"+CHR$(27)+"H"+CHR$(12)
60 PRINT CLRS$
70 PRINT TAB(15);"  LOAN AMORTIZATION PROGRAM ";:PRINT
80 PRINT
90 PA=0
100 REM -PROGRAM TO COMPUTE INTEREST PAYMENTS
110 PRINT:PRINT "INTEREST IN PERCENT";
120 INPUT J
130 J=J/100
140 PRINT:PRINT "AMOUNT OF LOAN";
150 INPUT A
160 PRINT:PRINT "NUMBER OF YEARS";
170 INPUT N
180 PRINT:PRINT "NUMBER OF PAYMENTS PER YEAR";
190 INPUT M
200 N=N*M
210 I=J/M
220 B=1+I
230 R=A*I/(1-1/B^N)
240 PRINT
250 PRINT "AMOUNT PER PAYMENT= £";INT(R*100)/100;:PRINT
260 PRINT:PRINT "TOTAL INTEREST =";INT((R*N-A)*100)/100;" %":PRINT
270 B=A
280 PRINT:PRINT"PRESS ANY KEY TO CONTINUE"
290 WHILE k$="":k$=INKEY$:WEND
300 PRINT CLRS$
310 PRINT "PAYMENT NO.";TAB(15);"INTEREST";TAB(30);"PRINCIPAL";TAB(45);"BALANCE"
320 PRINT
330 L=B*I
340 P=R-L
350 B=B-P
360 L=INT(L*100)/100
370 P=INT(P*100)/100
380 B=INT(B*100)/100
390 PA=PA+1
400 PRINT PA;TAB(15);"£";L;TAB(30);"£";P;TAB(45);"£";B
410 IF B>=R THEN 330
420 PRINT TAB(30);"£";INT((B*1)*100)/100;TAB(45);"£";INT((R-B*I)*100)/100
430 PRINT
440 PRINT PA+1;"LAST PAYMENT =";TAB(30);"£";INT((B*I+B)*100)/100
450 PRINT
460 PRINT
470 PRINT
480 PRINT:INPUT "RUN AGAIN (Y/N)";Y$
490 IF UPPER$(Y$)="Y" GOTO 60 ELSE PRINT:PRINT:END
+CHR$(27)+"H"+CHR$(12)
;Z2;", OR MORE!!!!!"
1170 END
E!!!!!"
1170 END
77 ISSUE KILOBAUD MAG ***
30