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