Compucolor.org – Virtual Media

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