//(c) Ger Versluis 2000 version 3.0, 1 februari 2001 added support for DOM browsers
// You may use this script on non commercial sites
// For info write to menu@burmees.nl

var P_WinWdth, P_WinHght;
var P_RcrsLvl=0;
var P_Ldd=0, P_Crtd=0, P_IniFlg;
var P_FrstMnu=null, P_CrrntOvr=null;
var P_ClsTmr, P_Ztp=100;
var P_Hor, P_Vis, P_BWdth, P_BBtwn;
var P_CntrTxt, P_TxtCntrd;
var P_ChldOvrl,	P_ChldVOvrl;
var P_Dly, P_RTL, P_TLc;
var P_TxtCls;

P_WbMAlrts=["No such frame: ","Item not defined: ","Item needs height: ","Item needs width: ","Warning-Item doesn't need height: ","Warning-Item doesn't need width: ","Item Oke ","Menu tree oke"];

var AgntUsr=navigator.userAgent.toLowerCase();
var DomYes=(document.getElementById)?1:0; //DOM
var NavYes=(AgntUsr.indexOf('mozilla')!=-1&&AgntUsr.indexOf('compatible')==-1)?1:0; //Netscape
var ExpYes=(AgntUsr.indexOf('msie')!=-1)?1:0; //IExplorer
var Opr5=(AgntUsr.indexOf('opera 5')!=-1||AgntUsr.indexOf('opera/5')!=-1)?1:0; //Opera 5
var DomNav=(DomYes&&NavYes)?1:0; //Netscape 6 up
var DomExp=(DomYes&&ExpYes)?1:0; //IExplorer 5 up
var Nav4=(NavYes&&!DomYes&&document.layers)?1:0; // Netscape 4
var Exp4=(ExpYes&&!DomYes&&document.all)?1:0; // IExplorer 4
var PosStrt=((NavYes||ExpYes)&&!Opr5)?1:0;

var P_LftPad=2;
var P_TpPad=2;
var P_LftXtr=(DomNav)?P_LftPad:0;
var P_TpXtr=(DomNav)?P_TpPad:0;
var P_Win, P_Doc, P_Bod;
	

function Pop_Go()
{
	status="Building Menus";
	if(!PosStrt)
		return;
	P_Win=window;
	P_Doc=P_Win.document;
	P_Bod=P_Doc.body;
	if(PopWebMasterCheck)
	{
		if(!P_Check())
			return;
		else
			P_WebMasterAlert(7,'');
	}
	P_Crtd=0;
	P_Ldd=1;
	P_Create();
	P_Position();
	P_Initiate();
	P_Win.onresize=Resize;
	P_Crtd=1;
	Menu_Load(); //this function must exist in all of the shtml pages or an error will occur, this can will be called if more than one thing needs to happen on load
	status = "";
}

function P_Check()
{
	var WM='PopMenu', array, i;	
	for(i=0; i<PopNoOffMenus; i++)
	{
		array=WM+eval(i+1);
		if(!P_Win[array])
		{
			P_WebMasterAlert(1,array);
			return false;
		}
		if(!P_CheckMenu(array+'_',P_Win[array][0]))
			return false;
	}
	return true;
}

function P_CheckMenu(WMnu,NoOf)
{
	var i, Hg, Wd, La, Li, Nof, array;
	for(i=0; i<NoOf; i++)
	{
		array=WMnu+eval(i+1);
		if(!P_Win[array])
		{
			P_WebMasterAlert(1,array);
			return false;
		}
		La=P_Win[array][0];
		Li=P_Win[array][1];
		Nof=P_Win[array][2];
		if(i==0)
		{
			if(!P_Win[array][3])
			{
				P_WebMasterAlert(2,array);
				return false;
			}
			if(!P_Win[array][4])
			{
				P_WebMasterAlert(3,array);
				return false;
			}
			Hg=P_Win[array][3];
			Wd=P_Win[array][4]
		}
		else
		{
			if(P_Win[array][3])
				P_WebMasterAlert(4,array);
			if(P_Win[array][4])
				P_WebMasterAlert(5,array);
		}
		if(!P_WebMasterAlert(6,'\n\n'+array+'\nwidth: '+Wd+'\nheight: '+Hg+'\nLabel: '+La+'\nLink: '+Li+'\nNo of Subitems: '+Nof))
		{
			PopWebMasterCheck=0;
			return true;
		}
		if(P_Win[array][2])
			if(!P_CheckMenu(array+'_',P_Win[array][2])) 
				return false;
	}
	return true;
}	

