function updateFlag(input) {

if (input == 0) {

flag = 0;

}

if (input == 1) {

flag = 1;

}

if (input == 2) {

flag = 2;

}

if (input == 3) {

flag = 3;

}

}

<!-- Form Input Validation -->

function checkForm(MAIN_FORM) {

if (isEmpty(MAIN_FORM.p1_tx_head.value)) {

window.alert("Please answer the question: How many animals do you need to treat?");
select(MAIN_FORM.p1_tx_head);
flag = 9;
return false;
}

if(isFirstblank(MAIN_FORM.p1_tx_head.value)) {

window.alert("How many animals to treat cannot start with a space.");
select(MAIN_FORM.p1_tx_head);
flag = 9;
return false;
}

if (isNumericNoSpaces(MAIN_FORM.p1_tx_head.value)) {

window.alert("How many animals to treat can only contain Numeric characters.");
select(MAIN_FORM.p1_tx_head);
flag = 9;
return false;
}

if (isEmpty(MAIN_FORM.p1_tx_weight.value)) {

window.alert("Please answer the question: What is the weight per animal?");
select(MAIN_FORM.p1_tx_weight);
flag = 9;
return false;
}

if(isFirstblank(MAIN_FORM.p1_tx_weight.value)) {

window.alert("Weight per animal cannot start with a space.");
select(MAIN_FORM.p1_tx_weight);
flag = 9;
return false;
}

if (isNumericNoSpaces(MAIN_FORM.p1_tx_weight.value)) {

window.alert("Weight per animal can only contain Numeric characters.");
select(MAIN_FORM.p1_tx_weight);
flag = 9;
return false;
}

if (isButtonSelected(MAIN_FORM.p1_ra_custombutton3)) {

window.alert("Please select a valid program button.");
flag = 9;
return false;
}

if (flag == 0) {
formula = "9.6% Oral Solution";
document.Image1.src="pix/calculator/btnon_coridoral.gif";
document.Image2.src="pix/calculator/btnoff_coridsoluble.gif";
document.Image3.src="pix/calculator/btnoff_coridcrumbles125.gif";
document.Image4.src="pix/calculator/btnoff_coridcrumbles250.gif";

}

if (flag == 1) {
formula = "20% Soluble Powder";
document.Image1.src="pix/calculator/btnoff_coridoral.gif";
document.Image2.src="pix/calculator/btnon_coridsoluble.gif";
document.Image3.src="pix/calculator/btnoff_coridcrumbles125.gif";
document.Image4.src="pix/calculator/btnoff_coridcrumbles250.gif";


}

if (flag == 2) {
formula = "1.25% Crumbles";
document.Image1.src="pix/calculator/btnoff_coridoral.gif";
document.Image2.src="pix/calculator/btnoff_coridsoluble.gif";
document.Image3.src="pix/calculator/btnon_coridcrumbles125.gif";
document.Image4.src="pix/calculator/btnoff_coridcrumbles250.gif";


}

if (flag == 3) {
formula = "2.5% Crumbles";
document.Image1.src="pix/calculator/btnoff_coridoral.gif";
document.Image2.src="pix/calculator/btnoff_coridsoluble.gif";
document.Image3.src="pix/calculator/btnoff_coridcrumbles125.gif";
document.Image4.src="pix/calculator/btnon_coridcrumbles250.gif";



}

showResults();

}

<!-- End of Form Input Validation -->
<!-- Show Results Validation/Processing -->

var flag;
var formula;

function getRadioValue(radioButtons) {

for (var i = 0; i < radioButtons.length; i++) {

if (radioButtons[i].checked) {

return i;

}}

return -1;

}

function format(expr, decplaces) {

var str = "" + Math.round (eval(expr) * Math.pow(10,decplaces));

while (str.length <= decplaces) {

	str = "0" + str;

}

var decpoint = str.length - decplaces;

return str.substring(0,decpoint) + "." +
str.substring(decpoint,str.length);

}

function format2(expr, decplaces) {

var str = "" + Math.round (eval(expr) * Math.pow(10,decplaces));

while (str.length <= decplaces) {

	str = "0" + str;

}

var decpoint = str.length - decplaces;

return str.substring(0,decpoint) + " " +
str.substring(decpoint,str.length);

}

