10 CLS 20 PRINT "REMAINING BALANCE ON A LOAN" 30 DEFDBL A-Z 40 DEFSNG J 50 PRINT 60 PRINT "REGULAR PAYMENT"; 70 INPUT R 80 PRINT "PRINCIPAL"; 90 INPUT P 100 PRINT "NUMBER OF PAYMENTS PER YEAR"; 110 INPUT N 120 PRINT "ANNUAL INTEREST RATE"; 130 INPUT I 140 I=I/100 150 PRINT "LAST PAYMENT MADE (PAYMENT NO.,YEAR)"; 160 INPUT N1,Y 170 B0=P 180 FOR J1=1 TO N*(Y-1)+N1 190 I1=INT((B0*I/N)*100+.5)/100 200 A=R-I1 210 B0=B0-A 220 NEXT J1 230 PRINT "REMAINING BALANCE = $";INT(B0*100+.5)/100 240 PRINT 250 PRINT "MORE DATA? (1=YES, 0=NO)"; 260 INPUT X 270 IF X=1 THEN 50 280 END