Listing of file='REGPAY.BAS;01' on disk='vmedia/ncc_8_real-sector.ccvf'
10 REM PROGRAM TO CALCULATE REGULAR LOAN PAYMENTS 20 PLOT 27,11,14,12,6,3 30 PRINT TAB( 23)"REGULAR PAYMENT ON A LOAN" 40 PLOT 10,10,6,1 50 INPUT "TERM IN YEARS, MONTHS = ";Y0,M 55 Y= (12* Y0+ M)/ 12 60 INPUT "PRINCIPLE = ";P 70 INPUT "ANNUAL INTEREST RATE = ";I 80 INPUT "NUMBER OF PAYMENTS PER YEAR = ";N 90 R= ((I/ 100)* P/ N)/ (1- 1/ ((I/ 100)/ N+ 1)^ (N* Y)):PRINT :PRINT 95 PLOT 6,5 100 PRINT SPC( 32)"REGULAR PAYMENT = $ ";INT (R* 100+ .5)/ 100 110 PLOT 10,15,6,2 120 INPUT "WANT TO TRY ANOTHER LOAN ??..(1=YES, 0=NO) ";X 130 IF X= 1THEN RUN 140 PLOT 1