function P_WebMasterAlert(No,Xtra)
{
	if(PopWebMasterCheck)
		return confirm(P_WbMAlrts[No]+Xtra+'   ');
}

function Resize()
{
	if(Nav4&&(P_WinWdth!=P_Win.innerWidth||P_WinHght!=P_Win.innerHeight))
		P_Win.location.reload();
	else P_Position();
}

function P_Position()
{
	status = "Building Menus";
	if(ExpYes){
		P_WinWdth=P_Bod.clientWidth;
		P_WinHght=P_Bod.clientHeight;
	}
	else
	{
		P_WinWdth=P_Win.innerWidth;
		P_WinHght=P_Win.innerHeight;
	}
	var i, MPntr=P_FrstMnu, PreLft, PreTp;
	for(i=0; i<PopNoOffMenus; i++)
	{
		PreLft=PreTp=0;
		P_Hor=MPntr.Hrzntl;
		P_Vis=MPntr.Vsbl;
		P_BWdth=MPntr.BrdrWd;
		P_BBtwn=MPntr.BBtw;
		if(MPntr.TgLoc)
		{
			PreTp=(Nav4)?P_Doc.layers[MPntr.TgLoc].pageY:(DomYes)?P_Doc.getElementById(MPntr.TgLoc).offsetTop:P_Doc.all[MPntr.TgLoc].offsetTop;
			PreLft=(Nav4)?P_Doc.layers[MPntr.TgLoc].pageX:(DomYes)?P_Doc.getElementById(MPntr.TgLoc).offsetLeft:P_Doc.all[MPntr.TgLoc].offsetLeft;
		}
		P_PositionMenuStruct(MPntr,(MPntr.StrtTp+PreTp),(MPntr.StrtLft+PreLft));
		MPntr=MPntr.PrevMenu
	}
}

function P_PositionMenuStruct(CntnrPntr,Tp,Lt)
{
	status = "Building Menus";
	var Tpi, Lefti, Hori, SubTp, SubLt;
	var ChldCntnrWdth
	var Mmbr=CntnrPntr.FrstMmbr;
	var P_PadLft=(Mmbr.value.indexOf('<')==-1)?P_LftXtr:0;
	var P_PadTp=(Mmbr.value.indexOf('<')==-1)?P_TpXtr:0;
	var MemberWidth=(Nav4)?Mmbr.clip.width:parseInt(Mmbr.style.width)+P_PadLft;
	var MemberHeight=(Nav4)?Mmbr.clip.height:parseInt(Mmbr.style.height)+P_PadTp;
	var ContainerWidth=(Nav4)?CntnrPntr.clip.width:parseInt(CntnrPntr.style.width);
	var ContainerHeight=(Nav4)?CntnrPntr.clip.height:parseInt(CntnrPntr.style.height);
	P_RcrsLvl++;
	if(Nav4)
		CntnrPntr.moveTo(Lt,Tp);
	else
	{
		CntnrPntr.style.top=Tp;
		CntnrPntr.style.left=Lt;
	}
	CntnrPntr.OrgTp=Tp;
	CntnrPntr.OrgLft=Lt;
	if(P_RcrsLvl==1 && P_Hor)
	{
		Hori=1;
		Lefti=ContainerWidth-MemberWidth-2*P_BWdth;
		Tpi=0;
	}
	else
	{
		Hori=0;
		Tpi=ContainerHeight-MemberHeight-2*P_BWdth;
		Lefti=0
	}
	while(Mmbr!=null)
	{		
		P_PadLft=(Mmbr.value.indexOf('<')==-1)?P_LftXtr:0;
		P_PadTp=(Mmbr.value.indexOf('<')==-1)?P_TpXtr:0;
		MemberWidth=(Nav4)?Mmbr.clip.width:parseInt(Mmbr.style.width)+P_PadLft;
		MemberHeight=(Nav4)?Mmbr.clip.height:parseInt(Mmbr.style.height)+P_PadTp;
		if(Nav4)
		{
			Mmbr.moveTo(Lefti+P_BWdth,Tpi+P_BWdth);
			Mmbr.CmdLyr.moveTo(Lefti+P_BWdth,Tpi+P_BWdth);
		}
		else{
			Mmbr.style.left=Lefti+P_BWdth;
			Mmbr.style.top=Tpi+P_BWdth;
		}
		if(Mmbr.ChldCntnr)
		{
			ChldCntnrWdth=(Nav4)?Mmbr.ChldCntnr.clip.width:parseInt(Mmbr.ChldCntnr.style.width);
			if(Hori)
			{
				SubTp=Tpi+MemberHeight+P_BWdth;
				SubLt=Lefti;
			}
			else{
				if(CntnrPntr.RtL)
				{
					SubLt=Lefti-ChldCntnrWdth+CntnrPntr.OvrLp*MemberWidth+P_BWdth;
					SubTp=Tpi+CntnrPntr.VOvrLp*MemberHeight;
				}
				else
				{
					SubLt=Lefti+(1-CntnrPntr.OvrLp)*MemberWidth+P_BWdth;
					SubTp=Tpi+CntnrPntr.VOvrLp*MemberHeight;
				}
			}
			P_PositionMenuStruct(Mmbr.ChldCntnr,SubTp,SubLt);
		}
		(Hori)?Lefti-=(P_BBtwn)?(MemberWidth+P_BWdth):MemberWidth:Tpi-=(P_BBtwn)?(MemberHeight+P_BWdth):MemberHeight;
		Mmbr=Mmbr.PrvMbr;
	}
	P_RcrsLvl--;
}

