10 PRINT "EFFECTIVE INTEREST RATE ON INVESTMENTS"
20 PRINT 
29 REM - STATEMENTS 30-80 REQUEST USER INPUT
30 PRINT "INITAL INVESTMENT";
40 INPUT P
50 PRINT "TOTAL VALUE AFTER Y YEARS";
60 INPUT T
70 PRINT "NUMBER OF YEARS";
80 INPUT Y
89 REM - CALCULATE EFFECTIVE INTEREST RATE, PRINT
90 PRINT "ANNUAL INTEREST RATE =";((T/P)[(1/Y)-1)*100,"%"
99 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION
100 PRINT
109 REM - RESTART OR END PROGRAM?
110 PRINT "MORE DATA? (1=YES, 0=NO)";
120 INPUT X
130 IF X=1 THEN 20
140 END
