10 CLS
20 PRINT "REGULAR PAYMENT ON A LOAN" 
30 DEFDBL A-Z
40 PRINT 
50 PRINT "TERM IN YEARS"; 
60 INPUT Y 
70 PRINT "PRINCIPAL"; 
80 INPUT P 
90 PRINT "ANNUAL INTEREST RATE"; 
100 INPUT I 
110 PRINT "NUMBER OF PAYMENTS PER YEAR"; 
120 INPUT N 
130 R=((I/100)*P/N)/(1-1/((I/100)/N+1)^(N*Y))
140 PRINT "REGULAR PAYMENT = $";INT(R*100+.5)/100
150 PRINT 
160 PRINT "MORE DATA? (1=YES, 0=NO)"; 
170 INPUT X 
180 IF X=1 THEN 40   
190 END