Compucolor.org – Virtual Media

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