10 PRINT "NOMINAL INTEREST RATE ON INVESTMENTS"
20 PRINT
29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT
30 PRINT "PRINCIPAL";
40 INPUT P
50 PRINT "TOTAL VALUE";
60 INPUT T
70 PRINT "NUMBER OF YEARS";
80 INPUT Y
90 PRINT "NUMBER OF COMPOUNDING PERIODS PER YEAR";
100 INPUT N
109 REM - CALCULATE NOMINAL INTEREST RATE BY FORMULA, PRINT
110 I2=N*((T/P)[(1/(N*Y))-1)*100
120 PRINT "NOMINAL INTEREST RATE=";I2;"%"
129 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION
130 PRINT 
139 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED
140 PRINT "MORE DATA: (1=YES,0=NO)";
150 INPUT X
160 IF X=1 THEN 20
170 END
