//
   //	dcclease.js
   //	Action Machinery's Web Site
   //	Written by: George Patterson
   //	CopyRight(c) 2009 George Patterson all rights reserved
   //	Last modified 06-25-2009
   //   Updated for DCC Leasing	
   //	Creates a Lease Payment Table from input based on the Form on dcclease.htm
   //

// lease term rate variable codes
//r11kt25k24m = 
//r 1 1kt25k 24 m
//r = Rate
//1 = $1 90 = 90 day deferred
//1kt25k = $1,000 to $25,000
//25kt100k = $25,001 to $100,000
//100kt250k = $100,001 to $250,000
//24m 36m 48m 60m 72m= term in months
//

//$1 buy out
var r11kt25k24m=.032123
var r125kt100k24m=.032123
var r1100kt250k24m=.032123

var r11kt25k36m=.032123
var r125kt100k36m=.032123
var r1100kt250k36m=.032123

var r11kt25k48m=.024951 
var r125kt100k48m=.024951 
var r1100kt250k48m=.024951 

var r11kt25k60m=.020743
var r125kt100k60m=.020743
var r1100kt250k60m=.020743

var r11kt25k72m=.018026
var r125kt100k72m=.018026
var r1100kt250k72m=.018026

//10% buyout
var r101kt25k24m=.029445
var r1025kt100k24m=.029445
var r10100kt250k24m=.029445

var r101kt25k36m=.029445
var r1025kt100k36m=.029445
var r10100kt250k36m=.029445

var r101kt25k48m=.023018
var r1025kt100k48m=.023018
var r10100kt250k48m=.023018

var r101kt25k60m=.01926
var r1025kt100k60m=.01926
var r10100kt250k60m=.01926

var r101kt25k72m=.016849
var r1025kt100k72m=.016849
var r10100kt250k72m=.016849


//round off the input to dollars and cents
function ofmt(num){
num = Math.round(num * 100);
num = num / 100;
return num;
}
//end of fiunction

//formats the output so that the commas are in the right place
function fmt(num){
num = Math.round(num * 100);
num = num + ".";
numd = num.substring(0 , num.length - 3)
numc = num.substring(num.length - 3 , num.length - 1)
numdd = numd

if (numd.length > 18){
numh = numd.substring(numd.length - 3, numd.length)
numt = numd.substring(numd.length - 6, numd.length - 3)
numm = numd.substring(numd.length - 9, numd.length - 6)
numb = numd.substring(numd.length - 12, numd.length - 9)
numtr = numd.substring(numd.length - 15, numd.length - 12)
numz = numd.substring(numd.length - 18, numd.length - 15)
numzz = numd.substring(0, numd.length - 18)
numdd = numzz + "," + numz + "," + numtr + "," + numb + "," + numm + "," + numt + "," + numh
numd = ""
}


if (numd.length > 15){
numh = numd.substring(numd.length - 3, numd.length)
numt = numd.substring(numd.length - 6, numd.length - 3)
numm = numd.substring(numd.length - 9, numd.length - 6)
numb = numd.substring(numd.length - 12, numd.length - 9)
numtr = numd.substring(numd.length - 15, numd.length - 12)
numz = numd.substring(0, numd.length - 15)
numdd = numz + "," + numtr + "," + numb + "," + numm + "," + numt + "," + numh
numd = ""
}

if (numd.length > 12){
numh = numd.substring(numd.length - 3, numd.length)
numt = numd.substring(numd.length - 6, numd.length - 3)
numm = numd.substring(numd.length - 9, numd.length - 6)
numb = numd.substring(numd.length - 12, numd.length - 9)
numtr = numd.substring(0, numd.length - 12)
numdd = numtr + "," + numb + "," + numm + "," + numt + "," + numh
numd = ""
}

if (numd.length > 9){
numh = numd.substring(numd.length - 3, numd.length)
numt = numd.substring(numd.length - 6, numd.length - 3)
numm = numd.substring(numd.length - 9, numd.length - 6)
numb = numd.substring(0, numd.length - 9)
numdd = numb + "," + numm + "," + numt + "," + numh
numd = ""
}

if (numd.length > 6){
numh = numd.substring(numd.length - 3, numd.length)
numt = numd.substring(numd.length - 6, numd.length - 3)
numm = numd.substring(0, numd.length - 6)
numdd = numm + "," + numt + "," + numh
numd = ""
}

if (numd.length > 3){
numh = numd.substring(numd.length - 3, numd.length)
numt = numd.substring(0, numd.length - 3)
numdd = numt + "," + numh
numd = ""
}
numd = numdd
num =  "$ " + numd + "." + numc
return num;
}
//end of fiunction


