Directory of image this file is from
This file as a plain text file

10     REM -  PROGRAM TO COMPUTE INTEREST PAYMENTS
20     PRINT "INTEREST IN PERCENT";
25     INPUT J
26     LET J=J/100
30     PRINT "AMOUNT OF LOAN";
35     INPUT A
40     PRINT "NUMBER OF YEARS";
45     INPUT N
50     PRINT "NUMBER OF PAYMENTS PER YEAR";
55     INPUT M
60     LET N=N*M
65     LET I=J/M
70     LET B=1+I
75     LET R=A*I/(1-1/B^N)
78     PRINT
80     PRINT "AMOUNT PER PAYMENT =";R
85     PRINT "TOTAL INTEREST     =";R*N-A
88     PRINT
90     LET B=A
94     LET D=0
95     PRINT "PAYMENT #     INTEREST      APP TO PRIN   BALANCE"
100    LET L=B*I
110    LET P=R-L
120    LET B=B-P
121    LET D=D+1
130    PRINT D,L,P,B
140    IF B>=R GO TO 100
141    LET D=D+1
150    PRINT D,B*I,R-B*I
160    PRINT "LAST PAYMENT ";B*I+B
200    END