///////////////////////////////////////////////////////////////////////////////

function imgswap(name,src)
{
	if (document.images) document.images[name].src = src;
}

///////////////////////////////////////////////////////////////////////////////

function loadem()
{
  for (i=1;i<=10;i++)
  {
    eval('document.FormShow.C'+i+'.value = top.f_side.document.FormStorage.C'+i+'.value' );
    eval('document.FormShow.D'+i+'.value = top.f_side.document.FormStorage.D'+i+'.value' );
    eval('document.FormShow.Q'+i+'.value = top.f_side.document.FormStorage.Q'+i+'.value' );
    eval('document.FormShow.E'+i+'.value = top.f_side.document.FormStorage.E'+i+'.value' );
  }
  refigr();
  document.FormShow.ab1.value = top.f_side.document.FormStorage.ab1.value;
  document.FormShow.ab2.value = top.f_side.document.FormStorage.ab2.value;
  document.FormShow.ab3.value = top.f_side.document.FormStorage.ab3.value;
  document.FormShow.ab4.value = top.f_side.document.FormStorage.ab4.value;
  document.FormShow.as1.value = top.f_side.document.FormStorage.as1.value;
  document.FormShow.as2.value = top.f_side.document.FormStorage.as2.value;
  document.FormShow.as3.value = top.f_side.document.FormStorage.as3.value;
  document.FormShow.as4.value = top.f_side.document.FormStorage.as4.value;
  document.FormShow.aph.value = top.f_side.document.FormStorage.aph.value;
  document.FormShow.afx.value = top.f_side.document.FormStorage.afx.value;
  document.FormShow.aem.value = top.f_side.document.FormStorage.aem.value;
  document.FormShow.ccn.value = top.f_side.document.FormStorage.ccn.value;
  document.FormShow.cce.value = top.f_side.document.FormStorage.cce.value;
  i = top.f_side.document.FormStorage.pym.value;
  if ( 1<=i && i<=3 ) document.FormShow.pym[i-1].checked = 1;
  if ( top.f_side.document.FormStorage.ccc.value=="1" ) document.FormShow.ccc.checked=1;
  else						       document.FormShow.ccc.checked=0;
}

///////////////////////////////////////////////////////////////////////////////

function savem()
{
  top.f_side.document.FormStorage.ab1.value = document.FormShow.ab1.value;
  top.f_side.document.FormStorage.ab2.value = document.FormShow.ab2.value;
  top.f_side.document.FormStorage.ab3.value = document.FormShow.ab3.value;
  top.f_side.document.FormStorage.ab4.value = document.FormShow.ab4.value;
  top.f_side.document.FormStorage.as1.value = document.FormShow.as1.value;
  top.f_side.document.FormStorage.as2.value = document.FormShow.as2.value;
  top.f_side.document.FormStorage.as3.value = document.FormShow.as3.value;
  top.f_side.document.FormStorage.as4.value = document.FormShow.as4.value;
  top.f_side.document.FormStorage.aph.value = document.FormShow.aph.value;
  top.f_side.document.FormStorage.afx.value = document.FormShow.afx.value;
  top.f_side.document.FormStorage.aem.value = document.FormShow.aem.value;
  for (i=0;i<3;i++) if ( document.FormShow.pym[i].checked )
                    top.f_side.document.FormStorage.pym.value=i+1;
  top.f_side.document.FormStorage.ccn.value = document.FormShow.ccn.value;
  top.f_side.document.FormStorage.cce.value = document.FormShow.cce.value;
  if ( document.FormShow.ccc.checked==1 ) top.f_side.document.FormStorage.ccc.value = "1";
  else				          top.f_side.document.FormStorage.ccc.value = "0";
}

///////////////////////////////////////////////////////////////////////////////

function changesamp(i,c,d,e)
{
  document.images["SAMPPIC"].src = i;
  document.SAMP.SAMPCODE.value   = c;
  document.SAMP.SAMPDESC.value   = d;
  document.SAMP.SAMPEACH.value   = e;
}

function adder1(cd,ds)
{
  l = top.f_side.document.FormStorage.L.value;
  if ( l>=10 ) return;
  l++;
  eval('top.f_side.document.FormStorage.C'+l+'.value = document.SAMP.SAMPCODE.value;' );
  eval('top.f_side.document.FormStorage.D'+l+'.value = ds + ": " + document.SAMP.SAMPDESC.value;' );
  eval('top.f_side.document.FormStorage.Q'+l+'.value = 1;'  );
  eval('top.f_side.document.FormStorage.E'+l+'.value = document.SAMP.SAMPEACH.value;' );
  top.f_side.document.FormStorage.L.value = l;
}

function adder2(cd,ds,eh)
{
  l = top.f_side.document.FormStorage.L.value;
  if ( l>=10 ) return;
  l++;
  eval('top.f_side.document.FormStorage.C'+l+'.value = cd;' );
  eval('top.f_side.document.FormStorage.D'+l+'.value = ds;' );
  eval('top.f_side.document.FormStorage.Q'+l+'.value = 1;'  );
  eval('top.f_side.document.FormStorage.E'+l+'.value = eh;' );
  top.f_side.document.FormStorage.L.value = l;
}

