Listing of file='REMBAL.BAS;01' on disk='vmedia/financial_calc-sector.ccvf'
10 REM PROGRAM TO COMPUT THE REMAINING BALANCE ON A LOAN 20 PLOT 27,11,14,12,6,1 30 PRINT TAB( 20)"REMAINING BALANCE ON A LOAN" 40 PLOT 15,6,2 50 PRINT "THIS PROGRAM COMPUTES THE BALANCE REMAINING ON A LOAN" 55 PRINT "AFTER A SPECIFIED NUMBER OF PAYMENTS HAVE BEEN MADE." 60 PRINT "IT IS NECCESSARY FOR YOU TO PROVIDE THE AMOUNT OF THE" 70 PRINT "REGULAR PAYMENT, THE NUMBER OF PAYMENTS PER YEAR, THE AMOUNT" 75 PRINT "OF THE PRINCIPAL,THE ANNUAL INTEREST RATE, AND THE PAYMENT" 80 PRINT "NUMBER AFTER WHICH TO CALCULATE THE REMAINING BALANCE..." 90 INPUT "HIT -RETURN- TO BEGIN...";G 100 IF G$= "GO"THEN 130 130 PLOT 14,10,6,6 140 INPUT "REGULAR PAYMENT = ";R 150 INPUT "PRINCIPAL = ";P 160 INPUT "# OF PAYMENTS PER YEAR = ";N 170 INPUT "ANNUAL INTEREST RATE = ";I 180 I= I/ 100 190 INPUT "# OF PAYMENTS MADE = ";N1 200 B0= P 210 FOR J1= 1TO N1 220 I1= INT ((B0* I/ N)* 100+ .5)/ 100 230 A= R- I1 240 B0= B0- A 250 NEXT J1 260 PLOT 6,3,10 270 PRINT TAB( 20)"REMAINING BALANCE = $";INT (B0* 100+ .5)/ 100 280 PLOT 15,6,2,10 290 INPUT "HAVE YOU A DIFFERENT PLAN IN MIND ?...(1=YES, 0=N0) ";X 300 IF X= 1THEN RUN 310 PLOT 1