function decimal(expr) {

return format(expr,2);

}

function decimal2(expr) {

return format2(expr,0);

}

function dollarize(expr) {

return "$" + format(expr,2);

}

function dollarize2(expr) {

return "$" + format2(expr,0);

}

function updateKG() {

var kg = decimal(document.MAIN_FORM.p1_tx_weight.value / 2.2);
document.MAIN_FORM.p1_tx_weight2.value = kg;

}

function showResults() {

var head = document.MAIN_FORM.p1_tx_head.value;
var weight = document.MAIN_FORM.p1_tx_weight.value;
var program = getRadioValue(document.MAIN_FORM.p1_ra_custombutton3);
var formulation = flag;


if (program == 0) {

document.MAIN_FORM.prog.value = "21-Day Coccidiosis Prevention";

}

if (program == 1) {

document.MAIN_FORM.prog.value = "5-Day Coccidiosis Treatment";

}

if (formulation == 0) {

document.MAIN_FORM.formu.value = "9.6% Oral Solution";
document.MAIN_FORM.formu2.value = "9.6% Oral Solution";
}

if (formulation == 1) {

document.MAIN_FORM.formu.value = "20% Soluble Powder";
document.MAIN_FORM.formu2.value = "20% Soluble Powder";

}

if (formulation == 2) {

document.MAIN_FORM.formu.value = "1.25% Crumbles";
document.MAIN_FORM.formu2.value = "1.25% Crumbles";

}

if (formulation == 3) {

document.MAIN_FORM.formu.value = "2.5% Crumbles";
document.MAIN_FORM.formu2.value = "2.5% Crumbles";

}

if (program == 0 && formulation == 0) {
document.MAIN_FORM.days.value = "21";
document.MAIN_FORM.days2.value = "21";
var cost = document.MAIN_FORM.p1_tx_cost.value / 3785;
}
if (program == 1 && formulation == 0) {
document.MAIN_FORM.days.value = "5";
document.MAIN_FORM.days2.value = "5"
var cost = document.MAIN_FORM.p1_tx_cost.value / 3785;
}
if (program == 0 && formulation == 1) {
document.MAIN_FORM.days.value = "21";
document.MAIN_FORM.days2.value = "21";
var cost = document.MAIN_FORM.p1_tx_cost2.value / 283.5;
}
if (program == 1 && formulation == 1) {
document.MAIN_FORM.days.value = "5";
document.MAIN_FORM.days2.value = "5"
var cost = document.MAIN_FORM.p1_tx_cost2.value / 283.5;
}
if (program == 0 && formulation == 2) {
document.MAIN_FORM.days.value = "21";
document.MAIN_FORM.days2.value = "21";
var cost = document.MAIN_FORM.p1_tx_cost4.value / 50;
}
if (program == 1 && formulation == 2) {
document.MAIN_FORM.days.value = "5";
document.MAIN_FORM.days2.value = "5"
var cost = document.MAIN_FORM.p1_tx_cost4.value / 50;
}
if (program == 0 && formulation == 3) {
document.MAIN_FORM.days.value = "21";
document.MAIN_FORM.days2.value = "21";
var cost = document.MAIN_FORM.p1_tx_cost3.value / 50;
}
if (program == 1 && formulation == 3) {
document.MAIN_FORM.days.value = "5";
document.MAIN_FORM.days2.value = "5"
var cost = document.MAIN_FORM.p1_tx_cost3.value / 50;
}



document.MAIN_FORM.lb.value = weight;
document.MAIN_FORM.lbb.value = weight;
document.MAIN_FORM.num.value = head;
document.MAIN_FORM.num2.value = head;



<!-- how much 9.6 (Liquid) do I need? -->

if (formulation == 0 && program == 0) {

var resultg = decimal(head*(weight)/(2.2)*(5)/(96)*(21)/(3785));

document.MAIN_FORM.p1_tx_output1.value = resultg;
document.MAIN_FORM.p1_tx_output1a.value = "gallons";
document.MAIN_FORM.p1_tx_output1b.value = decimal2(head * (weight * 0.0237)* 21);
document.MAIN_FORM.p1_tx_output1c.value = "mL.";

}

if (formulation == 0 && program == 1) {

var resultg = decimal(head*(weight)/(2.2)*(10)/(96)*(5)/(3785));

document.MAIN_FORM.p1_tx_output1.value = resultg;
document.MAIN_FORM.p1_tx_output1a.value = "gallons";
document.MAIN_FORM.p1_tx_output1b.value = decimal2(head * (weight * 0.0473)* 5);
document.MAIN_FORM.p1_tx_output1c.value = "mL.";


}

<!-- how much 20% (Powder) do I need? -->


if (formulation == 1 && program == 0) {

var resultp = decimal(head*(weight)/(2.2)*(5)/(200)*(21)/(283.5));

document.MAIN_FORM.p1_tx_output1.value = resultp;
document.MAIN_FORM.p1_tx_output1a.value = "10 oz. packets";

document.MAIN_FORM.p1_tx_output1b.value = decimal2((head * (weight * 0.0114))/28.35 * 21);
document.MAIN_FORM.p1_tx_output1c.value = "oz.";

}


if (formulation == 1 && program == 1) {

var resultp = decimal(head*(weight)/(2.2)*(10)/(200)*(5)/(283.5));

document.MAIN_FORM.p1_tx_output1.value = resultp;
document.MAIN_FORM.p1_tx_output1a.value = "10 oz. packets";

document.MAIN_FORM.p1_tx_output1b.value = decimal2((head * (weight * 0.0227))/28.35 * 5);
document.MAIN_FORM.p1_tx_output1c.value = "oz.";


}

<!-- how much 1.25% Crumbles do I need? -->


if (formulation == 2 && program == 0) {

var resultp = decimal((head*(weight)/(2.2)*(5)/(12.5))/(28.35)/(16)*(21));

document.MAIN_FORM.p1_tx_output1.value = resultp;
document.MAIN_FORM.p1_tx_output1a.value = "Pounds";

document.MAIN_FORM.p1_tx_output1b.value = decimal(resultp/50);
document.MAIN_FORM.p1_tx_output1c.value = "Bags";

}


if (formulation == 2 && program == 1) {

var resultp = decimal((head*(weight)/(2.2)*(10)/(12.5))/(28.35)/(16)*(5));

document.MAIN_FORM.p1_tx_output1.value = resultp;
document.MAIN_FORM.p1_tx_output1a.value = "Pounds";

document.MAIN_FORM.p1_tx_output1b.value = decimal(resultp/50);
document.MAIN_FORM.p1_tx_output1c.value = "Bags";


}

<!-- how much 2.5% Crumbles do I need? -->


if (formulation == 3 && program == 0) {

var resultp = decimal((head*(weight)/(2.2)*(5)/(25))/(28.35)/(16)*(21));

document.MAIN_FORM.p1_tx_output1.value = resultp;
document.MAIN_FORM.p1_tx_output1a.value = "Pounds";

document.MAIN_FORM.p1_tx_output1b.value = decimal(resultp/50);
document.MAIN_FORM.p1_tx_output1c.value = "Bags";

}


if (formulation == 3 && program == 1) {

var resultp = decimal((head*(weight)/(2.2)*(10)/(25))/(28.35)/(16)*(5));

document.MAIN_FORM.p1_tx_output1.value = resultp;
document.MAIN_FORM.p1_tx_output1a.value = "Pounds";

document.MAIN_FORM.p1_tx_output1b.value = decimal(resultp/50);
document.MAIN_FORM.p1_tx_output1c.value = "Bags";


}

<!-- how much 9.6 daily? -->

if (formulation == 0 && program == 0) {

var resultgd = decimal(head*(weight)/(2.2)*(5)/(96)*(1));

document.MAIN_FORM.p1_tx_output2.value = decimal(resultgd/head);
document.MAIN_FORM.p1_tx_output2a.value = "mL per animal/day";
document.MAIN_FORM.p1_tx_output2b.value = decimal(resultgd/head*.0351951);
document.MAIN_FORM.p1_tx_output2c.value = "fl. oz. per animal/day";

document.MAIN_FORM.p1_tx_output3.value = resultgd;
document.MAIN_FORM.p1_tx_output3a.value = "mL per group/day";
document.MAIN_FORM.p1_tx_output3b.value = decimal(resultgd*.0351951);
document.MAIN_FORM.p1_tx_output3c.value = "fl. oz. per group/day";

}

if (formulation == 0 && program == 1) {

var resultgd = decimal(head*(weight)/(2.2)*(10)/(96)*(1));

document.MAIN_FORM.p1_tx_output2.value = decimal(resultgd/head);
document.MAIN_FORM.p1_tx_output2a.value = "mL per animal/day";
document.MAIN_FORM.p1_tx_output2b.value = decimal(resultgd/head*.0351951);
document.MAIN_FORM.p1_tx_output2c.value = "fl. oz. per animal/day";

document.MAIN_FORM.p1_tx_output3.value = resultgd;
document.MAIN_FORM.p1_tx_output3a.value = "mL per group/day";
document.MAIN_FORM.p1_tx_output3b.value = decimal(resultgd*.0351951);
document.MAIN_FORM.p1_tx_output3c.value = "fl. oz. per group/day";

}

<!-- how much 20% daily? -->

if (formulation == 1 && program == 0) {

var resultpd = decimal(head*(weight)/(2.2)*(5)/(200)/(28.35)*(3.5));

document.MAIN_FORM.p1_tx_output2.value = decimal((resultpd/head)/3.5);
document.MAIN_FORM.p1_tx_output2a.value = "oz. per animal/day";
document.MAIN_FORM.p1_tx_output2b.value = decimal((resultpd/head));
document.MAIN_FORM.p1_tx_output2c.value = "Tblspns. per animal/day";

document.MAIN_FORM.p1_tx_output3.value = decimal(resultpd/3.5);
document.MAIN_FORM.p1_tx_output3a.value = "oz. per group/day";
document.MAIN_FORM.p1_tx_output3b.value = decimal(resultpd/head*head);
document.MAIN_FORM.p1_tx_output3c.value = "Tblspns. per group/day";

}

if (formulation == 1 && program == 1) {

var resultpd = decimal(head*(weight)/(2.2)*(10)/(200)/(28.35)*(3.5));

document.MAIN_FORM.p1_tx_output2.value = decimal((resultpd/head)/3.5);
document.MAIN_FORM.p1_tx_output2a.value = "oz. per animal/day";
document.MAIN_FORM.p1_tx_output2b.value = decimal((resultpd/head));
document.MAIN_FORM.p1_tx_output2c.value = "Tblspns. per animal/day";

document.MAIN_FORM.p1_tx_output3.value = decimal(resultpd/3.5);
document.MAIN_FORM.p1_tx_output3a.value = "oz. per group/day";
document.MAIN_FORM.p1_tx_output3b.value = decimal(resultpd/head*head);
document.MAIN_FORM.p1_tx_output3c.value = "Tblspns. per group/day";

}

<!-- how much 1.25% daily? -->

if (formulation == 2 && program == 0) {

var resultpd = decimal(head*(weight)/(2.2)*(5)/(12.5)/(28.35)/(16));

document.MAIN_FORM.p1_tx_output2.value = decimal(resultpd/(head));
document.MAIN_FORM.p1_tx_output2a.value = "lbs. per animal/day";
document.MAIN_FORM.p1_tx_output2b.value = decimal(resultpd/(head)*(16));
document.MAIN_FORM.p1_tx_output2c.value = "oz. per animal/day";

document.MAIN_FORM.p1_tx_output3.value = resultpd;
document.MAIN_FORM.p1_tx_output3a.value = "lbs. per group/day";
document.MAIN_FORM.p1_tx_output3b.value = decimal(resultpd*(16));
document.MAIN_FORM.p1_tx_output3c.value = "oz. per group/day";

}

if (formulation == 2 && program == 1) {

var resultpd = decimal(head*(weight)/(2.2)*(10)/(12.5)/(28.35)/(16));

document.MAIN_FORM.p1_tx_output2.value = decimal(resultpd/(head));
document.MAIN_FORM.p1_tx_output2a.value = "lbs. per animal/day";
document.MAIN_FORM.p1_tx_output2b.value = decimal(resultpd/(head)*(16));
document.MAIN_FORM.p1_tx_output2c.value = "oz. per animal/day";

document.MAIN_FORM.p1_tx_output3.value = resultpd;
document.MAIN_FORM.p1_tx_output3a.value = "lbs. per group/day";
document.MAIN_FORM.p1_tx_output3b.value = decimal(resultpd*(16));
document.MAIN_FORM.p1_tx_output3c.value = "oz. per group/day";

}

<!-- how much 2.5% daily? -->

if (formulation == 3 && program == 0) {

var resultpd = decimal(head*(weight)/(2.2)*(5)/(25)/(28.35)/(16));

document.MAIN_FORM.p1_tx_output2.value = decimal(resultpd/(head));
document.MAIN_FORM.p1_tx_output2a.value = "lbs. per animal/day";
document.MAIN_FORM.p1_tx_output2b.value = decimal(resultpd/(head)*(16));
document.MAIN_FORM.p1_tx_output2c.value = "oz. per animal/day";

document.MAIN_FORM.p1_tx_output3.value = resultpd;
document.MAIN_FORM.p1_tx_output3a.value = "lbs. per group/day";
document.MAIN_FORM.p1_tx_output3b.value = decimal(resultpd*(16));
document.MAIN_FORM.p1_tx_output3c.value = "oz. per group/day";

}

if (formulation == 3 && program == 1) {

var resultpd = decimal(head*(weight)/(2.2)*(10)/(25)/(28.35)/(16));

document.MAIN_FORM.p1_tx_output2.value = decimal(resultpd/(head));
document.MAIN_FORM.p1_tx_output2a.value = "lbs. per animal/day";
document.MAIN_FORM.p1_tx_output2b.value = decimal(resultpd/(head)*(16));
document.MAIN_FORM.p1_tx_output2c.value = "oz. per animal/day";

document.MAIN_FORM.p1_tx_output3.value = resultpd;
document.MAIN_FORM.p1_tx_output3a.value = "lbs. per group/day";
document.MAIN_FORM.p1_tx_output3b.value = decimal(resultpd*(16));
document.MAIN_FORM.p1_tx_output3c.value = "oz. per group/day";

}

<!-- cost per day gallons? -->

if (formulation == 0 && program == 0) {

var resultcd = decimal((weight/2.2)*5/96);
var resultcdg = dollarize(resultcd * cost);
var resultcpag = dollarize((resultcd * cost)*21);

document.MAIN_FORM.p1_tx_output4.value = resultcdg;
document.MAIN_FORM.p1_tx_output4a.value = "per day";
document.MAIN_FORM.p1_tx_output4b.value = resultcpag;
document.MAIN_FORM.p1_tx_output4c.value = "for 21 days";

document.MAIN_FORM.p1_tx_output5.value = dollarize2(((resultcd * cost)*21)*head);
document.MAIN_FORM.p1_tx_output5a.value = "Total Program Cost";

}

if (formulation == 0 && program == 1) {

var resultcd = decimal((weight/2.2)*10/96);
var resultcdg = dollarize(resultcd * cost);
var resultcpag = dollarize((resultcd * cost)*5);

document.MAIN_FORM.p1_tx_output4.value = resultcdg;
document.MAIN_FORM.p1_tx_output4a.value = "per day";
document.MAIN_FORM.p1_tx_output4b.value = resultcpag;
document.MAIN_FORM.p1_tx_output4c.value = "for 5 days";

document.MAIN_FORM.p1_tx_output5.value = dollarize2(((resultcd * cost)*5)*head);
document.MAIN_FORM.p1_tx_output5a.value = "Total Program Cost";

}

<!-- cost per day powder? -->

if (formulation == 1 && program == 0) {

var resultcd = decimal((weight/2.2)*5/200);
var resultcdp = dollarize(resultcd * cost);
var resultcpap = dollarize((resultcd * cost) * 21);

document.MAIN_FORM.p1_tx_output4.value = resultcdp;
document.MAIN_FORM.p1_tx_output4a.value = "per day";
document.MAIN_FORM.p1_tx_output4b.value = resultcpap;
document.MAIN_FORM.p1_tx_output4c.value = "for 21 days";

document.MAIN_FORM.p1_tx_output5.value = dollarize2(((resultcd * cost)*21)*head);
document.MAIN_FORM.p1_tx_output5a.value = "Total Program Cost";

}

if (formulation == 1 && program == 1) {

var resultcd = decimal((weight/2.2)*10/200);
var resultcdp = dollarize(resultcd * cost);
var resultcpap = dollarize((resultcd * cost) * 5);

document.MAIN_FORM.p1_tx_output4.value = resultcdp;
document.MAIN_FORM.p1_tx_output4a.value = "per day";
document.MAIN_FORM.p1_tx_output4b.value = resultcpap;
document.MAIN_FORM.p1_tx_output4c.value = "for 5 days";


document.MAIN_FORM.p1_tx_output5.value = dollarize2(((resultcd * cost)*5)*head);
document.MAIN_FORM.p1_tx_output5a.value = "Total Program Cost";

}

<!-- cost per day 1.25%? -->

if (formulation == 2 && program == 0) {

var resultcd = decimal((weight/2.2)*5/(12.5)/(28.35)/(16));
var resultcdp = dollarize(resultcd * cost);
var resultcpap = dollarize((resultcd * cost) * 21);

document.MAIN_FORM.p1_tx_output4.value = resultcdp;
document.MAIN_FORM.p1_tx_output4a.value = "per day";
document.MAIN_FORM.p1_tx_output4b.value = resultcpap;
document.MAIN_FORM.p1_tx_output4c.value = "for 21 days";

document.MAIN_FORM.p1_tx_output5.value = dollarize2(((resultcd * cost)*21)*head);
document.MAIN_FORM.p1_tx_output5a.value = "Total Program Cost";

}

if (formulation == 2 && program == 1) {

var resultcd = decimal((weight/2.2)*10/(12.5)/(28.35)/(16));
var resultcdp = dollarize(resultcd * cost);
var resultcpap = dollarize((resultcd * cost) * 5);

document.MAIN_FORM.p1_tx_output4.value = resultcdp;
document.MAIN_FORM.p1_tx_output4a.value = "per day";
document.MAIN_FORM.p1_tx_output4b.value = resultcpap;
document.MAIN_FORM.p1_tx_output4c.value = "for 5 days";


document.MAIN_FORM.p1_tx_output5.value = dollarize2(((resultcd * cost)*5)*head);
document.MAIN_FORM.p1_tx_output5a.value = "Total Program Cost";

}

<!-- cost per day 2.5%? -->

if (formulation == 3 && program == 0) {

var resultcd = decimal((weight/2.2)*5/(25)/(28.35)/(16));
var resultcdp = dollarize(resultcd * cost);
var resultcpap = dollarize((resultcd * cost) * 21);

document.MAIN_FORM.p1_tx_output4.value = resultcdp;
document.MAIN_FORM.p1_tx_output4a.value = "per day";
document.MAIN_FORM.p1_tx_output4b.value = resultcpap;
document.MAIN_FORM.p1_tx_output4c.value = "for 21 days";

document.MAIN_FORM.p1_tx_output5.value = dollarize2(((resultcd * cost)*21)*head);
document.MAIN_FORM.p1_tx_output5a.value = "Total Program Cost";

}

if (formulation == 3 && program == 1) {

var resultcd = decimal((weight/2.2)*10/(25)/(28.35)/(16));
var resultcdp = dollarize(resultcd * cost);
var resultcpap = dollarize((resultcd * cost) * 5);

document.MAIN_FORM.p1_tx_output4.value = resultcdp;
document.MAIN_FORM.p1_tx_output4a.value = "per day";
document.MAIN_FORM.p1_tx_output4b.value = resultcpap;
document.MAIN_FORM.p1_tx_output4c.value = "for 5 days";


document.MAIN_FORM.p1_tx_output5.value = dollarize2(((resultcd * cost)*5)*head);
document.MAIN_FORM.p1_tx_output5a.value = "Total Program Cost";

}

}

function openPrint() {

window.open("calc_print.html","","height=500,width=800,resizable,scrollbars,menubar");
return false;

}

<!-- End of Show Results Validation/Processing -->