<!--
<!-- calculator.js excludes all the code for order entry, but includes the calculator code plus everything in audrie_reg.js -->
<!--

function mailsome1(){
<!-- who=prompt("Enter your friend's email address: "," "); -->
who=""
what="Audrie.com: great web site!";
parent.location.href='mailto:'+who+'?subject='+what+'';

}

function Map2(page) {
OpenWin=this.open(page,"ctrlwindow","left=20,top=-500,width=500,height=400,toolbar=no,location=no,scrollbars=yes,resize=yes");
}

var RDY=false;
image1=new Image();
image1.src='image_dir/dir_login1.gif';
image1on=new Image();
image1on.src='image_dir/dir_login1b.gif';

image2=new Image();
image2.src='image_dir/dir_home22.gif';
image2on=new Image();
image2on.src='image_dir/dir_home22b.gif';

image3=new Image();
image3.src='image_dir/dir_home3.gif';
image3on=new Image();
image3on.src='image_dir/dir_home3b.gif';



function onready(name)   {
        document[name].src=eval(name+'on.src');
}
function offready(name)  {
        document[name].src=eval(name+'.src');
}

RDY = true;
function on(name)  {
        if(RDY)onready(name);
}
function off(name)  {
        if(RDY)offready(name);
}


function onready(name)   {
        document[name].src=eval(name+'on.src');
}
function offready(name)  {
        document[name].src=eval(name+'.src');
}

RDY = true;
function on(name)  {
        if(RDY)onready(name);
}
function off(name)  {
        if(RDY)offready(name);
}

