Investment Growth

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

Appears on

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

Gallery

Investment Growth

Source Code

   5 REM POSNEG GROWTH(INVESTMENT)
  10 PRINT "INVESTMENT GROWTH"
  20 PRINT 
  30 PRINT "ENTER BEG. AMT"
  40 INPUT B
  41 PRINT B
  50 PRINT "ENTER END.AMT"
  60 INPUT E
  61 PRINT E
  70 PRINT "ENTER NR OF YEARS"
  80 INPUT N
  81 PRINT N
  90 PRINT 
 100 LET I=((E/B)**(1/N))-1
 110 LET I=INT ((I*10000)+.5)/100
 120 LET C=E-B
 130 IF I<0 THEN GOTO 210
 140 PRINT "      POSITIVE GROWTH"
 150 GOSUB 400
 190 PRINT "PC INCREASE  ";I
 200 GOTO 270
 210 PRINT "NEGATIVE GROWTH"
 220 GOSUB 400
 260 PRINT "PC DECLINE";I
 270 PRINT 
 280 PRINT "ANOTHER CALCULATION? ENTER Y OR N"
 290 INPUT Q$
 300 IF Q$="Y" THEN GOTO 20
 310 GOTO 500
 400 PRINT "BEG.AMT.  ";B
 410 PRINT "END AMT.  ";E
 420 PRINT "CHANGE    ";C
 430 PRINT "YRS.      ";N
 440 RETURN 
 500 STOP 
 510 SAVE "1012%2"
 520 RUN 

People

No people associated with this content.

Scroll to Top