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