function P_Initiate()
{
	status = "Building Menus";
	var MPntr=P_FrstMnu;
	while(MPntr)
	{
		if(Nav4)
			MPntr.visibility=(MPntr.Vsbl)?'show':'hide';
		else
			MPntr.style.visibility=(MPntr.Vsbl)?'visible':'hidden';
		P_ResetHide(MPntr);
		MPntr=MPntr.PrevMenu;
	}
}

function P_Reset()
{
	if(!P_IniFlg)
		return;
	var ItemPntr=P_CrrntOvr.Contnr;
	while(ItemPntr.PrevCntnr)
		ItemPntr=ItemPntr.PrevCntnr;
	P_ResetHide(ItemPntr);
}

function P_ResetHide(Cpntr)
{
	var Member=Cpntr.FrstMmbr;
	while(Member!=null)
	{
		if(Nav4)
			Cpntr.visibility=(!(Cpntr.Vsbl&&Cpntr.Lvl==1))?'hide':'show';
		else
			Cpntr.style.visibility=(!(Cpntr.Vsbl&&Cpntr.Lvl==1))?'hidden':'visible';
		if(Member.ChldCntnr)
			P_ResetHide(Member.ChldCntnr);
		Member=Member.PrvMbr;
	}
}

function P_ClearAllChilds(Pntr,ChldPntr)
{
	var ClrPntr=Pntr;	
	while (ClrPntr)
	{
		if(ClrPntr.ChldCntnr)
		{
			if(ClrPntr.ChldCntnr!=ChldPntr&&Nav4)
				ClrPntr.ChldCntnr.visibility='hide';
			else if(ClrPntr.ChldCntnr!=ChldPntr)
				ClrPntr.ChldCntnr.style.visibility='hidden'; 
			P_ClearAllChilds(ClrPntr.ChldCntnr.FrstMmbr,ChldPntr);
		}
		ClrPntr=ClrPntr.PrvMbr;
	}
}

function P_GoTo()
{
	if(this.LinkTxt)
	{
		status='';
		if(Nav4)
		{
			this.LowLyr.bgColor=this.LowLyr.LwBck;
			this.LowLyr.document.write(this.LowLyr.value);
			this.LowLyr.document.close();
		}
		else
		{
			this.style.backgroundColor=this.LwBck;
			this.style.color=this.LowFClr;
		}
		(this.LinkTxt.indexOf('javascript:')!=-1)?eval(this.LinkTxt):P_Win.location.href=this.LinkTxt;
	}
}

