Effective Interest

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.

Gallery

Effective Interest

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 

People

No people associated with this content.

Scroll to Top