function Calc(form){
var Prin = form.prin.value
////
//// 11-15-2006  double comment out down payment calculations
////var Down = form.deposit.value
// Is there a Down Payment?
////if (Down > 0){
// Is the Down Payment a Percentage?
////if (form.deptype[1].checked){
// Calculate the Down payment as a percentage
////var temp = (Prin * (Down / 100 ))
////var Down = temp}
// Subtract the Down Payment from the Principle
////var temp = (Prin - Down)
////var Prin = temp
////
////}
//End of Down Payment Section

form.principal.value = fmt(Prin)

// Find rate based on Asset Amount, Type, and Term of Lease
if (form.leasetype[0].checked){
// 1$ buy out - find rate based on Asset Amount and Term
	//$100,001 to $250,000
	if (Prin*1 >100000 && Prin*1<250001){
		//24 months
		//if (form.leaseterm[4].checked){
		//var Rate = r1100kt250k24m}
		//36 months
		if (form.leaseterm[0].checked){
		var Rate = r1100kt250k36m}
		//48 months
		if (form.leaseterm[1].checked){
		var Rate = r1100kt250k48m}
		//60 months
		if (form.leaseterm[2].checked){
		var Rate = r1100kt250k60m}
		//72 months
		if (form.leaseterm[3].checked){
		var Rate = r1100kt250k72m}
	}//end of $100,001 to $250,000

	//$25,001 to $100,000
	if (Prin*1 >25000 && Prin*1<100001){
		//24 months
		//if (form.leaseterm[4].checked){
		//var Rate = r125kt100k24m}
		//36 months
		if (form.leaseterm[0].checked){
		var Rate = r125kt100k36m}
		//48 months
		if (form.leaseterm[1].checked){
		var Rate = r125kt100k48m}
		//60 months
		if (form.leaseterm[2].checked){
		var Rate = r125kt100k60m}
		//72 months
		if (form.leaseterm[3].checked){
		var Rate = r125kt100k72m}
	}//end of $25,001 to $100,000

	//$1,000 to $25,000
	if (Prin*1 >999 && Prin*1<25001){
		//24 months
		//if (form.leaseterm[4].checked){
		//var Rate = r11kt25k24m}
		//36 months
		if (form.leaseterm[0].checked){
		var Rate = r11kt25k36m}
		//48 months
		if (form.leaseterm[1].checked){
		var Rate = r11kt25k48m}
		//60 months
		if (form.leaseterm[2].checked){
		var Rate = r11kt25k60m}
		//72 months
		if (form.leaseterm[3].checked){
		var Rate = r11kt25k72m}
	}//end of $1,000 to $25,000
}//end of $1 buy Out

if (form.leasetype[1].checked){
// 10%  buy out - find rate based on Asset Amount and Term
	//$100,001 to $250,000
	if (Prin*1 >100000 && Prin*1<250001){
		//24 months
		//if (form.leaseterm[4].checked){
		//var Rate = r10100kt250k24m}
		//36 months
		if (form.leaseterm[0].checked){
		var Rate = r10100kt250k36m}
		//48 months
		if (form.leaseterm[1].checked){
		var Rate = r10100kt250k48m}
		//60 months
		if (form.leaseterm[2].checked){
		var Rate = r10100kt250k60m}
		//72 months
		if (form.leaseterm[3].checked){
		var Rate = r10100kt250k72m}
	}//end of $100,001 to $250,000

	//$25,001 to $100,000
	if (Prin*1 >25000 && Prin*1<100001){
		//24 months
		//if (form.leaseterm[4].checked){
		//var Rate = r1025kt100k24m}
		//36 months
		if (form.leaseterm[0].checked){
		var Rate = r1025kt100k36m}
		//48 months
		if (form.leaseterm[1].checked){
		var Rate = r1025kt100k48m}
		//60 months
		if (form.leaseterm[2].checked){
		var Rate = r1025kt100k60m}
		//72 months
		if (form.leaseterm[3].checked){
		var Rate = r1025kt100k72m}
	}//end of $25,001 to $100,000

	//$1,000 to $25,000
	if (Prin*1 >999 && Prin*1<25001){
		//24 months
		//if (form.leaseterm[4].checked){
		//var Rate = r101kt25k24m}
		//36 months
		if (form.leaseterm[0].checked){
		var Rate = r101kt25k36m}
		//48 months
		if (form.leaseterm[1].checked){
		var Rate = r101kt25k48m}
		//60 months
		if (form.leaseterm[2].checked){
		var Rate = r101kt25k60m}
		//72 months
		if (form.leaseterm[3].checked){
		var Rate = r101kt25k72m}
	}//end of $1,000 to $25,000
}//end of 10%  buy Out

//get term of Lease
//if (form.leaseterm[4].checked){var Term=24*1}
if (form.leaseterm[0].checked){var Term=36*1}
if (form.leaseterm[1].checked){var Term=48*1}
if (form.leaseterm[2].checked){var Term=60*1}
if (form.leaseterm[3].checked){var Term=72*1}


//var Interest = (form.interest.value / 100)
//var Years = form.years.value 
//var Months = (Years * 12)
//var Periods = (Years * 12)
//var side1 = (1+(Interest/12))
//var side2 = (-1)*(Months)
//var tempa =(1-(Math.pow(side1, side2))) / (Interest / 12)
//var temp = Prin / tempa
//var payment = temp 
//var TotalInterest = (payment * Months) - Prin

var payment = Prin * Rate 
//var TotalPayment = payment * Term
if (form.leasetype[1].checked){
	var TotalPayment = (payment * Term) + (.1 * form.prin.value )
}
else{
	var TotalPayment = (payment * Term) + 1
}
//var Perhour = (payment / 160)
if (form.leasetype[1].checked){
	var Perhour = (payment / 160) + (((.1 * Prin)/Term) / 160)
}
else{
	var Perhour = (payment / 160)
}
form.payment.value =fmt(payment)
form.totalinterest.value = fmt(TotalPayment) 
form.perhour.value = fmt(Perhour)
}// end Calculate Form