function PopMenu(WMnu,Evnt)
{
	if(DomNav)
		Evnt.stopPropagation();
	if(!P_Ldd||!P_Crtd)
		return;
	var Tp, Lft, Pntr=null;
	var P_TpScrlld=(ExpYes)?P_Bod.scrollTop:P_Win.pageYOffset;
	var P_LftScrlld=(ExpYes)?P_Bod.scrollLeft:P_Win.pageXOffset;
	var EventX=(Nav4)?Evnt.pageX:Evnt.clientX+P_LftScrlld;
	var EventY=(Nav4)?Evnt.pageY:Evnt.clientY+P_TpScrlld;
	if(!Nav4)
	{
		WMnu+='_1';
		P_CrrntOvr=(DomYes)?P_Doc.getElementById(WMnu):P_Doc.all[WMnu];
		Pntr=(DomYes)?P_Doc.getElementById(WMnu+'c'):P_Doc.all[WMnu+'c'];
	}
	else
	{
		Pntr=P_FrstMnu;
		WMnu=PopNoOffMenus-WMnu.substr(7,WMnu.length-7);
		while(WMnu)
		{
			Pntr=Pntr.PrevMenu;
			WMnu--;
		}
		P_CrrntOvr=Pntr.FrstMmbr.CmdLyr;
	}
	P_Initiate();
	var ContHt=(Nav4)?Pntr.clip.height:parseInt(Pntr.style.height);
	var CntWt=(Nav4)?Pntr.clip.width:parseInt(Pntr.style.width);
	var ContStyle=(Nav4)?Pntr:Pntr.style;
	Tp=(Pntr.OrgTp==-1)?EventY:(Pntr.OrgTp==-2)?EventY-ContHt/2:Pntr.OrgTp;
	Lft=(Pntr.OrgLft==-1)?(Pntr.RtL)?EventX-CntWt:EventX:(Pntr.OrgLft==-2)?EventX-CntWt/2:Pntr.OrgLft;
	if((Pntr.OrgTp==-1||Pntr.OrgTp==-2)&&!Pntr.Vsbl)
	{
		if(Tp+ContHt>P_WinHght+P_TpScrlld)
			Tp-=(Pntr.OrgTp==-1)?ContHt:ContHt/2;
		if(Lft+CntWt>P_WinWdth+P_LftScrlld)
			Lft-=(Pntr.OrgLft==-1)?CntWt:CntWt/2;
		if(Tp<P_TpScrlld)
			Tp=P_TpScrlld;
		if(Lft<P_LftScrlld)
			Lft=P_LftScrlld;
	}
	ContStyle.top=Tp;
	ContStyle.left=Lft;
	ContStyle.visibility=(Nav4)?'show':'visible';
	P_IniFlg=0;
}

