10 PRINT "INITAL INVESTMENT"
20 PRINT 
29 REM - STATEMENT 30 TO 100 REQUEST USER INPUT
30 PRINT "TOTAL VALUE AFTER Y YEARS";
40 INPUT T
50 PRINT "NUMBER OF COMPOUNDING PERIODS PER YEAR";
60 INPUT N
70 PRINT "NUMBER OF YEARS";
80 INPUT Y
90 PRINT "NOMINAL INTEREST RATE";
100 INPUT I
108 REM -CALCULATE INTEREST RATE PER PERIOD;
109 REM -CONVERT FROM % TO DECIMAL
110 I=I/N/100
119 REM - CALCULATE INITIAL INVESTMENT BY FORMULA
120 P=T/(1+I)[(N*Y)
129 REM -ROUND OFF TO NEAREST CENT, PRINT
130 PRINT "INITIAL = $";INT(P*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
