Listing of file='LNTERM.BAS;01' on disk='vmedia/ncc_8_real-sector.ccvf'
10 PLOT 12,14,10,10,6,6 30 PRINT TAB( 25)"TERM OF A LOAN":PLOT 10,15 40 PRINT "THIS PROGRAM CALCULATES THE PERIOD OF TIME NEEDED TO REPAY A" 50 PRINT :PRINT "LOAN. YOU WILL NEED TO PROVIDE THE AMOUNT OF THE LOAN, THE" 60 PRINT :PRINT "PAYMENT AMOUNT, THE NUMBER OF PAYMENTS PER YEAR, AND THE" 70 PRINT :PRINT "ANNUAL INTEREST RATE ON THE LOAN. ALL PAYMENTS ARE ASSUMED" 80 PRINT :PRINT "TO BE EQUAL...." 90 PRINT :PRINT :INPUT "HIT -RETURN- TO CONTINUE ";G 100 PLOT 14,12,10,10,6,1 110 PRINT TAB( 12)"REGULAR PAYMENT = ";:INPUT R 120 PRINT TAB( 12)"PRINCIPAL = ";:INPUT P 130 PRINT TAB( 12)"ANNUAL INTEREST RATE = ";:INPUT I 140 PRINT TAB( 12)"# OF PAYMENTS PER YEAR = ";:INPUT N 150 Y= - (LOG (1- (P* (I/ 100))/ (N* R))/ (LOG (1+ I/ 100/ N)* N)) 160 M = INT (Y* 12+ .5) 170 Y0= INT (M/ 12) 180 M= M- Y0* 12 190 PRINT :PRINT TAB( 15)"TERM ="Y0" YEARS,"M" MONTHS" 200 PLOT 10,15,6,2 210 INPUT "MORE DATA ?...(1=YES, 0=NO) ";X 220 IF X= 1THEN 100 230 PLOT 1