function P_OpenMenu(e)
{
	if(DomNav)
		e.stopPropagation();
	if(!P_Ldd||!P_Crtd)
		return;
	var Lft, Tp, x, y;
	var P_TpScrlld=(ExpYes)?P_Bod.scrollTop:P_Win.pageYOffset;
	var P_LftScrlld=(ExpYes)?P_Bod.scrollLeft:P_Win.pageXOffset;
	var ChldCont=(Nav4)?this.LowLyr.ChldCntnr:this.ChldCntnr;
	var ContTp=(Nav4)?this.Contnr.top:parseInt(this.Contnr.style.top);
	var ContLft=(Nav4)?this.Contnr.left:parseInt(this.Contnr.style.left);
	var CntWt=(Nav4)?this.Contnr.clip.width:parseInt(this.Contnr.style.width);
	var ThisHt=(Nav4)?this.clip.height:parseInt(this.style.height);
	var ThisWt=(Nav4)?this.clip.width:parseInt(this.style.width);
	if(P_CrrntOvr)
	{
		x=P_CrrntOvr.Contnr; while(x.PrevCntnr)x=x.PrevCntnr;
		y=this.Contnr; 
		while(y.PrevCntnr)
			y=y.PrevCntnr;
		(x!=y&&x)?P_ResetHide(x):P_ClearAllChilds(this.Contnr.FrstMmbr,ChldCont);
	}
	else
		P_ClearAllChilds(this.Contnr.FrstMmbr,ChldCont);
	P_CrrntOvr=this;
	P_IniFlg=0;
	if(Nav4)
	{
		if(this.LowLyr.value.indexOf('<img')==-1)
		{
			this.LowLyr.bgColor=this.LowLyr.HiBck;
			this.LowLyr.document.write(this.LowLyr.Ovalue);
			this.LowLyr.document.close();
		}
	}
	else
	{
		this.style.backgroundColor=this.HiBck;
		this.style.color=this.HiFClr;
	}
	if(ChldCont!=null)
	{
		var ChldCntWt=(Nav4)?this.LowLyr.ChldCntnr.clip.width:parseInt(this.ChldCntnr.style.width);
		var ChldContHt=(Nav4)?this.LowLyr.ChldCntnr.clip.height:parseInt(this.ChldCntnr.style.height);
		var ChCntTL=(Nav4)?this.LowLyr.ChldCntnr:this.ChldCntnr.style;
		Tp=ChldCont.OrgTp+ContTp;
		Lft=ChldCont.OrgLft+ContLft;
		if(this.Contnr.RtL)
		{
			if(Lft<P_LftScrlld)
				Lft=(this.Contnr.Hrzntl&&this.Contnr.Lvl==1)?P_LftScrlld:Lft+(ChldCntWt+(1-2*this.Contnr.OvrLp)*ThisWt);
			if(Lft+ChldCntWt>P_WinWdth+P_LftScrlld)
				Lft=P_WinWdth+P_LftScrlld-ChldCntWt;
		}
		else
		{							
			if(Lft+ChldCntWt>P_WinWdth+P_LftScrlld)
				Lft=(this.Contnr.Hrzntl&&this.Contnr.Lvl==1)?P_WinWdth+P_LftScrlld-ChldCntWt:Lft-(ChldCntWt+(1-2*this.Contnr.OvrLp)*ThisWt);
			if(Lft<P_LftScrlld)Lft=P_LftScrlld;
		}
		if(Tp+ChldContHt>P_WinHght+P_TpScrlld)
			Tp=Tp-ChldContHt+(1-2*this.Contnr.VOvrLp)*ThisHt;
		if(Tp<P_TpScrlld)
			Tp=P_TpScrlld;
		ChCntTL.left=Lft;
		ChCntTL.top=Tp;
		ChCntTL.visibility=(Nav4)?'show':'visible';
	}
	status=this.LinkTxt;
}

function OutMenu(WMnu)
{
	if(!P_Ldd||!P_Crtd)
		return;
	P_IniFlg=1;
	if(P_ClsTmr)
		clearTimeout(P_ClsTmr);
	P_ClsTmr=setTimeout('P_Reset()',P_Dly);
}

function P_CloseMenu(e)
{
	if(DomNav)
		e.stopPropagation();
	if(!P_Ldd||!P_Crtd)
		return;
	if(Nav4)
	{
		if(this.LowLyr.value.indexOf('<img')==-1)
		{
			this.LowLyr.bgColor=this.LowLyr.LwBck;
			this.LowLyr.document.write(this.LowLyr.value);
			this.LowLyr.document.close();
		}
	}
	else
	{
		this.style.backgroundColor=this.LwBck;
		this.style.color=this.LowFClr;
	}
	status='';
	P_IniFlg=1;
	if (P_ClsTmr)
		clearTimeout(P_ClsTmr);
	P_ClsTmr=setTimeout('P_Reset()',P_Dly);
}

