1 REM ALL THESE PROGRAMS ON THIS TAPE ARE FULLY DOCUMENTED
2 REM IN "SOME COMMON BASIC PROGRAMS" BY LON POOLE AND MARY
3 REM BORCHERS (OSBORNE & ASSOCIATES, 630 BANCROFT WAY, 
4 REM BERKELEY CA 94710 - $7.50 PLUS $.50 FOR U.P.S DELIVERY,
5 REM ELSE 4TH CLASS MAIL, COPYRIGHT 1977, OSBORNE & ASSOC.)
6 REM USED BY PERMISSION.
10 PRINT "FUTURE VALUE OF AN INVESTMENT"
20 PRINT
29 REM -STATEMENTS 30 TO 100 REQUEST USER INPUT
30 PRINT "INITIAL INVESTMENT";
40 INPUT P
50 PRINT "NOMINAL INTEREST RATE";
60 INPUT I
70 PRINT "NUMBER OF COMPOUNDING PERIODS PER YEAR";
80 INPUT N
90 PRINT "NUMBER OF YEARS";
100 INPUT Y
108 REM - CALCULATE INTEREST RATE PER PERIOD;
109 REM - CONVERT FROM PERCENT TO DECIMAL
110 I=I/N/100
119 REM -CALCULATE FUTURE VALUE BY FORMULA
120 T=P*(1+I)[(N*Y)
129 REM - ROUND OFF TO NEAREST CENT, PRInt
130 PRINT "FUTURE VALUE=$"; INT(T*100+.5)/100
139 REM -PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION
140 PRINT
149 REM -RESTART OR END PROGRAM? USER INPUT REQUIRED
150 PRINT "MORE DATA? (1=YES,0=NO)";
160 INPUT X
170 IF X=1 THEN 20
180 END
