Compucolor.org – Virtual Media

Listing of file='LASPAY.BAS;01' on disk='vmedia/ncc_8_real-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