function P_CntnrSetUp(Wdth,Hght,NoOff,Lft,Tp,PCntnr, wMenu)
{
	status = "Building Menus";
	if(Nav4)
	{
		this.visibility='hide';
		this.zIndex=P_RcrsLvl+P_Ztp;
	}
	this.RtL=P_RTL;
	this.FrstMmbr=null;
	this.PrevMenu=null;
	this.PrevCntnr=PCntnr;
	this.StrtLft=this.OrgLft=Lft;
	this.StrtTp=this.OrgTp=Tp;
	this.BBtw=P_BBtwn;
	if(P_RcrsLvl==1&&P_Hor)
	{
		Wdth=(this.BBtw)?NoOff*(Wdth+P_BWdth)+P_BWdth:NoOff*Wdth+2*P_BWdth;
		Hght+=2*P_BWdth;
	}
	else{
		Hght=(this.BBtw)?NoOff*(Hght+P_BWdth)+P_BWdth:NoOff*Hght+2*P_BWdth;
		Wdth+=2*P_BWdth;
	}
	this.Lvl=P_RcrsLvl;
	this.OvrLp=P_ChldOvrl;
	this.VOvrLp=P_ChldVOvrl;
	if(Nav4)
		this.bgColor=eval(wMenu+'[9]');
	else
		this.style.backgroundColor=eval(wMenu+'[9]');
	if(!Nav4)
	{
		this.style.width=Wdth;
		this.style.height=Hght;
	}
	else
		this.resizeTo(Wdth,Hght);	
	if(!Nav4)
	{	
		with(this.style)
		{
			fontFamily=eval(wMenu + '[10]');
			fontWeight=(eval(wMenu + '[11]'))?'bold':'normal';
			fontStyle=(eval(wMenu + '[12]'))?'italic':'normal';
			fontSize=eval(wMenu + '[13]')+'pt';
			zIndex=P_RcrsLvl+P_Ztp
			top=-1000;
			left=-1000;
		}
	}
	this.Hrzntl=P_Hor;
	this.TgLoc=P_TLc;
	this.BBtw=P_BBtwn;
	this.Vsbl=P_Vis;
	this.BrdrWd=P_BWdth;
}

function P_MemberSetUp(MmbrCntnr,PrMmbr,WMnu,Wdth,Hght)
{
	status = "Building Menus";
	var MemVal=eval(WMnu+'[0]');
	var t, T, L, W, H, S;
	this.value=MemVal;
	this.ChldCntnr=null;
	this.PrvMbr=PrMmbr;
	this.LwBck=eval(WMnu+'[5]');
	this.LowFClr=eval(WMnu+'[6]');
	this.HiBck=(MemVal.indexOf('<img')==-1)?eval(WMnu+'[7]'):this.LwBck;
	this.HiFClr=eval(WMnu+'[8]');
	this.LinkTxt=eval(WMnu+'[1]');
	with(this.style)
	{
		if(MemVal.indexOf('<')==-1)
		{
			width=Wdth-P_LftXtr;
			height=Hght-P_TpXtr;
			paddingLeft=P_LftPad;
			paddingTop=P_TpPad;
		}
		else
		{
			width=Wdth;
			height=Hght;
		}
		overflow='hidden';
		cursor=(this.LinkTxt&&ExpYes)?'hand':'default';
		backgroundColor=this.LwBck;
		color=this.LowFClr;
		if(P_CntrTxt)
			textAlign='center';
	}
	if(MemVal.indexOf('<')==-1&&DomYes)
	{	var t=P_Doc.createTextNode(MemVal);
		this.appendChild(t);
	}
	else
		this.innerHTML=MemVal;
	if(MemVal.indexOf('<img')==-1&&eval(WMnu+'[2]'))
	{
		S=(P_RcrsLvl==1&&P_Hor)?'tridown.gif':(MmbrCntnr.RtL)?'trileft.gif':'tri.gif';
		W=(P_RcrsLvl==1&&P_Hor)?10:5;
		H=(P_RcrsLvl==1&&P_Hor)?5:10;
		T=(P_RcrsLvl==1&&P_Hor)?Hght-7:Hght/2-5;
		L=(P_RcrsLvl==1&&P_Hor)?Wdth-12:Wdth-7;
		if(DomYes)
		{
			t=P_Doc.createElement('img');
			this.appendChild(t);
			t.style.position='absolute';
			t.src=S;
			t.style.width=W;
			t.style.height=H;
			t.style.top=T;
			t.style.left=L;
		}
		else
		{
			MemVal+="<div style='position:absolute; top:"+T+"; left:"+L+"; width:"+W+"; height:"+H+";visibility:inherit'><img src='"+S+"'></div>";
			this.innerHTML=MemVal;
		}
	}
	if(DomNav)
	{
		this.addEventListener('mouseover',P_OpenMenu,false);
		this.addEventListener('mouseout',P_CloseMenu,false);
		this.addEventListener('click',P_GoTo,false)}
	else
	{
		this.onmouseover=P_OpenMenu;
		this.onmouseout=P_CloseMenu;
		this.onclick=P_GoTo;
	}
	this.Lvl=P_RcrsLvl;
	this.Contnr=MmbrCntnr;
}