function today2() {
var months=new Array(13);
months[1]="January";
months[2]="February";
months[3]="March";
months[4]="April";
months[5]="May";
months[6]="June";
months[7]="July";
months[8]="August";
months[9]="September";
months[10]="October";
months[11]="November";
months[12]="December";
var time=new Date();
var lmonth=months[time.getMonth() + 1];
var date=time.getDate();
var year=time.getYear();
if (year < 2000) 
year = year + 1900;
document.write("<right>" + lmonth + " ");
document.write(date + ", " + year + "</right>");
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

	var counter=0
	var bigtote=0
	var known1=0
	var close1=0
	var price1=0
	var other_C=0
	var morge1=0
	var comiss1=0
	var penal1=0
	var repair2=0
	var other_1=0
	var home1=300
	var term1=300
	var repair1=0
	var C_rate=.025
	var Re_rate=.07
	var rep_1 = .01
function cutDollar (Val) {
	Dollar = Math.floor(Val)
	return (Dollar);
}
	
function cutDollar2 (Val) {
	Dollar = Math.floor(Val)
	if (Dollar < 0) {Dollar = 0}
	return (Dollar);	

}
// Calculate Real Estate commissions
function comishCalc(form) {
if (form.C_percent.options[0].selected) { Re_rate = .07;}
				if (form.C_percent.options[1].selected) { Re_rate = .06;}
				if (form.C_percent.options[2].selected) { Re_rate = .055;}
				if (form.C_percent.options[3].selected) { Re_rate = .0525;}
				if (form.C_percent.options[4].selected) { Re_rate = .050;}
				if (form.C_percent.options[5].selected) { Re_rate = .0475;}
				if (form.C_percent.options[6].selected) { Re_rate = .045;}
				if (form.C_percent.options[7].selected) { Re_rate = .0425;}
				if (form.C_percent.options[8].selected) { Re_rate = .035;}
				if (form.C_percent.options[9].selected) { Re_rate = .030;}
				if (form.C_percent.options[10].selected) { Re_rate = .025;}
				if (form.C_percent.options[11].selected) { Re_rate = 0;}
				price1 = eval(form.Price.value);
				if (isNaN(price1)) {price1=0;}
				comiss1 = (Re_rate * price1);
				form.Commish.value = (cutDollar(comiss1));
				
}

// calculate the subtotal for the known costs
// of mortgage, commissions, pre-payment penalty and other costs
function knowCalc(form) {
known1 = (morge1 + comiss1 + penal1 + other_1);
				form.Known_cost.value = ' -' + (cutDollar(known1));
				
}

// calculate the closing cost as a percent of price
function costCalc(form) {
if (form.Closing_percent.options[0].selected) { C_rate = .025;}
				if (form.Closing_percent.options[1].selected) { C_rate = .03;}
				if (form.Closing_percent.options[2].selected) { C_rate = .02;}
				price1 = eval(form.Price.value);
				if (isNaN(price1)) {price1=0;}
				close1 = (C_rate * price1)
    	      	form.Closing.value = ' -' + (cutDollar(close1))
}

// calculate the home warranty cost based on user choice
function warranCalc(form) {
if (form.Warrant1.options[0].selected) {home1 = 300;}
				if (form.Warrant1.options[1].selected) {home1 = 0;}
				form.Home_w.value = (cutDollar(home1));
}

// calculate the termite inspection cost based on user choice
function termCalc(form) {
if (form.Termite0.options[0].selected) {term1 =100;}
if (form.Termite0.options[1].selected) {term1 = 300;}
if (form.Termite0.options[2].selected) {term1 = 500;}
if (form.Termite0.options[3].selected) {term1 = 0;}
				form.Termite.value = (cutDollar(term1));
				
}

// calculate repair costs 
function repair2Calc(form) {
				repair2 = eval(form.Repairs.value);
				if (isNaN(repair2)) {repair2=0;}
				
}

// calculate subtotal for other costs, home warranty, termite inspection, etc.
function other2Calc(form) {
other_C = (home1 + term1 + repair2);
				form.Other_costs.value = ' -' + (cutDollar(other_C));
}

// Main form calulation
function motherCalc(form) {
costCalc(form);
				comishCalc(form);

				morge1= eval(form.Mortgage.value);
				if (isNaN(morge1)) {morge1=0;}

				penal1 = eval(form.Penalty.value);
				if (isNaN(penal1)) {penal1=0;}
				
				other_1 = eval(form.Other.value);
				if (isNaN(other_1)) {other_1=0;}
				
				warranCalc(form);
				termCalc(form);
				repair2Calc(form);
				knowCalc(form);
				other2Calc(form);
				form.Big_total.value = (cutDollar(price1 - known1 - close1 - other_C));
				
}

var counter30 = 0
var factor1 = 0
var factor2 = 0
var downpay = 0
var long_bills = 0
var month_income = 0
var house_expense = 0
var house_expen1 = 0
var house_expen2 = 0
var income1 = 0
var monthly_pay = 0
var auto1 = 0
var alimon1 = 0
var credit1 = 0
var student1 = 0
var othr1 = 0
var morge_30 = 0
var afford = 0



// Calculate downpayment factor
function downCalc(form) {
if (form.Downpayment.options[0].selected) { downpay = .03;}
				if (form.Downpayment.options[1].selected) { downpay = .05;}
				if (form.Downpayment.options[2].selected) { downpay = .1;}
				if (form.Downpayment.options[3].selected) { downpay = .15;}
				if (form.Downpayment.options[4].selected) { downpay = .20;}
				factor2 = 1-downpay;
								
}
// Calculate interest rate factor
function intCalc(form) {
if (form.Interest.options[0].selected) { factor1 = .0060;}
				if (form.Interest.options[1].selected) { factor1 = .00615;}
				if (form.Interest.options[2].selected) { factor1 = .0063;}
				if (form.Interest.options[3].selected) { factor1 = .0065;}
				if (form.Interest.options[4].selected) { factor1 = .0067;}
				if (form.Interest.options[5].selected) { factor1 = .00685;}
				if (form.Interest.options[6].selected) { factor1 = .0070;}
				if (form.Interest.options[7].selected) { factor1 = .0074;}
				if (form.Interest.options[8].selected) { factor1 = .0077;}
				if (form.Interest.options[9].selected) { factor1 = .00785;}
				if (form.Interest.options[10].selected) { factor1 = .0080;}

					
}

// Calculate total monthly long term obligations
function longCalc(form) {
auto1= eval(form.Automobile.value);
				if (isNaN(auto1)) {auto1=0;}

				alimon1 = eval(form.Alimony.value);
				if (isNaN(alimon1)) {alimon1=0;}

				credit1 = eval(form.Credit.value);
				if (isNaN(credit1)) {credit1=0;}
				
				student1 = eval(form.Student.value);
				if (isNaN(student1)) {student1;}

				othr1 = eval(form.Other.value);
				if (isNaN(othr1)) {othr1=0;}
				long_bills = (auto1 + alimon1 + credit1 + student1 + othr1);
				form.Subtotal.value= cutDollar2(long_bills);
				
}

// Calculate Monthly allowable housing expense
function houseCalc(form) {
				income1 = eval(form.Gross.value);
				if (isNaN(income1)) {income1=0;}
				house_expen1 = ((.36 * (income1/12))-(long_bills));
				house_expen2 = ((income1/12)*(.28));
				if (house_expen1 > house_expen2) {house_expense = house_expen2;} else {
				house_expense = house_expen1;}
				
}

// Calculate 30 Yr estimated mortgage amount
function morgeCalc(form) {
				morge_30 = ((house_expense * .80) / factor1);
				afford = (morge_30 / factor2);
				form.Mortgage.value = cutDollar2(morge_30);
				form.Price_Range.value = cutDollar2(afford);
}

// Calculate the whole magilla
function momaCalc(form) {
				downCalc(form);
				longCalc(form); 
				intCalc(form);
				houseCalc(form);
				morgeCalc(form);
}
	<!--HIDE FROM OTHER BROWSERS
	var check1='ok'
	var check2='ng'
	var check3='ok'
	var okChecker='ng'
	var isZip = true
	var price1=0
	var price2=0
	var price3=0
	var price4=0
	var price5=0
	var prod1=""
	var prod2=""
	var prod3=""
	var prod4=""
	var prod5=""
	var line1=''
	var line5=''
	var connect1=''
	var monica=''
	// SET PRODUCT PRICES for downloaded products
	var prod1_price = 8.95
	var prod2_price = 8.95
	var advert_price = 12.10
	var prod3_price = 6.95
	var prod4_price = 14.10
	var prod5_price = 8.45
	var price_total = 0
	var form1 = 0
	var form2 = 0
	var form3 = 0
	var form4 = 0
	var formtot = 0
	var formtot2 = 0
	var formamount = 0
	
	// SET TAX RATE
	var tax_rate = .070
	var taxsum = 0
	var taxer = 0



function roundDollar (Val) {
	Dollar = Math.floor(Val) 
	Val = "" + Math.round(Val * 100)
	Decimal = Val.substring (Val.length-2, Val.length)
	return (Dollar + "." + Decimal);
}


function Map(page) {
OpenWin=this.open(page,"ctrlwindow","left=20,top=-440,width=500,height=290,toolbar=no,location=no,scrollbars=yes,resize=yes");
}

function MM_nbGroup(event, grpName) { //v6.0
  var i,img,nbArr,args=MM_nbGroup.arguments;
  if (event == "init" && args.length > 2) {
    if ((img = MM_findObj(args[2])) != null && !img.MM_init) {
      img.MM_init = true; img.MM_up = args[3]; img.MM_dn = img.src;
      if ((nbArr = document[grpName]) == null) nbArr = document[grpName] = new Array();
      nbArr[nbArr.length] = img;
      for (i=4; i < args.length-1; i+=2) if ((img = MM_findObj(args[i])) != null) {
        if (!img.MM_up) img.MM_up = img.src;
        img.src = img.MM_dn = args[i+1];
        nbArr[nbArr.length] = img;
    } }
  } else if (event == "over") {
    document.MM_nbOver = nbArr = new Array();
    for (i=1; i < args.length-1; i+=3) if ((img = MM_findObj(args[i])) != null) {
      if (!img.MM_up) img.MM_up = img.src;
      img.src = (img.MM_dn && args[i+2]) ? args[i+2] : ((args[i+1])? args[i+1] : img.MM_up);
      nbArr[nbArr.length] = img;
    }
  } else if (event == "out" ) {
    for (i=0; i < document.MM_nbOver.length; i++) {
      img = document.MM_nbOver[i]; img.src = (img.MM_dn) ? img.MM_dn : img.MM_up; }
  } else if (event == "down") {
    nbArr = document[grpName];
    if (nbArr)
      for (i=0; i < nbArr.length; i++) { img=nbArr[i]; img.src = img.MM_up; img.MM_dn = 0; }
    document[grpName] = nbArr = new Array();
    for (i=2; i < args.length-1; i+=2) if ((img = MM_findObj(args[i])) != null) {
      if (!img.MM_up) img.MM_up = img.src;
      img.src = img.MM_dn = (args[i+1])? args[i+1] : img.MM_up;
      nbArr[nbArr.length] = img;
  } }
}


//-->
