function write_menu() {
  smc = 0; // count the position of the self_menu
  document.write("<div style='position:absolute'>");
  mn = 0;
  mni = 1;
  start = -1;
  mainCount = 0;


  for(i=0;i<Link.length;i++) {
   la = Link[i].split("|");
   	
   if (la[0] == "0") {
		
		
		
		if(start == 0) {
		  document.write("</div>");
		  h =  csmc * iheight;
		  tmn = mn; //-h
		  self_menu[smc] = new Array(tmn,h,0,-2);
		  smc++;
		  mn--;
		 }
		 csmc = 0;
		mainCount++;
		content = la[1];
		theOnFunc = "";
		if(hasChildren == 0){
			mn+=1;	
		}
		 hasChildren = 0;
		if(menuPage != i) { theOnFunc = "onmouseover='color(this.id, over_tc)' onmouseout='uncolor(this.id, tc)'"; }
		if(la[2] != "" && la[2] != null){
			content ="<a id='hr"+i+"' href='"+la[2]+"&menuPage="+i+"' "+theOnFunc+" style='text-decoration:none; color:"+tc+";'>"+la[1]+"</a>";
			onclickcode = "";
		}else{
			onclickcode = "onclick='pull_down("+smc+","+mni+")'";	
		}

	

	
	document.write("<div class='menu' style='top:"+mn+";height:"+height+"' id='down"+smc+"' "+onclickcode+" onmouseover='color(this.id, over_tc)' onmouseout='uncolor(this.id, tc)'> "+ content + "</div>");
	
	if(menuPage == i){
		color("hr"+i, select_tc);
	}

	
    self_menu[smc] = new Array(mn,height,0,mni);
    smc++;
    mni++;
    mn+=height;
    start = 1;
   } else if (la[0] == "1") {

	
 	 hasChildren = 1;
	if(start == 1) {
      if(N)mn+=2;
       document.write("<div class='item_panel' id='down"+smc+"' style='top:"+mn+"'>");
       start = 0;
     }

    document.write("<a id='hr"+i+"' href='"+la[2]+"&menu="+mainCount+"&menuPage="+i+"' onmouseover='color(this.id, sub_over_tc)' onmouseout='uncolor(this.id, sub_tc)'");
    if (la[3] != "") document.write(" target='" + la[3] + "' ");
	if(menuPage == i) {
		document.write(" style='color:"+select_sub_tc+";'");
	} else {
		document.write(" style='color:"+sub_tc+";'");		
	}
    document.write("><div class='item' id='d"+i+"' style='height:"+iheight);
    if (N) document.write(";width:150");
    
	if(menuPage == i){	 
	    document.write("'>  "+ la[1] + "</div></a>");	
		//color("d"+i, select_sub_tc);	
	} else {
		 document.write("'>  "+ la[1] + "</div></a>");
	}
	
	csmc++;
  
   }
  }
  if (start == 0) {
     document.write("</div>");
     h =  csmc * iheight;
     tmn = mn + 5; //-h
     self_menu[smc] = new Array(tmn,h,0);
     name = "down" + (self_menu.length-1);
     obj = document.getElementById(name);
   //  obj.style.borderBottomColor = "darkblue";
   //  obj.style.borderBottomWidth = 1;
   //  obj.style.borderBottomStyle = "solid";
   }
  document.write("</div>");
}

function color(obj, tc) {
	
 var theObj = document.getElementById(obj)

 theObj.style.backgroundColor = over_bgc;
 theObj.style.color = tc
 if(tc == "red"){
	//  document.getElementById(obj).style.fontWeight = "bold";
 }
}


function uncolor(obj, tc) {
 document.getElementById(obj).style.backgroundColor = bgc;
 document.getElementById(obj).style.color = tc
 //document.getElementById(obj).style.fontWeight = "normal";
}




function pull_down(nr,c) {

if(pullingUP == false && glb_nr != -1 && glb_c != -1){

	if(nr != glb_nr && c != glb_c){
		pullingUP = true;
		pull_down(glb_nr,glb_c);
		glb_nr = -1;
		glb_c = -1;
	}
}
   
	pullingUP = false;  
   
if(timerID != ""){

	window.setTimeout("pull_down("+nr+","+c+")", 1000);

}else{

			
		 if (timerID == "") {
		 to = self_menu[nr+1][1]
		 begin = nr + 2;
		
		if (timerID != "") clearTimeout(timerID);
		
		if (self_menu[nr+1][2] == 0) {
			
			
			
				glb_nr = nr;
				glb_c = c;			

			  self_menu[nr+1][2] = 1;
			  if(nr == self_menu.length-2) {to++;}
			  epull_down(begin,to,0);
		 } else {
	 glb_nr = -1;
	 glb_c = -1;			 
			  to = 0;
			  self_menu[nr+1][2] = 0;
			  name = "down"+(nr+2);
			  open_item = 0;
			  for(i=0;i<nr;i++) {
			   if(self_menu[i][2] == 1)
				{open_item += self_menu[i][1];
				}
			  }
			  
			  if (N == false) {open_item-= (c*1)};
			  
				  if (nr== self_menu.length-2) {
					  val = self_menu[self_menu.length-1][1];to=-1;
				  }
					else  val = parseInt(document.getElementById(name).style.top) -(open_item)-(c*height);
				  epull_up(begin,to,val);
			  }
		  }
	}
}

function epull_down(nr,to,nowv) {
 name = "down" + (nr-1);
 obj = document.getElementById(name).style.clip = "rect(0,"+width+","+(nowv+1)+",0)";
 for (i=nr;i<self_menu.length;i++) {
  name = "down" + i;
  obj = document.getElementById(name);
  obj.style.top = parseInt(obj.style.top)+2;
 }
 nowv = nowv + 2;
 if(nowv < to){
	if(now){
		epull_down(nr,to,nowv);	
	}else{
		timerID = setTimeout("epull_down("+nr+","+to+","+nowv+")",speed);
	}
 }
 else {
	 now = false;
	 //glb_nr = -1;
	// glb_c = -1;
	timerID = ""; 
 }
}

function epull_up(nr,to,nowv) {
 name = "down" + (nr-1);
 obj = document.getElementById(name).style.clip = "rect(0,"+width+","+nowv+",0)";
 for (i=nr;i<self_menu.length;i++) {
  name = "down" + i;
  obj = document.getElementById(name);
  obj.style.top = parseInt(obj.style.top)-2;
 }
 nowv = nowv - 2;
 if(nowv > to+6) timerID = setTimeout("epull_up("+nr+","+to+","+nowv+")",speed);
 else timerID = "";
}

function startup(nr) {
 selectedMenu = nr;
 write_menu();
 if (nr != 0) {
 for(i=0;i<self_menu.length;i++)
 {
  if(self_menu[i][3] == nr) {
	now = true;
	pull_down(i,nr)
  }
  i==self_menu.length;
 }
 }
}


function getMenuPage(val) {
	menuPage = val;	
}