function P_Nav_MemberSetUp(MmbrCntnr,PrMmbr,WMnu,Wdth,Hght)
{
	status = "Building Menus";
	this.value=eval(WMnu+'[0]');
	if(P_LftPad&&this.value.indexOf('<')==-1&&!P_TxtCntrd)
		this.value='&nbsp\;'+this.value;
	if(eval(WMnu+'[11]'))
		this.value=this.value.bold();
	if(eval(WMnu+'[12]'))
		this.value=this.value.italics();
	this.Ovalue=this.value;
	this.value=this.value.fontcolor(eval(WMnu+'[6]'));
	this.Ovalue=this.Ovalue.fontcolor(eval(WMnu+'[8]'));
	this.value=P_CntrTxt+"<font face='"+eval(WMnu + '[10]')+"' point-size='"+eval(WMnu + '[13]')+"' color='"+eval(WMnu+'[6]')+"'>"+this.value+P_TxtCls;
	this.Ovalue=P_CntrTxt+"<font face='"+eval(WMnu + '[10]')+"' point-size='"+eval(WMnu + '[13]')+"' color='"+eval(WMnu+'[8]')+"'>"+this.Ovalue+P_TxtCls;
	this.LwBck=eval(WMnu+'[5]');
	this.HiBck=(this.value.indexOf('<img')==-1)?eval(WMnu+'[7]'):this.LwBck;
	this.visibility='inherit';
	this.ChldCntnr=null;
	this.PrvMbr=PrMmbr;
	this.bgColor=eval(WMnu+'[5]');
	this.resizeTo(Wdth,Hght);
	this.document.write(this.value);
	this.document.close();
	this.CmdLyr=new Layer(Wdth,MmbrCntnr);
	this.CmdLyr.visibility='inherit';
	this.CmdLyr.Lvl=P_RcrsLvl;
	this.CmdLyr.LinkTxt=eval(WMnu+'[1]');
	this.CmdLyr.onmouseover=P_OpenMenu;
	this.CmdLyr.onmouseout=P_CloseMenu;
	this.CmdLyr.captureEvents(Event.MOUSEUP);
	this.CmdLyr.onmouseup=P_GoTo;
	this.CmdLyr.LowLyr=this;
	this.CmdLyr.Contnr=MmbrCntnr;
	this.CmdLyr.resizeTo(Wdth,Hght);
	if(this.value.indexOf('<img')==-1 &&eval(WMnu+'[2]'))
	{
		this.CmdLyr.ImgLyr=new Layer(10,this.CmdLyr);
		this.CmdLyr.ImgLyr.visibility='inherit';
		this.CmdLyr.ImgLyr.top=(P_RcrsLvl==1&&P_Hor)?Hght-7:Hght/2-5;
		this.CmdLyr.ImgLyr.left=(P_RcrsLvl==1&&P_Hor)?Wdth-12:Wdth-7;
		this.CmdLyr.ImgLyr.width=(P_RcrsLvl==1&&P_Hor)?10:5;
		this.CmdLyr.ImgLyr.height=(P_RcrsLvl==1&&P_Hor)?5:10;
		ImgStr=(P_RcrsLvl==1&&P_Hor)?"<img src='tridown.gif'>":(MmbrCntnr.RtL)?"<img src='trileft.gif'>":"<img src='tri.gif'>";
		this.CmdLyr.ImgLyr.document.write(ImgStr);
		this.CmdLyr.ImgLyr.document.close();
	}
}

