10 CLS
20 PRINT "EFFECTIVE INTEREST RATE ON INVESTMENTS" 
30 DEFDBL A-Z
40 PRINT 
50 PRINT "INITIAL INVESTMENT"; 
60 INPUT P 
70 PRINT "TOTAL VALUE AFTER Y YEARS"; 
80 INPUT T 
90 PRINT "NUMBER OF YEARS"; 
100 INPUT Y 
110 PRINT "ANNUAL INTEREST RATE  =";((T/P)^(1/Y)-1)*100;"%"
120 PRINT 
130 PRINT "MORE dATA? (1=YES, 0=NO)"; 
140 INPUT X 
150 IF X=1 THEN 40   
160 END