<!--
 var ph = 0
 var pRange, pPnum, pStnum, pPname, pHide, pD
 var flBusy
 var flScroll = false
 var pTimeout = 450
 var addY
 var pSafe = new Array()
 var docMH = document.body.clientHeight - 48
 function getObject(obj)
 {
  var theObj;
  if (document.layers) {
   if (typeof obj == "string") return document.layers[obj]
   else return obj
  }
  if (document.all) {
   if (typeof obj == "string")
   {
    if(document.all(obj)!=null) return document.all(obj).style;
    else return null;
   }
   else return obj.style
  }
  if (document.getElementById)
  {
   if (typeof obj == "string")
    return document.getElementById(obj).style
   else return obj.style
  }
  return null
 }
 function show_obj(obj)
 {
   var theObj = getObject(obj)
   theObj.visibility = "visible"
   if (typeof theObj.display != "undefined") theObj.display = "inline"
 }
 function hide_obj(obj)
 {
   var theObj = getObject(obj)
   theObj.visibility = "hidden"
   if (typeof theObj.display != "undefined") theObj.display = "none"
 }
 function cb_toggle(obj)
 {
   var theObj = getObject(obj)
   if (theObj.visibility=="visible")
   {
     theObj.visibility = "hidden"
     if (typeof theObj.display != "undefined") theObj.display = "none"
   }
   else
   {
     theObj.visibility = "visible"
     if (typeof theObj.display != "undefined") theObj.display = "inline"
   }
 }
 function ifset_p1(i_rnum)
 {
   var nameEval = 'r' + i_rnum
   var nameEvalP1 = 'rp' + i_rnum
   var nameBtns = 'bs' + i_rnum;
   var nameNote = 'n' + i_rnum;
   hide_obj(nameEval)
   show_obj(nameEvalP1)
   hide_obj(nameBtns)
   show_obj(nameNote)
 }
 function ifset_m1(i_rnum)
 {
   var nameEval = 'r' + i_rnum
   var nameEvalM1 = 'rm' + i_rnum
   var nameBtns = 'bs' + i_rnum;
   var nameNote = 'n' + i_rnum;
   hide_obj(nameEval)
   show_obj(nameEvalM1)
   hide_obj(nameBtns)
   show_obj(nameNote)
 }
 function CorrectMenuItems()
 {
   var addY = document.body.scrollTop
   if (addY > 111) addY -= 111
   else addY = ''
   var i, pname, pobj
   for (i = 1; i <= pPnum; i++)
   {
     pname = "p" + i
     pobj = getObject(pname)
     pobj.top = addY
   }
 }
 function SaveMenuItems()
 {
   // сохраняет top всех пунктов меню
   var i, pname, pobj
   for (i = 1; i <= pPnum; i++)
   {
     pname = "p" + i
     pobj = getObject(pname)
     pSafe[i] = pobj.top
   }
 }
 function RestoreMenuItems()
 {
   var i, pname, pobj
   for (i = 1; i <= pPnum; i++)
   {
     pname = "p" + i
     pobj = getObject(pname)
     pobj.top = pSafe[i]
   }
 }
 function InitMenu(range, pnum, stnum)
 {
   var i = stnum, sstop = false, pname = "", pobj, ypos = 0
   if (stnum > 1) ypos = 24
   hide_obj("pd")
   range = docMH
   while ((! sstop) && (i <= pnum))
   {
     pname = "p" + i
     pobj = getObject(pname)
     ypos += 24
     if ((ypos > range) && (i < pnum))
     {
       hide_obj(pname)
       show_obj("pd")
       sstop = true
     }
     else
     {
       show_obj(pname)
       flBusy = false
     }
     i++
   }
   if (sstop)
   {
     while (i <= pnum)
     {
       pname = "p" + i
       hide_obj(pname)
       i++
     }
   }
   flBusy = false
 }
 function ScrollMenu()
 {
   var phBorder = 25 * pD
   if (ph == 0)
     SaveMenuItems()
   if ((pD < 0) && (pPname != pHide))
   {
     hide_obj(pPname)
   }
   if ((ph != phBorder + pD) && (ph - pD != phBorder + pD))
   {
     var i = pStnum - 1
     if (i < 1) i = 1
     if ((pD < 0) || (pPname != pHide))
     {
       pobj = getObject(pHide)
       pobj.visibility = "hidden"
     }
     pobj = getObject(pPname)
     pobj.visibility = "hidden"
     while (i <= pPnum)
     {
       pname = "p" + i
       pobj = getObject(pname)
       addY = document.body.scrollTop
       if (addY > 111) addY -= 111
       else addY = ''
       pobj.top = addY + ph
       i++
     }
     ph += 2 * pD
     setTimeout("ScrollMenu()", 1)
   }
   else
   {
     ph = 0
     RestoreMenuItems()
     hide_obj(pPname)
     hide_obj(pHide)
     if(pStnum == 1)
     {
       hide_obj("pu")
       flScroll = false
     }
     InitMenu(pRange, pPnum, pStnum)
   }
 }
 function CycleSU()
 {
   if (flBusy) return
   if (flScroll)
   {
     ScrollUp(pRange, pPnum)
     setTimeout("CycleSU()", pTimeout)
     if (pTimeout > 250) pTimeout -= 25
   }
 }
 function CycleSD()
 {
   if (flBusy) return
   if (flScroll)
   {
     ScrollDown(pRange, pPnum)
     setTimeout("CycleSD()", pTimeout)
     if (pTimeout > 250) pTimeout -= 25
   }
 }
 function BeginScrollUp(pnum)
 {
   flScroll = true
   pRange = docMH
   pPnum = pnum
   CycleSU()
 }
 function BeginScrollDown(pnum)
 {
   flScroll = true
   pRange = docMH
   pPnum = pnum
   CycleSD()
 }
 function StopScrollMenu()
 {
   flScroll = false
   pTimeout = 450
 }
 function ScrollUp(range, pnum)
 {
   if (flBusy) return
   var i, pname, pobj, sstop = false
   pobj = getObject("p1")
   if (pobj.display != "none")
   {
     show_obj("pu")
     pRange = range
     pPnum = pnum
     pStnum = 3
     pPname = "p1"
     pHide = "p2"
     pD = -1
     flBusy = true
     if (pStnum + Math.ceil(pRange / 24) - 2 > pPnum) flScroll = false
     else
     {
       flBusy = true
       ScrollMenu()
     }
   }
   else
   {
     i = 3
     while ((! sstop) && (i <= pnum))
     {
       pname = "p" + i
       pobj = getObject(pname)
       if (pobj.display != "none")
       {
         sstop = true
         pRange = range
         pPnum = pnum
         pStnum = i+1
         pPname = pname
         pHide = pname
         pD = -1
         if (pStnum + Math.ceil(pRange / 24) - 2 > pPnum) flScroll = false
         else
         {
           flBusy = true
           ScrollMenu()
         }
       }
       i++
     }
   }
 }
 function ScrollDown(range, pnum)
 {
   if (flBusy) return
   var i, pname, pobj, sstop = false, fshow = 1
   pobj = getObject("p" + pnum)
   if (pobj.display != "none")
   {
     fshow = pnum - Math.ceil(range / 24) + 1
     if (fshow < 3) fshow = 1
     pRange = range
     pPnum = pnum
     pStnum = fshow
     pPname = "p" + pnum
     pHide = "p" + (pnum - 1)
     pD = 1
     flBusy = true
     ScrollMenu()
   }
   else
   {
     while (! sstop)
     {
       pname = "p" + (fshow + 1)
       pobj = getObject(pname)
       if (pobj.display != "none")
       {
         sstop = true
         if (fshow < 3)
         {
           fshow = 1
           flScroll = false
         }
         pRange = range
         pPnum = pnum
         pStnum = fshow
         pD = 1
         fshow = pnum - 1
         sstop = false
         while (!sstop)
         {
           pname = "p" + fshow
           pobj = getObject(pname)
           if (pobj.display != "none") sstop = true
           fshow--
         }
         pPname = pname
         pHide = pname
         flBusy = true
         ScrollMenu()
       }
       fshow++
     }
   }
 }
 function ActivateButton(bnum)
 {
   b_obj = getObject(bname)
   b_obj.src = "../images/ovr_yes.gif"
 }
//-->