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