1 REM LOAN--COMPUTES LOAN AMORTIZATION SCHEDULE 2 PRINT:PRINT "LOAN AMORTIZATION PROGRAM" 3 PRINT "YOU MUST INDICATE THE INTERVAL OF PRINTOUT";: PRINT " - 1 FOR EVERY MONTH" 4 PRINT "6 FOR EVERY SIX MONTH, 12 FOR EVERY YEARLY PRINTOUT" 5 PRINT "ENTER THE PRINCIPAL AMOUNT OF LOAN, INTEREST RATE" 6 PRINT "PER YEAR IN PERCENT, AND THE TERM IN YEARS OF LOAN." 7 PRINT 8 PRINT 9 PRINT "EXAMPLE: 1,15000.00, 6, 25 - THIS WILL PRINT MONTHLY" 10 PRINT "PAYMENTS FOR A LOAOF 15000 AT 6% FOR 25 YEARS" 11 PRINT 12 PRINT 13 INPUT M1,P2,R1,T1 14 PRINT 15 PRINT 16 LET N1=M1 18 LET R2=R1/1200 19 LET T2=T1*12 20 LET A1=(1+R2)^T2 30 LET P1=(P2*R2*A1)/(A1-1) 35 LET P1=INT(100*P1+.5)/100 40 PRINT "PRINCIPAL = $"P2 42 PRINT "RATE ="R1"PERCENT PER YEAR" 45 PRINT "TERM ="T1"YEARS" 50 PRINT "MONTHLY PAYMENT (PRINCIPAL AND INTEREST) = $"P1 55 PRINT 60 PRINT "PYMT NO. OLD BAL. PRIN PYMT. INT PYMT."; 61 PRINT " NEW BAL." 62 LET P4=P2 63 LET P6=0 64 LET I2=0 65 LET B1=1 66 LET X1=0 67 LET P2=P4 70 LET I1=INT((100*P2*R2)+.5)/100 80 LET P3=P1-I1 85 LET P3=INT(100*P3+.5)/100 90 LET P4=P2-P3 95 LET P4=INT(100*P4+.5)/100 100 IF B1/N1-INT(B1/N1)=0 THEN 181 101 LET P6=P6+P3 102 LET I2=I2+I1 103 IF X1=1 THEN 140 105 LET B1=1+B1 110 IF B1