function amort(form){
amor = open("","amor");
window.amor.focus()
var Prin = form.prin.value
////
//// 11-15-2006 double comment out down payment feature
////var Down = form.deposit.value
////if (Down > 0){
////if (form.deptype[1].checked){
////var temp = (Prin * (Down / 100 ))
////var Down = temp}
////var temp = (Prin - Down)
////var Prin = temp
////
////}

// Find rate based on Asset Amount, Type, and Term of Lease
if (form.leasetype[0].checked){
// 1$ buy out - find rate based on Asset Amount and Term
	//$100,001 to $250,000
	if (Prin*1 >100000 && Prin*1<250001){
		//24 months
		//if (form.leaseterm[4].checked){
		//var Rate = r1100kt250k24m}
		//36 months
		if (form.leaseterm[0].checked){
		var Rate = r1100kt250k36m}
		//48 months
		if (form.leaseterm[1].checked){
		var Rate = r1100kt250k48m}
		//60 months
		if (form.leaseterm[2].checked){
		var Rate = r1100kt250k60m}
		//72 months
		if (form.leaseterm[3].checked){
		var Rate = r1100kt250k72m}
	}//end of $100,001 to $250,000

	//$25,001 to $100,000
	if (Prin*1 >25000 && Prin*1<100001){
		//24 months
		//if (form.leaseterm[4].checked){
		//var Rate = r125kt100k24m}
		//36 months
		if (form.leaseterm[0].checked){
		var Rate = r125kt100k36m}
		//48 months
		if (form.leaseterm[1].checked){
		var Rate = r125kt100k48m}
		//60 months
		if (form.leaseterm[2].checked){
		var Rate = r125kt100k60m}
		//72 months
		if (form.leaseterm[3].checked){
		var Rate = r125kt100k72m}
	}//end of $25,001 to $100,000

	//$1,000 to $25,000
	if (Prin*1 >999 && Prin*1<25001){
		//24 months
		//if (form.leaseterm[4].checked){
		//var Rate = r11kt25k24m}
		//36 months
		if (form.leaseterm[0].checked){
		var Rate = r11kt25k36m}
		//48 months
		if (form.leaseterm[1].checked){
		var Rate = r11kt25k48m}
		//60 months
		if (form.leaseterm[2].checked){
		var Rate = r11kt25k60m}
		//72 months
		if (form.leaseterm[3].checked){
		var Rate = r11kt25k72m}
	}//end of $1,000 to $25,000
}//end of $1 buy Out

if (form.leasetype[1].checked){
// 10%  buy out - find rate based on Asset Amount and Term
	//$100,001 to $250,000
	if (Prin*1 >100000 && Prin*1<250001){
		//24 months
		//if (form.leaseterm[4].checked){
		//var Rate = r10100kt250k24m}
		//36 months
		if (form.leaseterm[0].checked){
		var Rate = r10100kt250k36m}
		//48 months
		if (form.leaseterm[1].checked){
		var Rate = r10100kt250k48m}
		//60 months
		if (form.leaseterm[2].checked){
		var Rate = r10100kt250k60m}
		//72 months
		if (form.leaseterm[3].checked){
		var Rate = r10100kt250k72m}
	}//end of $100,001 to $250,000

	//$25,001 to $100,000
	if (Prin*1 >25000 && Prin*1<100001){
		//24 months
		//if (form.leaseterm[4].checked){
		//var Rate = r1025kt100k24m}
		//36 months
		if (form.leaseterm[0].checked){
		var Rate = r1025kt100k36m}
		//48 months
		if (form.leaseterm[1].checked){
		var Rate = r1025kt100k48m}
		//60 months
		if (form.leaseterm[2].checked){
		var Rate = r1025kt100k60m}
		//72 months
		if (form.leaseterm[3].checked){
		var Rate = r1025kt100k72m}
	}//end of $25,001 to $100,000

	//$1,000 to $25,000
	if (Prin*1 >999 && Prin*1<25001){
		//24 months
		//if (form.leaseterm[4].checked){
		//var Rate = r101kt25k24m}
		//36 months
		if (form.leaseterm[0].checked){
		var Rate = r101kt25k36m}
		//48 months
		if (form.leaseterm[1].checked){
		var Rate = r101kt25k48m}
		//60 months
		if (form.leaseterm[2].checked){
		var Rate = r101kt25k60m}
		//72 months
		if (form.leaseterm[3].checked){
		var Rate = r101kt25k72m}
	}//end of $1,000 to $25,000
}//end of 10%  buy Out

//get term of Lease
//if (form.leaseterm[4].checked){var Term=24*1}
if (form.leaseterm[0].checked){var Term=36*1}
if (form.leaseterm[1].checked){var Term=48*1}
if (form.leaseterm[2].checked){var Term=60*1}
if (form.leaseterm[3].checked){var Term=72*1}



var Months = Term
var payment = Prin * Rate 
var TotalInterest = (payment * Months) - Prin
if (form.leasetype[1].checked){
	var Perhour = (payment / 160) + (((.1 * Prin)/Term) / 160)
}
else{
	var Perhour = (payment / 160)
}
var Intsum = 0
var Prevprin = payment * Term
if (form.leasetype[0].checked){LeaseType="$1 Buy Out"}
if (form.leasetype[1].checked){LeaseType="10% Buy Out"}


amor.document.writeln ("<html>")
amor.document.writeln ("<head>")
amor.document.writeln ("<title>Action Machinery Co., Inc. Direct Capital Corporation Interest Calculator</title>")
amor.document.writeln ("</head>")
amor.document.writeln ("<body background=\"../actionbk.gif\" bgcolor=#682038 text=#000000 link=#3399FF vlink=#88888>")
amor.document.writeln ("<center>")
amor.document.writeln ("<table width=95% border=1 bgcolor=#ffffff>")
amor.document.writeln ("<tr>")
amor.document.writeln ("<td rowspan=20 valign=top align=left width=10%>")
amor.document.writeln ("<center><img src=\"../graphics/dcclease3.gif\" border=0></center><br>")
amor.document.writeln ("<font size=1><br><br>Actual payments may be higher or lower than indicated above and serve as a reference.  All finance programs subject to final credit approval by Direct Capital Corp. The applicant acknowledges that based upon such information and other factors which may apply, Direct Capital or its assigns, may either grant or decline to grant credit.</font>")
amor.document.writeln ("</td>")
amor.document.writeln ("<td align=center>")
amor.document.writeln ("<font size=+2 color=#000000>")
amor.document.writeln ("Action Machinery's<BR>")
amor.document.writeln ("Direct Capital Corporation Interest Calculator<BR>")
amor.document.writeln ("</font>")
amor.document.writeln ("(610) 691-6677 Phone (610) 694-0944 Fax<BR>")
amor.document.writeln ("2320 Highland Avenue - Bethlehem PA - 18020<BR>")
amor.document.writeln ("<a href=http://www.actionmachinery.com><font color=#0000ff>WWW.ACTIONMACHINERY.COM</font></A><BR><BR>")
amor.document.writeln ("<font color=#000000>(See bottom of page for Printing Instructions)</font><BR>")

amor.document.writeln ("<table border=0 cellspacing=2 cellpadding=2 width=100%>")
amor.document.writeln ("<tr><td align=left><font size=5>Lease Proposal</font></td><td align=right><font size=3 color=#ff3300>Rates Effective June 1, 2009 - September 30, 2009</font></td></tr>")
amor.document.writeln ("<tr><td align=left colspan=2 bgcolor=#000000><font color=#ffeeff>Direct Capital Corporation</font></td></tr>")
amor.document.writeln ("<tr><td align=right colspan=2><img src=\"../graphics/lease2.jpg\"></td></tr>")
amor.document.writeln ("<tr><td align=left colspan=2 bgcolor=#000000><font size=5 color=#ffeeff>&nbsp;&nbsp;&nbsp;Financial tools to help U.S. businesses prosper&nbsp;&nbsp;</font><font size=2 color=#ff3300><i>tax not included in results</i></font></td></tr>")
amor.document.writeln ("</table>")

amor.document.writeln ("<table border=0 cellspacing=2 cellpadding=2>")
amor.document.writeln ("<tr><td>Total Asset Amount </td><td>" + fmt(form.prin.value) +"</td></tr>")
////
//// 11-15-2006 double comment out down payment feature
////if (Down <= 0 ){var Down = 0}
////amor.document.writeln ("<tr><td>Down Payment Amount </td><td>" + fmt(Down) + "</td></tr>")
////
amor.document.writeln ("<tr><td>Type of Lease </td><td>" + LeaseType + "</td></tr>")
amor.document.writeln ("<tr><td>Term of Lease payments </td><td>" + Months + " Months</td></tr>")
amor.document.writeln ("<tr><td>Monthly Lease Payment </td><td>" + fmt(payment) + "</td></tr>")
if (form.leasetype[1].checked){
	amor.document.writeln ("<tr><td>Total of Payments </td><td>" + fmt(payment * Months + (.1 * form.prin.value )) + "</td></tr>")
}
else{
	amor.document.writeln ("<tr><td>Total of Payments </td><td>" + fmt(payment * Months + 1) + "</td></tr>")
}
amor.document.writeln ("<tr><td>Total Interest </td><td>" + fmt(TotalInterest) + "</td></tr>")
amor.document.writeln ("<tr><td>Cost Per Hour </td><td>" + fmt(Perhour) + "</td></tr>")
amor.document.writeln ("</table>")


amor.document.writeln ("<table border=1 cellspacing=2 cellpadding=2>")
amor.document.writeln ("<tr><td width=100 align=right>Payment #</td><td width=160 align=right>Payment $</td></td><td width=160 align=right>Balance</td></tr>")

var dpm=0
// deferred payment output Add 3 months to the table
// removed defered payment
//if (form.leasetype[1].checked){
//	var dpm=3
//	for (var i = 1; i<=dpm; i++){
//	amor.document.write ("<tr><td width=100 align=right> " + i + "</td>");
//	amor.document.write ("<td width=160 align=right> Payment Deferred</td>");
//	amor.document.write ("<td width=160 align=right>" + fmt(Prevprin) + "</td>");
//	amor.document.writeln ("</tr>");
//	}
//}
// defered payment option removed


for (var i = (1 + dpm); i<=(Months + dpm); i++){
amor.document.write ("<tr><td width=100 align=right> " + i + "</td>");
amor.document.write ("<td width=160 align=right> " + fmt(payment) + "</td>");
var temp2 = Prevprin - payment 
if (temp2 <= 1){
	if (form.leasetype[1].checked){
		temp2 = .1 * form.prin.value
	}
	else{
		temp2 = 1
	}
amor.document.write ("<td width=160 align=right>" + fmt(temp2) + " Buy Out</td>");
}
else{
amor.document.write ("<td width=160 align=right>" + fmt(temp2) + "</td>");
}
Prevprin = temp2
amor.document.writeln ("</tr>");
}

amor.document.writeln ("</table>");
amor.document.writeln ("</font><BR><BR>")
amor.document.writeln ("<table border=1 width=60%>")
amor.document.writeln ("<tr><td>")
amor.document.writeln ("To PRINT this Page - on the Menu Bar Select:<BR>")
amor.document.writeln ("EDIT - Select ALL<BR>")
amor.document.writeln ("FILE - Print<BR>")
amor.document.writeln ("Check off the \"SELECTION\" box in the Print Dialog window.<BR>")
amor.document.writeln ("Then Click OK and the page will print.<BR>")
amor.document.writeln ("</td></tr>")
amor.document.writeln ("</table><BR>")
amor.document.writeln ("<BR><BR>")
amor.document.writeln ("</CENTER>")
amor.document.writeln ("</td></tr></table>")
amor.document.writeln ("</body>")
amor.document.writeln ("</html>")
amor.document.close

}