Compucolor.org – Virtual Media

Listing of file='LNPRIN.BAS;01' on disk='vmedia/financial_calc-sector.ccvf'

10 REM  PROGRAM TO CALCULATE PRINCIPLE OF A LOAN
20 PLOT 12,14,9,9,9
30 PRINT "PRINCIPLE ON A LOAN"
40 PLOT 10,10,6,1
50 INPUT "REGULAR PAYMENT =          ";R
60 INPUT "TERM IN YEARS  =           ";Y0
62 INPUT "TERM IN MONTHS  =          ";M
65 Y= (12* Y0+ M)/ 12
70 INPUT "ANNUAL INTEREST RATE =     ";I
80 INPUT "NUMBER OF PAYMENTS PER YEAR =  ";N
90 P= R* N* (1- 1/ ((I/ 100)/ N+ 1)^ (N* Y))/ (I/ 100)
95 PLOT 6,3
100 PRINT :PRINT TAB( 25)"PRINCIPLE =  $"; INT (P* 100+ .5)/ 100
110 PLOT 10,15,6,2
120 INPUT "HAVE ANOTHER LOAN TO CHECK ?....(1 =YES / 0 =NO)  ";X
130 IF X= 1THEN RUN
140 PLOT 1