
<!-----

   var SalesTax = 0.07
   var Shipping = 0.09
   var SubTotal
   var SubComp
   var codes = "|J20|R21|T22|B24|G25|A23|C26";

   function mformat(field) {
      var retval = field.value
      var dotpos = -1
      
      if (field.value.substring(0,1) == '.') {
         retval = "0" + field.value
      }
      for (var i = 0; i < retval.length; i++) {
         if (retval.substring(i,i+1) == ".") {
            dotpos = i
         }
      }
      if (dotpos == -1) {
         retval = retval + ".00"
         dotpos = retval.length - 3
      } 
      if (retval.length - dotpos > 3) {
         retval = retval.substring(0, dotpos + 3)
      }
      for (var i = retval.length - dotpos; i < 3; i++) {
         retval = retval + "0"
      }
      field.value = retval
   }
      
   function extend(q, p, e, st, items, inv) {
      var numitems

      numitems = items.value

      if (codes.indexOf(inv.ACCESS.value) > 0) {
         if (q.value > 0) p.value = 35.95;
         if (q.value > 9) p.value = 32.95;
         if (q.value > 49) p.value = 30.95;
         if (q.value > 99) p.value = 27.95;
         if (q.value > 499) p.value = 26.95;
         mformat(p);
      } else {
         p.value = 49.95;
      }

      e.value = (p.value * q.value)
      mformat(e)
 
      SubComp = parseFloat(e.value);

      st.value = SubComp
      mformat(st)

      if (inv.LOC[0].checked) {
         inv.x_Tax.value = (SubComp * SalesTax)
         mformat(inv.x_Tax)
         inv.x_Freight.value = 9.95 * inv.QTY1.value;
         mformat(inv.x_Freight)
      } else {
         inv.x_Tax.value = "0.00"
      } 

      if (inv.LOC[1].checked) {
         inv.x_Freight.value = 14.95 * inv.QTY1.value
         mformat(inv.x_Freight)
      }
         
      if (inv.LOC[2].checked) {
         inv.x_Freight.value = 21.95 * inv.QTY1.value
         mformat(inv.x_Freight)
      }

      inv.x_Amount.value = SubComp + parseFloat(inv.x_Tax.value) + parseFloat(inv.x_Freight.value)
      mformat(inv.x_Amount)
   }

   function collectsub(t) {
      SubTotal = t.value
   }

   function replacesub(t) {
      t.value = SubTotal
   }