Savings Projection

Gallery

Source Code

   5 REM %S%A%V%I%N%G%S
  10 CLS 
  15 PRINT "SAVINGS PROJECTION"
  16 FOR G=1 TO 18
  17 PRINT "*";
  18 NEXT G
  19 PRINT 
  20 LET Z=0
  30 PRINT "PRESENT BALANCE: ";
  40 INPUT B
  50 PRINT B
  60 PRINT "INTEREST RATE: ";
  70 INPUT I
  80 PRINT I
  90 PRINT "NUMBER OF YEARS: ";
 100 INPUT Y
 110 PRINT Y
 120 FOR L=1 TO Y
 130 LET Z=Z+I*(Z+B)/100
 140 PRINT L,Z+B
 150 NEXT L
 159 PRINT "FOR MORE,PRESS ANY KEY"
 160 IF INKEY$="" THEN GOTO 160
 165 FOR 
 170 GOTO 15
 200 SAVE "1003%3"
 300 RUN