10 CLS
20 PRINT "ANNUAL INTEREST RATE ON A LOAN"
30 PRINT 
40 PRINT "REGULAR PAYMENT"; 
50 INPUT R 
60 PRINT "TERM IN YEARS"; 
70 INPUT Y
80 PRINT "PRINCIPAL"; 
90 INPUT P 
100 PRINT "NUMBER OF PAYMENTS PER YEAR"; 
110 INPUT N 
120 I=10 
130 I2=0 
140 R1=(I*P/N)/(1-1/((I/N+1)^(N*Y))) 
150 R1=INT(R1*100+.5)/100 
160 I3=ABS(I-I2)/2 
170 I2=I 
180 IF R1=R THEN 240  
190 IF R1>R THEN 220  
200 I=I+I3 
210 GOTO 140  
220 I=I-I3 
230 GOTO 140  
240 I=((INT((I*1000)*100+.5))/100)/1000
250 PRINT "ANNUAL INTEREST RATE =";I*100;"%"
260 PRINT 
270 PRINT "MORE DATA? (1=YES, 0=N0)"; 
280 INPUT X 
290 IF X=1 THEN 30   
300 END