<!--
function replace(s, F, R) {
	var find = 0;
	var start = 0
	while (find != -1) {
		find = s.indexOf(F, start);
		if (find != -1) {
			s = s.substring(0,find) + R + s.substring(find + F.length);
			start = find + R.length;
		}
	}
	return s;
}

function clean(s) {
	if (!s) return s;
	s = replace(s, '$', '');
	s = replace(s, ',', '');
	s = replace(s, '%', '');	
	return s;
}

function checkamt(elem, dec, disp) {
	if ((elem.value == null) || (elem.value.length==0)) elem.value = 0
	value = parseFloat(clean(elem.value));
	if (isNaN(value)) {
		if (disp) alert('You have entered an incorrect character in this field. \nPlease check your information and try again.');
		elem.focus();
		return false;
	}
	elem.value = FmtMoney(value,dec)
	return true
}

function checknum(elem, dec, disp) {
	if ((elem.value == null) || (elem.value.length==0)) elem.value = 0
	value = parseInt(clean(elem.value));
	if (isNaN(value)) {
		if (disp) alert('You have entered an incorrect character in this field. \nPlease check your information and try again.');
		elem.focus();
		return false;
	}
	elem.value = value
	return true
}

function checkrate(elem, disp) {
	if ((elem.value == null) || (elem.value.length==0)) elem.value = "0%";
	value = parseFloat(clean(elem.value));
	if (isNaN(value)) {
		if (disp) alert('You have entered an incorrect character in this field. \nPlease check your information and try again.');
		elem.focus();
		return false;
	}
	if ((value<1) || (value>99)) {
		if (disp) alert('You have exceeded the range for some information on this tab. \nPlease check your information and try again.');
		elem.focus();
		elem.select();
		if(elem.name=="rate"){
		  alert("The Anticipated Interest Rate must be greater than zero.");
		}
		return false;
	}
	elem.value = FmtRate(value)
	return true
}

function FmtRate(A) {
	N=Math.abs(Math.round(A*1000));
	S=((N<10)?"00":((N<100)?"0":""))+N;
	S=S.substring(0,(S.length-3))+"."+S.substring((S.length-3),S.length)+"%";
	return S;
}

function FmtMoney(A,D) {
	N=Math.abs(Math.round(A*100));
	S=((N<10)?"00":((N<100)?"0":""))+N;
	S=((A<0)?"-":"")+"$"+WGgroup(S.substring(0,(S.length-2))) + 
	      ((D>0)?"."+S.substring((S.length-2),S.length):"");
	return S;
}

function WGgroup(S) {
	return (S.length<4)?S:(WGgroup(S.substring(0,S.length-3))+","+S.substring(S.length-3,S.length));
}

function pmtCalc(rate, nper, pv, fv) {	
	if (isNaN(rate) || isNaN(nper)) return ""
	if (rate==0) 
		rVal=-(fv + pv)/nper;
	else {
		ir = Math.pow(1+rate,nper);
		rVal=-((rate * (fv + ir * pv))/(ir-1));
	}
	return rVal;
}

function loanCalc(rate, nper, pmt, fv) {	
	if (isNaN(rate) || isNaN(nper)) return ""
	if (rate==0) 
		rVal=-(pmt* nper) - fv;
	else {
		ir = Math.pow(1+rate,nper);
		rVal=-(((pmt*(ir-1)/rate) - fv)/ir);
	}
	return rVal;
}



function validamt(elem, dec) {
	checkamt(elem, dec, true);
}	
function validrate(elem) {
	checkrate(elem, true);
}	
function validterm() {
	return;
}
function calc(disp) {	
	var frm = document.frm;
	if (checkamt(frm.inc,0,disp)==false) return;
	if (checkamt(frm.m1,2,disp)==false) return;
	if (checkamt(frm.m2,2,disp)==false) return;
	//if (checkamt(frm.m3,2,disp)==false) return;
	if (checkamt(frm.m4,2,disp)==false) return;
	if (checkamt(frm.m5,2,disp)==false) return;
	if (checkamt(frm.m6,2,disp)==false) return;
	if (checkrate(frm.rate,disp)==false) return;
	if (checkamt(frm.dpmt,0,disp)==false) return;
	if (checkamt(frm.mt,0,disp)==false) return;
	var inc  = parseFloat(clean(frm.inc.value));
	var m1   = parseFloat(clean(frm.m1.value));
	var m2   = parseFloat(clean(frm.m2.value));
	var m3   = 0; //parseFloat(clean(frm.m3.value));
	var m4   = parseFloat(clean(frm.m4.value));
	var m5   = parseFloat(clean(frm.m5.value));
	var m6   = parseFloat(clean(frm.m6.value));
	var rate = parseFloat(clean(frm.rate.value));
	var term = frm.term.value;
	var dpmt = parseFloat(clean(frm.dpmt.value));
	var mt   = parseFloat(clean(frm.mt.value));
	p1 = ((inc*.33)/12) - (m1+m2+m3+m4+m5+m6);
	if (p1<0) p1 = 0;
	c1 = -loanCalc(rate/1200,term,p1,0);
	p2 = ((inc*.28)/12) - (mt);
	if (p2<0) p2 = 0;
	c2 = -loanCalc(rate/1200,term,p2,0);
	c = ((c2>c1)?c1:c2) + dpmt;
	c = ((dpmt<c*.2)?c-(c*.07):c);
	frm.inc.value = FmtMoney(inc,0) 
	frm.m1.value = FmtMoney(m1,2)
	frm.m2.value = FmtMoney(m2,2)
	//frm.m3.value = FmtMoney(m3,2)
	frm.m4.value = FmtMoney(m4,2)
	frm.m5.value = FmtMoney(m5,2)
	frm.m6.value = FmtMoney(m6,2)
	frm.rate.value = FmtRate(rate)
	frm.dpmt.value = FmtMoney(dpmt,0) 
	frm.mt.value = FmtMoney(mt,2) 
	qual = FmtMoney(c,0);
	frm.result.value = qual;
	document.getElementById('disp').style.visibility = 'visible';
//	if(document.all) document.all['disp'].style.visibility = 'visible';
//	if(document.layers) document.layers['disp'].visibility = 'show';
	window.location.href = "#result"
}	
//-->