Appears on
Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.
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