var verticalspacing = 20
var currentPage = ""

function makemenu(list,xpos,ypos,width,height,vertical)
{   verticalspacing = vertical
    var styl="border:outset #cccccc 2px; LEFT:"+xpos+"px; WIDTH:"+width+"px; POSITION: absolute; TOP:"+ypos+"px; HEIGHT:"+height+"px; background: rgb(221,221,255)"
    document.write('<DIV style="'+styl+'">')
    styl ='BACKGROUND: #ddddff; LEFT: 0px; TOP: 0px; WIDTH:'+(width-4)+'px; CURSOR: default; POSITION: absolute;  HEIGHT:'+(height-2)+'px'

    document.write('<span style="'+styl+'" ')
	document.write('onmouseout="hidemenu(this)"' )
    document.write('onmouseover="showmenu(this)"')
	document.write('>');

	easysubmenu(list,1,16,verticalspacing-4,100,10);

    document.write('&nbsp;<img src="bluearrow.gif">&nbsp;'+list[0]);	
	document.write('</span>');
	document.write('</div>');  
}

function easysubmenu(list,first,xpos,ypos,width,height)
{   
    var level = list[first].indexOf("|")
	var pos = 0
	var check = level

	var p = first
	var widest = 0
	do
	{
	  check = list[p].indexOf("|")
	  if (check==level)
	  {  pos++ 
	     var wide = list[p].indexOf("^")
		 if (wide < 0) { wide = list[p].length }
		 wide = wide - level
		 if (wide > widest) { widest = wide }
	  }   
	  p++   	   
	} while ((check>=level) && (p<list.length) )
    
    last = p-1
    var divHeight = verticalspacing*(pos)+5
	if (divHeight > height) { height = divHeight}
	pos--
	
	var divWidth = 30+8*widest
	if (divWidth > width) { width = divWidth }

    var styl="border:outset 2px; LEFT:"+xpos+"px; WIDTH: "+width+"px; POSITION: absolute; TOP:"+ypos+"px; HEIGHT: "+height+"px; background: rgb(221,221,255);visibility:hidden"
    document.write('<DIV style="'+styl+'">') 
	
	for (var m=last; m >= first ; m--)
	{ 
	   var thislevel = list[m].indexOf("|")
	   if (thislevel == level)
	   {
         var start = list[m].indexOf('|');
         var links = list[m].indexOf('^');
		 if (links < 0) { links = list[m].length }
         var txt = list[m].substring(start+1,links)
	     var link = list[m].substring(links+1)
		 var linked = ""
		 
	     var tops = pos*verticalspacing;
	   
	     styl ='BACKGROUND: #ddddff; LEFT: 0px; TOP: '+tops+'px; WIDTH:'+(width)+'px; CURSOR: default; POSITION: absolute;  HEIGHT: '+verticalspacing+'px'
 
         document.write('<span style="'+styl+'" ');
         document.write(' onmouseout="hidemenu(this)"' );
         document.write(' onmouseover="showmenu(this)"');

	     if (link.length>0)
		 { if (link.substring(0,1)=="?")
		   {link = link.substring(1)}
		   else if(link.substring(0,1)=="*")
		   { linked = link.substring(1)
		     link = 'window.open("'+linked+'","main","");currentPage="'+linked+'";'
			 linked = linked + "  \>\>"
		   }
		   else if(link.substring(0,1)=="^")
		   { linked = link.substring(1)
		     link = 'window.open("'+linked+'","_blank","")'
			 linked =  linked + " ^^"
		   }
		   else
		   { linked = link
		     link = 'parent.location="'+linked+'"' 
		   }
		   document.write(" onclick='"+link+"'");
		 }
		 document.write(' linked="'+linked+'"')
         document.write('>');
         var submenu = false;
		 if (m<list.length-1)
		 { 
		   if (list[m+1].indexOf("|")==level+1)
		   { submenu = true }
		 }

         if (submenu)  easysubmenu(list,m+1,16,verticalspacing-4,100,50);

		 if (submenu) { txt = '<img src="bluearrow.gif"> ' + txt }
         document.write('&nbsp;'+txt);
		 	
	     document.write('</span><br>');
		 pos--;
	   } 
	   
	}

	document.write('</div>'); 
}

function showmenu(ob)
{ if (ob.linked)
  {parent.status = ob.linked}
  ob.style.background="#ffffee"; 
  if (ob.children!=null) 
  { if(ob.children[0]!=null)
    { if(ob.children[0].tagName.toUpperCase()=="DIV"){ob.children[0].style.visibility="visible";}  }
  }	
  else 
  if (ob.childNodes!=null)  
  { if(ob.childNodes[0]!=null)
    {if(ob.childNodes[0].tagName.toUpperCase()=="DIV"){ob.childNodes[0].style.visibility = "visible";} }
  }
}                

function hidemenu(ob)
{ parent.status = ""
  ob.style.background=""; 
  if (ob.children!=null) 
  { if(ob.children[0]!=null) 
    { if(ob.children[0].tagName.toUpperCase()=="DIV"){ob.children[0].style.visibility="hidden";}}
  }  
  else 
  if (ob.childNodes!=null)  
  { if(ob.childNodes[0]!=null)
    {if(ob.childNodes[0].tagName.toUpperCase()=="DIV"){ob.childNodes[0].style.visibility = "hidden";} }
  }
}