10 CLS
20 PRINT "TERM OF A LOAN"
30 DEFDBL A-Z
40 PRINT 
50 PRINT "REGUAR PAYMENT"; 
60 INPUT R 
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 Y=-(LOG(1-(P*(I/100))/(N*R))/(LOG(1+I/100/N)*N))
140 PRINT "TERM =";INT(Y*10+.5)/10;"YEARS"
150 PRINT 
160 PRINT "MORE DATA? (1=YES, 0=NO)"; 
170 INPUT X 
180 IF X=1 THEN 40   
190 END