///////////////////////////////////////////////////////////////////////////////

function fill_m(m,c,d)
{
  t = top.f_cbot.document.FormCh.Code.value;
  t = t.substring(0,2);
  top.f_cbot.document.FormCh.Code.value = t+c;
  s = top.f_cbot.document.FormCh.Desc.value;
  i = s.indexOf(' / ');
  top.f_cbot.document.FormCh.Desc.value = s.substring(0,i+3) + d;
  top.f_cbot.document.FormCh.Each.value = lookup(t,m);
}

///////////////////////////////////////////////////////////////////////////////

function refigr()
{
  if ( top.f_side.document.FormStorage.TX.value=="1" ) document.FormShow.TAXEM.checked=1;
  else					     document.FormShow.TAXEM.checked=0;
  st = 0;
  for (i=1;i<=10;i++)
  {
    eval('top.f_side.document.FormStorage.Q'+i+'.value = document.FormShow.Q'+i+'.value' );
    q = eval('document.FormShow.Q'+i+'.value');
    e = eval('document.FormShow.E'+i+'.value');
    t = q*e;
    if ( t ) { document.FormShow.elements['T'+i].value = prettybucks(t);  st+=t; }
    else     { document.FormShow.elements['T'+i].value = '';		     }
  }
  document.FormShow.ST.value = prettybucks( st );
  if (document.FormShow.TAXEM.checked) tx=st*0.0725; else tx=0;
  document.FormShow.TX.value = prettybucks( tx );
  sh = parseInt(document.FormShow.SH.value);
  document.FormShow.TT.value = prettybucks( st+tx+sh );
}

///////////////////////////////////////////////////////////////////////////////

function prettybucks(bucks)
{
  bucks += 0.005;
  bi = Math.floor(bucks);
  bf = Math.floor((bucks-bi)*100)+'00';
  return ( bi+'.'+bf.substring(0,2) );
}

///////////////////////////////////////////////////////////////////////////////

function taxer()
{
  if   (document.FormShow.TAXEM.checked) top.f_side.document.FormStorage.TX.value="1";
  else                                   top.f_side.document.FormStorage.TX.value="0";
}

///////////////////////////////////////////////////////////////////////////////

function zapone(x)
{
  if (x<10)
    for (i=x;i<10;i++)
    {
      eval( 'top.f_side.document.FormStorage.C'+i+'.value = top.f_side.document.FormStorage.C'+(i+1)+'.value' );
      eval( 'top.f_side.document.FormStorage.D'+i+'.value = top.f_side.document.FormStorage.D'+(i+1)+'.value' );
      eval( 'top.f_side.document.FormStorage.Q'+i+'.value = top.f_side.document.FormStorage.Q'+(i+1)+'.value' );
      eval( 'top.f_side.document.FormStorage.E'+i+'.value = top.f_side.document.FormStorage.E'+(i+1)+'.value' );
    }
  top.f_side.document.FormStorage.C10.value="";
  top.f_side.document.FormStorage.D10.value="";
  top.f_side.document.FormStorage.Q10.value="";
  top.f_side.document.FormStorage.E10.value="";
  if ( x <= top.f_side.document.FormStorage.L.value )
            top.f_side.document.FormStorage.L.value--;
  loadem();
}

///////////////////////////////////////////////////////////////////////////////

function zap()
{
  for (l=1;l<=10;l++)
  {
    eval('top.f_side.document.FormStorage.C'+l+'.value = ""' );
    eval('top.f_side.document.FormStorage.D'+l+'.value = ""' );
    eval('top.f_side.document.FormStorage.Q'+l+'.value = ""' );
    eval('top.f_side.document.FormStorage.E'+l+'.value = ""' );
  }
  top.f_side.document.FormStorage.L.value = 0;
  document.FormShow.TAXEM.checked=0;
  top.f_side.document.FormStorage.TX.value="0";
  top.f_side.document.FormStorage.ab1.value = '';
  top.f_side.document.FormStorage.ab2.value = '';
  top.f_side.document.FormStorage.ab3.value = '';
  top.f_side.document.FormStorage.ab4.value = '';
  top.f_side.document.FormStorage.as1.value = '';
  top.f_side.document.FormStorage.as2.value = '';
  top.f_side.document.FormStorage.as3.value = '';
  top.f_side.document.FormStorage.as4.value = '';
  top.f_side.document.FormStorage.aph.value = '';
  top.f_side.document.FormStorage.afx.value = '';
  top.f_side.document.FormStorage.aem.value = '';
  for (i=0;i<3;i++) document.FormShow.pym[i].checked=0;
  top.f_side.document.FormStorage.pym.value = '';
  top.f_side.document.FormStorage.ccn.value = '';
  top.f_side.document.FormStorage.cce.value = '';
  top.f_side.document.FormStorage.ccc.value = "0";
  loadem();
}

///////////////////////////////////////////////////////////////////////////////