Listing of file='LASPAY.BAS;01' on disk='vmedia/financial_calc-sector.ccvf'
10 REM LAST PAYMENT ON A LOAN 15 PLOT 14,6,3,12 30 PRINT " LAST PAYMENT ON A LOAN OR CALCULATING A BALLOON PAYMENT" 55 PLOT 15,10,6,2 60 PRINT "THIS PROGRAM CALCULATES THE AMOUNT OF THE FINAL PAYMENT " 65 PRINT "OF A LOAN. THIS FINAL PAYMENT WILL COMPLETE AMORTIZING A" 70 PRINT "LOAN AT THE CONCLUSION OF ITS TERM. YOU WILL NEED TO" 75 PRINT "PROVIDE THE AMOUNT OF THE LOAN, THE AMOUNT OF THE REGULAR" 80 PRINT "PAYMENT, THE INTEREST RATE CHARGED, THE NUMBER OF PAYMENTS" 90 PRINT "PER YEAR AND THE TERM OR LENGTH OF THE LOAN..." 120 INPUT "HIT -RETURN- TO CONTINUE ";G 200 PLOT 14,6,1,10 210 INPUT "REGULAR PAYMENT = ";R 220 INPUT "PRINCIPAL = ";P 230 INPUT "TERM IN YEARS, MONTHS = ";Y0,M:Y= (12* Y0+ M)/ 12 240 INPUT "ANNUAL INTEREST RATE = ";I:I= I/ 100 250 INPUT "# OF PAYMENTS PER YEAR = ";N:B0= P 260 FOR J1 = 1TO N* Y 270 I1= INT ((B0* I/ N)* 100+ .5)/ 100 280 A= R- I1 290 B0= B0- A 300 NEXT J1 310 PLOT 10,6,2 320 PRINT TAB( 20)"LAST PAYMENT = $";INT ((R+ B0)* 100+ .5)/ 100 330 PLOT 15,6,1 340 INPUT "MORE DATA? (1=YES, 0=NO) ";X 350 IF X= 1THEN RUN 360 PLOT 1