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
