Interest

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

Appears on

Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.

Gallery

Interest

Source Code

  10 PRINT "INTEREST"
  20 PRINT "INITIAL AMMOUNT"
  30 INPUT A
  40 PRINT AT 0,20;A
  50 PRINT "MONTHLY DEPOSIT"
  60 INPUT B
  70 PRINT AT 1,20;B 
  80 PRINT "ANNUAL INTEREST"
  90 INPUT I
 100 PRINT AT 2,20;I
 110 LET C=0
 120 PRINT "LENGTH OF TIME"
 130 INPUT T
 140 PRINT AT 3,20;T
 150 FAST 
 160 LET T=T*12
 170 LET I=I/100/12+1
 180 LET D=A
 190 IF C=T THEN GOTO 230
 200 LET A=(A+B)*I
 210 LET C=C+1
 220 GOTO 190
 230 PRINT "TOTAL VALUE";TAB 20;A
 240 PRINT "TOTAL INVESTMENT";TAB 20;T*B+D
 250 PRINT "TOTAL INTEREST";TAB 20;A-(T*B+D)
 260 STOP 
 270 SAVE "1016%2"
 280 RUN 

People

No people associated with this content.

Scroll to Top