//	
    function checkNumber(input, min, max, msg) {
        msg = msg + " field has invalid data: " + input.value;
        var str = input.value;
        for (var i = 0; i < str.length; i++) {
            var ch = str.substring(i, i + 1)
            if ((ch < "0" || "9" < ch) && ch != '.') {
                alert(msg);
                return false;
            }
        }
        var num = 0 + str
        if (num < min || max < num) {
            alert(msg + " not in range [" + min + ".." + max + "]");
            return false;
        }
        input.value = str;
        return true;
    }

function NumFormat( __StringNumber ) {
 InString = _Trim(__StringNumber);
 OutString = "";
 InLength = InString.length;
 for(__x=InLength; __x!=0; __x--) {
  if(OutString.length == 3 | OutString.length == 7 | OutString.length == 11) {
   OutString = "," + OutString;
   OutString = InString.substring(__x-1,__x) + OutString;
  } else {
   OutString = InString.substring(__x-1,__x) + OutString;
  }
 }
 return OutString;
}

function _Trim( str ) {
	astr = String( str );
	t_str = String("");
	LastCharAt = 0;
	for(x=astr.length-1;x>=0;x--) {
		if( astr.charAt(x) != " " ) {
			LastCharAt = x+1;
			break;
		}
	}
	return astr.substring(0,LastCharAt);
}

    function computeForm(form) {
	//
	// Insure all needed fields are input!
	//
        if ((form.down.value == null || form.down.value.length == 0) ||
            (form.interest.value == null || form.interest.value.length == 0) ||
            (form.term.value == null || form.term.value.length == 0) ||
            (form.payment.value == null || form.payment.value.length == 0)) {
            return;
        }
	//
	// Insure all input fields are within valid limits!
	//
        if (!checkNumber(form.term, 1, 480, "# of payments") ||
            !checkNumber(form.interest, .001, 99, "Interest")) {
            form.principle.value = "Invalid";
            return;
        }
	var thenumberofpayments = form.term.value * 12;
	var theinterestrate = form.interest.value;
	var thedown = form.down.value;


	//
	// Check / Set interest rate to correct value!
	//
        var i = theinterestrate;
		if (i == 0) 
			i = .001;

        if (i > 1.0) {
            i = i / 100.0;
            //form.interest.value = i;
        }
	//
	// Calculate principle!
	//

     {   if(form.interest.value == "" || 
           form.down.value == "" ||
           form.payment.value == "" ||
           form.term.value == "") {
                form.principle.value = "";
        } else {
                i = (form.interest.value) / 100;
                i = i / 12;
                n = (form.term.value) * 12;
				M = parseInt(_StrTran(form.down.value,",",""));
                tmp = (1/i) * (1 - Math.pow(1/(1+i), n));
                tmp = (_StrTran(form.payment.value,",","")) * tmp;
		    	tmp = tmp + (_StrTran(form.down.value,",",""));
                tmp = Math.round(tmp*100) / 100 + M;
				form.principle.value = NumFormat(parseInt(tmp));
                if(form.principle.value == null ||          
                 form.principle.value.length == 0 ||
                   form.principle.value == "NaN") {
                        form.principle.value = "";
                }
        }
}


}

    function computeField(input) {
        if (input.value != null && input.value.length != 0)
            input.value = "" + NumFormat(parseInt(input.value));

}

function _StrTran( _str2b_chg, _substr2_look4, _substr2_sub ) {
//=====================================================================
// function _StrTran( _str2b_chg, _substr2_look4, _substr2_sub )
//
//
//=====================================================================
 var _Str_2B_Chg = String( _str2b_chg );
 var _Str_2_Look_4 = String( _substr2_look4 );
 var _Str_2_Sub = String( _substr2_sub );
 var _Out_Str = "";

 _len2chg = _Str_2B_Chg.length;
 _len2lk4 = _Str_2_Look_4.length;
 for( _stepr=0; _stepr<_len2chg; _stepr++ ) {
  if(_Str_2B_Chg.substring(_stepr,_stepr+_len2lk4) == _Str_2_Look_4)
   _Out_Str += _Str_2_Sub;
  else
   _Out_Str += _Str_2B_Chg.substring(_stepr,_stepr+_len2lk4)
 }
 return _Out_Str;
}