<!--
function compAmort(LIST,INRATE,PAYMENTt,FREQ){
	var form = document.paycalc;
	var MTG = form.list.value;
	var DOWN = form.down.value;
	LIST = (MTG - DOWN);
	var AMORT = form.amortperiod.value;
	var INRATE = form.intrate.value/100;
	var RATE = form.intrate.value;
	var COMPOUND = 2;
	if(FREQ == 2){
		var returnpay = PAYMENTt*2.0;
	}
	if(FREQ == 3){
		var returnpay = PAYMENTt*2.0;
	}
	if(FREQ == 4){
		var returnpay = PAYMENTt*4.0;
	}
	var wholecom = findAmort(1,1,LIST,INRATE,COMPOUND,returnpay,FREQ);
	var solvecom = findAmort(wholecom,.001,LIST,INRATE,COMPOUND,returnpay,FREQ);
	if(FREQ == 2){
		form.semiMonth.value= round_up(solvecom,2);
		return form.semiMonth.value;
	}
	if(FREQ == 3){
		form.AccelBi.value= round_up(solvecom,2);
		return form.AccelBi.value;
	}
	if(FREQ == 4){
		form.AccelWeek.value= round_up(solvecom,2);
		return form.AccelWeek.value;
	}
}

function findAmort(q,n,LIST,RATE,COMPOUND,PAYMENTAG,FREQ){
	var compound = COMPOUND/12;
	var yrRate = RATE/COMPOUND;
	var rdefine = Math.pow((1.0 + yrRate),compound)-1.0;
	var newpay = 1000000000;
	if (FREQ==2) {
		var p=12;
	}
	if (FREQ==3) {
		var p=13;
	}
	if (FREQ==4) {
		var p=13;
	}
	for(i=q;newpay>=PAYMENTAG;i=i+n){
		var monTime = i * p;
		var comfact = Math.pow((1.0 + rdefine),monTime);
		var newpay = (LIST*rdefine * comfact) / (comfact - 1.0);
	}
	return i-n-n;
}

function compPay(){
	var form = document.paycalc;
	var MTG = form.list.value;
	var DOWN = form.down.value;
	var LIST = MTG - DOWN;
	var AMORT = form.amortperiod.value;
	var INRATE = form.intrate.value/100;
	if (form.list.value != "" && form.intrate.value != "") {
		var compound = 2/12;
		var monTime = AMORT * 12;
		var yrRate = INRATE/2;
		//alert('yrRate:' + yrRate);
		//var rdefine = Math.pow((1.0 + yrRate),compound)-1.0;
		var rdefine = Math.pow((1.0 + yrRate),compound);
		//alert('rdefine:' + rdefine);
		var comfact = Math.pow((rdefine),monTime);
		//alert('comfact:' + comfact);
		//var PAYMNT = (LIST * rdefine * comfact)/  (comfact - 1.0);
		var PAYMNT = (LIST * rdefine * comfact)/12/AMORT;
		//alert('PAYMNT:' + PAYMNT);
		//var PAYMNT = (LIST * rdefine);
		var rPAYMENT = PAYMNT;
		var rPAYMENT2 = PAYMNT/2.0;
		var rPAYMENT3 = PAYMNT/4.0;
		form.payMonth.value = round_up(rPAYMENT,2);
		form.paysemiMonth.value = round_up(rPAYMENT2,2);
		form.payAccelBi.value = round_up(rPAYMENT2,2);
		form.payAccelWeek.value = round_up(rPAYMENT3,2);
		//form.Month.value = form.amortperiod.value*1.0;                                                                                                                                                                          
		//form.semiMonth.value = compAmort(LIST,INRATE,rPAYMENT2,2);
		//form.AccelBi.value = compAmort(LIST,INRATE,rPAYMENT2,3);
		//form.AccelWeek.value = compAmort(LIST,INRATE,rPAYMENT3,4);
	}
}

function check(a){
   	var pest = 0;
   	var b = "";
	for(i=0;i<=a.length;i++){
		var u = a.charAt(i);
      	if((u>="0"&&u<="9")||u=="."){
        	if(u=="."){
        		var pest = pest+1;
        		if(pest==2){
					break;
				}
			}
			var b = b + u;
		}
	}
	return b;
}

function add_up(a){ 
	a.value = check(a.value);
}

function round_up(n,num){
	if(n > 0){
		var nums = num*1.0;
		if(num==2){
			pennies = n*100;
		}
		if(num==3){
			pennies = n*1000;
		}
		pennies = Math.round(pennies);
		strPennies = "" + pennies;
		len = strPennies.length;
		return strPennies.substring(0, len - nums) + "." + strPennies.substring(len - nums, len);
	} else{
		return 0;
	}
}

function check_num(quest,input, min, max, msg){
    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;
        }
    }
    if(input.value!=""){
    	var num = 0 + str
    	/*
    	if (num < min || max < num) {
    		var sendn = msg;
    		var sendq = "You have entered " + input.value + ". Please enter a number between " + min + " and " + max + ".";
			alert(sendn + "\n" + sendq);
        	return false;
    	}
    	*/
    	input.value = str;
    	return true;
    }
}

function computeField(quest,input,min,max,msage){
    add_up(input);
	check_num(quest,input,min,max,msage);
} 

function compute(form){
	var testNum = 0;
	if((document.paycalc.list.value == null || document.paycalc.list.value.length==0) || (document.paycalc.list.value*1.0 < 10000 || document.paycalc.list.value*1.0 > 1000000)){
		alert('List price:' + '\n' + 'Please enter a number between 10,000 and 1,000,000.');
		testNum=1;
	}
	if(document.paycalc.intrate.value == null || document.paycalc.intrate.value.length == 0)
	{
		alert('Rate:' + '\n' + 'Please enter the rate.');
		testNum=1;
	}
	if((document.paycalc.amortperiod.value == null|| document.paycalc.amortperiod.value.length == 0)|| (document.paycalc.amortperiod.value*1.0 < 1|| document.paycalc.amortperiod.value*1.0 > 40)){
		alert('Amort. period:' + '\n' + 'Please enter a number between 1 and 40.');
		testNum=1;
	}
	if(testNum==0){
		compPay();
	}
}

function computeForm(){
	if(navigator.appVersion.substring(0,3) == 2.0 &&  navigator.appName.substring(0,8)=="Netscape" && navigator.appVersion.indexOf("Macintosh")>=0){
        setTimeout("compute(document.forms[0])",200);
	}else{
		compute(document.forms[0]);
	}
}

//-->