Source Code
5 REM %E%F%F%E%C%T%I%V%E% %I%N%T%E%R%E%S%T
10 PRINT
20 PRINT "ENTER PAYMENTS IN 1 YEAR"
30 INPUT P
31 PRINT P
40 PRINT "TOTAL NR OF PAYMENTS"
50 INPUT N
51 PRINT N
60 PRINT "ENTER AMT OF PAYMENT"
70 INPUT A
71 PRINT A
80 PRINT "HOW MUCH IS BORROWED?"
90 INPUT B
91 PRINT B
120 LET R=2*P*((N*A)-B)/(B*(N+1))
130 LET R=INT (R*1000+.5)/10
135 PRINT
140 PRINT "THE EFFECTIVE INTEREST RATE ON THIS LOAN IS ";R;" PCT"
150 PRINT
160 PRINT "ANOTHER CALCULATION? ENTER Y OR N"
170 INPUT C$
180 IF C$="N" THEN GOTO 200
190 GOTO 10
200 SAVE "1011%1"
210 LIST
