function ordercal(form)
// Cactus2000 order form calculation
// last change: BCK, Dec.28,2005 (Konjugationshase)
//                   Mar.05,2006 (VocTrain, spanisch)
//    HK, Aug 27, 2006 (Conhase F)
// previous change: BCK, Feb.2,2003
{
    zhase=0.; zhasef=0.; zhaseit=0.; zhasees=0.; zhasept=0.; zigel=0.; zigelfr=0.; zigelit=0.;
    zvoc1=0.; zvoc2=0.; zspa1=0.; zspa2=0.;zver=0.;zumr=0.;ztab=0.;
    zgeo=0.;
    ordnum=0;
    if(form.ch_hase.checked==true){ordnum++;}
    if(form.ch_hasef.checked==true){ordnum++;}
    if(form.ch_haseit.checked==true){ordnum++;}
    if(form.ch_hasees.checked==true){ordnum++;}
    if(form.ch_hasept.checked==true){ordnum++;}
    if(form.ch_igel.checked==true){ordnum++;}
    if(form.ch_igel_fr.checked==true){ordnum++;}
    if(form.ch_igel_it.checked==true){ordnum++;}
    if(form.ch_voc1.checked==true){ordnum++;}
    if(form.ch_voc2.checked==true){ordnum++;}
    if(form.ch_spa1.checked==true){ordnum++;}
    if(form.ch_spa2.checked==true){ordnum++;}
    if(form.ch_ver.checked==true){ordnum++;}
    if(form.ch_tab.checked==true){ordnum++;}
    if(form.ch_umr.checked==true){ordnum++;}
    if(form.ch_geo.checked==true){ordnum++;}
    if(form.ch_hase.checked==true)
        { if (ordnum>1) {zhase=8.;} else {zhase=10.;} }
    if(form.ch_hasef.checked==true)
        { if (ordnum>1) {zhasef=8.;} else {zhasef=10.;} }
    if(form.ch_haseit.checked==true)
        { if (ordnum>1) {zhaseit=8.;} else {zhaseit=10.;} }
    if(form.ch_hasees.checked==true)
        { if (ordnum>1) {zhasees=8.;} else {zhasees=10.;} }
    if(form.ch_hasept.checked==true)
        { if (ordnum>1) {zhasept=8.;} else {zhasept=10.;} }
    if(form.ch_igel.checked==true)
        { if (ordnum>1) {zigel=8.;} else {zigel=10.;} }
    if(form.ch_igel_fr.checked==true)
        { if (ordnum>1) {zigelfr=8.;} else {zigelfr=10.;} }
    if(form.ch_igel_it.checked==true)
        { if (ordnum>1) {zigelit=8.;} else {zigelit=10.;} }
    if(form.ch_voc1.checked==true)
        { if (ordnum>1) {zvoc1=8.;} else {zvoc1=10.;} }
    if(form.ch_voc2.checked==true)
        { if (ordnum>1) {zvoc2=8.;} else {zvoc2=10.;} }
    if(form.ch_spa1.checked==true)
        { if (ordnum>1) {zspa1=6.;} else {zspa1=7.50;} }
    if(form.ch_spa2.checked==true)
        { if (ordnum>1) {zspa2=6.;} else {zspa2=7.50;} }
    if(form.ch_ver.checked==true)
        { if (ordnum>1) {zver=4.;} else {zver=5.;} }
    if(form.ch_tab.checked==true)
        { if (ordnum>1) {ztab=4.;} else {ztab=5.;} }
    if(form.ch_umr.checked==true)
        { if (ordnum>1) {zumr=12.;} else {zumr=15.;} }
    if(form.ch_geo.checked==true)
        { if (ordnum>1) {zgeo=8.;} else {zgeo=10.;} }
    zsum = zhase+zhasef+zhaseit+zhasees+zhasept;
    zsum += zigel+zigelfr+zigelit;
    zsum += zvoc1+zvoc2+zspa1+zspa2;
    zsum += zver+ztab+zumr+zgeo;

    form.pr_hase.value=eval(zhase);
    form.pr_hasef.value=eval(zhasef);
    form.pr_haseit.value=eval(zhaseit);
    form.pr_hasees.value=eval(zhasees);
    form.pr_hasept.value=eval(zhasept);

    form.pr_igel.value=eval(zigel);
    form.pr_igel_fr.value=eval(zigelfr);
    form.pr_igel_it.value=eval(zigelit);

    form.pr_voc1.value=eval(zvoc1);
    form.pr_voc2.value=eval(zvoc2);
    form.pr_spa1.value=eval(zspa1);
    form.pr_spa2.value=eval(zspa2);

    form.pr_ver.value=eval(zver);
    form.pr_tab.value=eval(ztab);
    form.pr_umr.value=eval(zumr);
    form.pr_geo.value=eval(zgeo);
    form.pr_sum.value=eval(zsum);
}