10 CLS 20 PRINT "FUTURE VALUE OF AN InVESTMENT" 30 DEFDBL A-Z 40 PRINT 50 PRINT "INITIAL INVESTMENT"; 60 INPUT P 70 PRINT "NOMINAL INTEREST RATE"; 80 INPUT I 90 PRINT "NUMBER OF COMPOUNDING PERIODS PER YEAR"; 100 INPUT N 110 PRINT "NUMBER OF YEARS"; 120 INPUT Y 130 I=I/N/100 140 T=P*(1+I)^(N*Y) 150 PRINT "FUTURE VALUE=$";INT(T*100+.5)/100 160 PRINT 170 PRINT "MORE DATA? (1=YES, 0=NO)"; 180 INPUT X 190 IF X=1 THEN 40 200 END