function P_Create()
{
	status = "Building Menus";
	var i;
	var WMnu, MPntr, MenuPrevPntr=null;
	for(i=0; i<PopNoOffMenus; i++)
	{
		WMnu='PopMenu'+(i+1);		
		P_Hor=eval(WMnu+'[3]');
		P_Vis=eval(WMnu+'[4]');
		P_BWdth=eval(WMnu+'[5]');
		P_TxtCntrd=eval(WMnu+'[6]');
		P_ChldOvrl=eval(WMnu+'[7]');
		P_ChldVOvrl=eval(WMnu+'[8]');
		P_Dly=eval(WMnu+'[9]');
		P_RTL=eval(WMnu+'[10]');
		P_CntrTxt=(DomYes)?(P_TxtCntrd)?1:0:(Exp4)?(P_TxtCntrd)?"align='center'":"":(P_TxtCntrd)?"<div align='center'>":"";
		if(Nav4)
			P_TxtCls="</font>"+((P_TxtCntrd)?"</div>":"");
		P_TLc=eval(WMnu+'[11]');
		P_BBtwn=eval(WMnu+'[12]');
		MPntr=P_CreateMenuStructure(WMnu+'_',eval(WMnu+'[0]'),eval(WMnu+'[1]'),eval(WMnu+'[2]'),null);
		MPntr.PrevMenu=MenuPrevPntr;
		MenuPrevPntr=MPntr;
	}
	P_FrstMnu=MPntr;
}

function P_CreateMenuStructure(MName,NmbOf,Lft,Tp,PrvCntnr)
{
	status = "Building Menus";
	P_RcrsLvl++;
	var i, NSubs, Mmbr, MmbrCntnr;
	var PrvMmbr=null;
	var WMnu=MName+'1';
	var WMenu=MName+'1';
	var MnWdth=eval(WMnu+'[4]');
	var MnHght=eval(WMnu+'[3]');
	var InsertLoc;
	if(!Nav4)WMnu+='c';
	if(DomYes)
	{
		MmbrCntnr=P_Doc.createElement("div");
		MmbrCntnr.style.visibility='hidden';
		MmbrCntnr.id=WMnu;
		MmbrCntnr.style.position='absolute';
		P_Bod.appendChild(MmbrCntnr);
	}
	else	
		if(Nav4)
			MmbrCntnr=new Layer(MnWdth,P_Win);
		else
		{	
			P_Bod.insertAdjacentHTML("AfterBegin","<div id='"+WMnu+"' style='visibility:hidden; position:absolute'><\/div>");
			MmbrCntnr=P_Doc.all[WMnu];
		}
	MmbrCntnr.SetUp=P_CntnrSetUp;
	MmbrCntnr.SetUp(MnWdth,MnHght,NmbOf,Lft,Tp,PrvCntnr, WMenu);
	if(Exp4)
	{
		MmbrCntnr.InnerString='';
		for(i=1; i<NmbOf+1; i++)
		{
			WMnu=MName+eval(i);
			NSubs=eval(WMnu+'[2]');
			MmbrCntnr.InnerString+="<div id='"+WMnu+"' style='position:absolute;'><\/div>";
		}
		MmbrCntnr.innerHTML=MmbrCntnr.InnerString;
	}
	for(i=1; i<NmbOf+1; i++)
	{
		WMnu=MName+eval(i);
		NSubs=eval(WMnu+'[2]');
	if(DomYes)
	{
		Mmbr=P_Doc.createElement("div");
		Mmbr.style.position='absolute';
		Mmbr.style.visibility='inherit';
		Mmbr.id=WMnu;
		MmbrCntnr.appendChild(Mmbr);
		Mmbr.SetUp=P_MemberSetUp;
	}
	else
	 	if(Nav4){
			Mmbr=new Layer(MnWdth,MmbrCntnr);
			Mmbr.SetUp=P_Nav_MemberSetUp;
		}
		else{
			Mmbr=MmbrCntnr.all[WMnu];
			Mmbr.SetUp=P_MemberSetUp;
		}
		Mmbr.SetUp(MmbrCntnr,PrvMmbr,WMnu,MnWdth,MnHght);
		if(NSubs)
			Mmbr.ChldCntnr=P_CreateMenuStructure(WMnu+'_',NSubs,0,0,MmbrCntnr);
		PrvMmbr=Mmbr;
	}
	MmbrCntnr.FrstMmbr=Mmbr;
	P_RcrsLvl--;
	return(MmbrCntnr);
}