// Property of RED ROSE Landscaping Java - 2002

function curr(n) {
    n = "" + Math.round(n*100)/100;
    var k = n.indexOf(".");
    if (k != -1) {
        var n1 = n.substring(0,k);
        var n2 = n.substring(k,n.length);
        if (n2.length == 2) { n2 = n2 + "0" }
    }
    else {
        n1 = n;
        n2=".00";
    }
    var n3 = "";
    for (var i=0; i <= n1.length; i++) {
        n3 = n1.charAt(i) + n3;
    }
    var n4 = "";
    for (var i=0; i < n3.length; i++) {
        if ((i%3 == 0) && (i != 0)) {
            n4 = n3.charAt(i) + "," + n4;
        }
        else {
            n4 = n3.charAt(i) + n4;
        }
    }
    return ("$ " + n4 + n2);
}

function calculate1()
{
drv_width = window.document.form1.drvlength.value;
drv_length = window.document.form1.drvwidth.value;
drv_area = curr(drv_width * drv_length * 13);
window.document.form1.drv.value = drv_area;
}  
function calculate3()
{
wkw_length = window.document.form3.wkwlength.value;
wkw_width = window.document.form3.wkwwidth.value;
wkw_area = curr(wkw_width * wkw_length * 14);
window.document.form3.wkw.value = wkw_area;
}  
function calculate2()
{
cvr_sfarea = window.document.form2.cvrsfarea.value;
cvr_vfarea = window.document.form2.cvrvfarea.value;
sfarea = cvr_sfarea * 13;
vfarea = cvr_vfarea * 55;
cvr_area = curr(sfarea + vfarea);
window.document.form2.cvrprch.value = cvr_area;
}  
function calculate8()
{
dbrdr_width = window.document.form8.dbrdrl.value;
dbrdr_length = window.document.form8.dbrdrw.value;
dbrdr_area = curr(dbrdr_width * dbrdr_length * 28);
window.document.form8.dbrdr.value = dbrdr_area;
}  
function calculate5()
{

stp_length = window.document.form5.stplength.value;
stp_length2 = Math.ceil(stp_length / 6.0)* 6 ;
stp_length3 = stp_length2 * 100;

stp_area = curr(stp_length3);


window.document.form5.stp.value = stp_area;
}  
function calculate4()
{
rw_length = window.document.form4.rwlength.value;
rw_width = window.document.form4.rwwidth.value;
rw_area = curr(rw_width * rw_length * 52);
window.document.form4.rw.value = rw_area;
}  
function calculate6()
{
gs_length = window.document.form6.gslength.value;
gs_width = window.document.form6.gswidth.value;
gs_first = gs_length * gs_width;
gs_second = gs_first / 25;
gs_area = curr(gs_second * 100);
window.document.form6.gs.value = gs_area;
}  
function calculate9()
{
dap_depth = window.document.form9.dapd.value;
dap_width = window.document.form9.dapw.value;
dap_area = curr(dap_depth * dap_width * 14);
window.document.form9.dap.value = dap_area;
}  
function calculate10()
{

rkc_count = window.document.form10.rkc.value;
rkc_area = curr(rkc_count * 250);
window.document.form10.rk.value = rkc_area;
}  
function calculate11()
{
bp_length = window.document.form11.bplength.value;
bp_width = window.document.form11.bpwidth.value;
bp_steps = window.document.form11.bpsteps.value;
bp_first = 14;
bp_second = bp_length * bp_width;
bp_third = bp_second * bp_first;
bp_fourth = bp_steps * 800
bp_area = curr(bp_third + bp_fourth);
window.document.form11.bp.value = bp_area;
} 
function calculate7()
{
drv_width = window.document.form1.drvlength.value;
drv_length = window.document.form1.drvwidth.value;
drv_area = drv_width * drv_length * 13;

wkw_length = window.document.form3.wkwlength.value;
wkw_width = window.document.form3.wkwwidth.value;
wkw_area = wkw_width * wkw_length * 14;

cvr_sfarea = window.document.form2.cvrsfarea.value;
cvr_vfarea = window.document.form2.cvrvfarea.value;
sfarea = cvr_sfarea * 13;
vfarea = cvr_vfarea * 55;
cvr_area = sfarea + vfarea;

dbrdr_width = window.document.form8.dbrdrl.value;
dbrdr_length = window.document.form8.dbrdrw.value;
dbrdr_area = dbrdr_width * dbrdr_length * 28;

stp_length = window.document.form5.stplength.value;
stp_length2 = Math.ceil(stp_length / 6.0)* 6 ;
stp_length3 = stp_length2 * 100;

stp_area = stp_length3;

rw_length = window.document.form4.rwlength.value;
rw_width = window.document.form4.rwwidth.value;
rw_area = rw_width * rw_length * 52;

gs_length = window.document.form6.gslength.value;
gs_width = window.document.form6.gswidth.value;
gs_first = gs_length * gs_width;
gs_second = gs_first / 25;
gs_area = gs_second * 100;

dap_depth = window.document.form9.dapd.value;
dap_width = window.document.form9.dapw.value;
dap_area = dap_depth * dap_width * 14;

rkc_count = window.document.form10.rkc.value;
rkc_area = rkc_count * 250;

bp_length = window.document.form11.bplength.value;
bp_width = window.document.form11.bpwidth.value;
bp_steps = window.document.form11.bpsteps.value;
bp_first = 14;
bp_second = bp_length * bp_width;
bp_third = bp_second * bp_first;
bp_fourth = bp_steps * 800
bp_area = bp_third + bp_fourth;

gt_area = curr(gs_area + stp_area + rw_area + wkw_area + cvr_area + drv_area + dbrdr_area + dap_area + rkc_area + bp_area);
window.document.form7.gt.value = gt_area;
}