var LoadDoc= parent?parent:document;
var DocumentHref=LoadDoc.location.href.toLowerCase();
var PLocHrf = DocumentHref;
var HrfPar = FindStrPar(PLocHrf,"??",true,true);
var LoadUrl=HrfPar[0]; Li = LoadUrl.lastIndexOf("/"); if (Li!=-1) LoadUrl=LoadUrl.substr(0,Li+1);
var CompStart = (LoadUrl.lastIndexOf("file:///")!=-1);
LoadUrl = LoadUrl.toLowerCase();
var FPtest = (LoadUrl.indexOf("frontpage")!=-1)
var IsThisDir = ((typeof(IsThisDir)=='string'));
FPtest = (FPtest && IsThisDir);
var FlmLoc=document;
//if (! ThisDir) ThisDir=LoadUrl;
if (FPtest) LoadUrl = ThisDir;
function Rnd(rFr,rTo){return rFr+Math.round(Math.random()*(rTo-rFr))}
function GetFramesSizes(fLoc,sLoc)
{
if (fLoc) if (fLoc.document) fLoc=fLoc.document;
if (sLoc) if (sLoc.document) sLoc=sLoc.document;
IsFrames = parent.frames[1]?1:0;
if (IsFrames)
	{
	AllWinWdth = (LocBody?parent.document.body.clientWidth:parent.innerWidth);
	AllWinHght = (LocBody?parent.document.body.clientHeight:parent.innerHeight);
	}
if (fLoc)
{
//alert(LocBody?fLoc.body.offsetWidth:fLoc.innerWidth);
FrstWinWdth=fLoc.body?fLoc.body.offsetWidth:fLoc.innerWidth;
FrstWinHght=fLoc.body?fLoc.body.offsetHeight:fLoc.innerHeight;
FrstWinClWdth=fLoc.body?fLoc.body.clientWidth:fLoc.innerWidth;
FrstWinClHght=fLoc.body?fLoc.body.clientHeight:fLoc.innerHeight;
FrstLScrlld=fLoc.body?fLoc.body.scrollLeft : fLoc.pageXOffset;
FrstTpScrlld=fLoc.body?fLoc.body.scrollTop:fLoc.pageYOffset;
}
//alert(FrstTpScrlld+CrLf+FrstLScrlld);
//alert(fLoc.pageXOffset+','+fLoc.pageYOffset);
FrstWinWdth=FrstWinClWdth;FrstWinHght=FrstWinClHght;
if (sLoc)
//if (LocBody)
{
ScWinWdth=LocBody?sLoc.body.offsetWidth:sLoc.innerWidth;
ScWinHght=LocBody?sLoc.body.offsetHeight:sLoc.innerHeight;
ScWinClWdth=LocBody?sLoc.body.clientWidth:sLoc.innerWidth;
ScWinClHght=LocBody?sLoc.body.clientHeight:sLoc.innerHeight;
ScLScrlld=LocBody?sLoc.body.scrollLeft:sLoc.pageXOffset;
ScTpScrlld=LocBody?sLoc.body.scrollTop:sLoc.pageYOffset;}
ScWinWdth=ScWinClWdth;ScWinHght=ScWinClHght;
}
function ScanSrcKey()
{
//alert(SrcField.which+CrLf+window.which)
//SrcKey=ScanKey(SrcField);
//SrcKey=this.which;
SrcKey=ScanKey(this);
//alert("ScanSrcKey "+CrLf+SrcKey);
if (SrcKey==13)
	{
//	alert("ScanSrcKey"+CrLf+SearchHref+CrLf+DefaultSearch);
	SrcField.Menu.LinkTxt=SearchHref;
	OpenLink(SrcField.Menu);
	SrcField.Menu.LinkTxt="";
	}
}
function eventTrigger (E){
 if (! E){if (window.event) E = window.event; else return};
 return E.target || E.srcElement;
}
function ScanKey(ev)
{
	KeyPressed=0;
//	if (! ev) ev=window;
	if (window.event)
		{
		KeyPressed =window.event.keyCode;
		ButtonPressed =window.event.button;
//alert(KeyPressed+CrLf+ButtonPressed);
		PCtrlKey=window.event.ctrlKey;
		PaltKey=window.event.altKey;
		PshiftKey=window.event.shiftKey;
		}
	else
		{
//alert(ev+CrLf+ev.which+CrLf);
			if (ev) if (ev.which)
			{
			KeyPressed = ev.which;
			ButtonPressed =0;
			PaltKey=0;
			PshiftKey=0;
			}
		}
//if (KeyPressed==13) alert(KeyPressed+CrLf+ButtonPressed);
	return KeyPressed;
}
function GetLoc(GcLoc)
{
return ((GcLoc==0) || (! IsFrames)) ? window : parent.frames[GcLoc-1];
//return GcLoc==0?window:parent.frames[GcLoc-1];
}
function GetLocPar(MnPars,lStr)
{
Bw=GetTPars(MnPars,lStr);
NcLoc=Bw[0]>=0?Bw[0]:1;	
//if ((NcLoc>0)&&(! IsFrames)) NcLoc=0;
return GetLoc(NcLoc)
//return NcLoc==0?window:parent.frames[NcLoc-1];
}
function CheckDomain(chkHref)	
	{
	return ( (chkHref.indexOf('http://')==-1) || (chkHref.indexOf(LoadUrl)!=-1) )	
	}

function FormFileAdrs(FFUrl){
FFUrl=Compress(FFUrl);
if (FPtest) LoadUrl =ThisDir;
fLoadUrl = FPtest?ThisDir:"";
if (FFUrl.indexOf('http://')==-1)
	{
	PthNo=GetTPars(FFUrl,"~")[0];	
	if ((PthNo>=0) || (PthNo<-1)) FFUrl=Compress(RetString);
	if (PthNo>=0) if (Path[PthNo]){FFUrl=fLoadUrl + Compress(Path[PthNo]) + FFUrl} else{FFUrl=LoadUrl + FFUrl}
	if (PthNo<-1)
		{
		PthNo=Math.abs(PthNo);
//		alert(FFUrl+CrLf+miPath[PthNo]+CrLf+PthNo);
		if (miPath[PthNo]){FFUrl=Compress(miPath[PthNo]) + FFUrl} else{FFUrl=LoadUrl + FFUrl;}
		}
	if (FPtest) if (FFUrl.indexOf(LoadUrl)==-1) FFUrl=LoadUrl + FFUrl;
//	if (FPtest)
//	if (FFUrl.indexOf(LoadUrl)==-1)
//	alert(LoadUrl+CrLf+FFUrl+CrLf+FFUrl.indexOf(LoadUrl));
	Dmn=true;
	}
//alert('2 '+FFUrl)
	uPath=FFUrl.substr(0,7);IsHttp=(uPath=='http://');IsFile=(uPath=='file://');
	if (IsHttp) Dmn = (FFUrl.indexOf(LoadUrl)!=-1);
//	alert(FFUrl+CrLf+LoadUrl+CrLf+IsHttp+","+IsFile+CrLf+Dmn);
	if (! IsHttp) if (! IsFile) if (FPtest)
	if (FFUrl.indexOf(LoadUrl)==-1) FFUrl=LoadUrl+FFUrl;
//alert('3 '+FFUrl)
return FFUrl;
}
function GetFullPath(FFUrl)
{
	uPath=FFUrl.substr(0,7);IsHttp=(uPath=='http://');IsFile=(uPath=='file://');
	alert(FFUrl+CrLf+LoadUrl+CrLf+IsHttp+","+IsFile+CrLf+Dmn);
	if (! IsHttp) if (! IsFile) FFUrl=LoadUrl+FFUrl
	return FFUrl;
}
function FormFileUrl(FFUrl,DfltDir){
FFUrl=Compress(FFUrl);
if (FPtest) LoadUrl = ThisDir;
if (FFUrl.indexOf('http://')==-1) 	
	{
	if(FFUrl.charAt(0)=="#"){FFUrl=LoadUrl+DfltDir+FFUrl.substring(1,FFUrl.length)}
	else 	if (PrivateUrl){FFUrl=MenuUrl+FFUrl}
	}
return FFUrl;
}
function RmvTxtOnSelect(){if (! this.rmos) reurn;	if (this.value==this.rmos){this.rmos="";this.value=""}}
function ChkInitilUrl(CIUrl){
	return (CIUrl.substr(0,7)=='http://') || (CIUrl.substr(0,8)=='file:///') || (CIUrl.indexOf("C:/")!=-1);
	}
function Compress(Nstr,CpTp,CpChr)
{
if (! Nstr) return "";
var ic, haylen = Nstr.length;
if (!CpTp){CpTp=0};if (!CpChr){CpChr=" "};
if (CpTp<=0){for (ic=0; ic<=haylen; ic++){if (Nstr.charAt(ic)!=CpChr){Nstr=Nstr.substr(ic,haylen-ic);ic=haylen+1;}}}
if (CpTp>=0){haylen = Nstr.length;for (ic=haylen; ic>=0; ic--){if (Nstr.charAt(ic-1)!=CpChr){Nstr=Nstr.substr(0,ic);ic=-1;}};}
return Nstr;}
function Replicate(RplStr,RplNum){RtStr = "";for (ic=1; ic<=RplNum; ic++){RtStr+=RplStr};return RtStr;}
function ReplStr(NStr,RRpl,RWth){
if (NStr.indexOf(RRpl)==-1) return NStr;
haylen=NStr.length; rpllen=RRpl.length; RStr='';
for (ic=0; ic<=haylen; ic++){
tChr=NStr.charAt(ic)
if (tChr!=RRpl.charAt(0)) RStr=RStr +tChr; else
	{ tChr=NStr.substr(ic,rpllen)
		 if (tChr!=RRpl) RStr=RStr + NStr.charAt(ic); else{RStr=RStr +RWth;ic=ic+rpllen-1} } }
return RStr; }
function FindStrPar(ParString,ParSepr,ReplBrkts,CmprsFrst)
{
sPos=[];sPar=[];
if (!ParString) return sPar;
//alert(ParString);
if (ReplBrkts) ReplStr(ParString,'"',"'");
	 sPos[0] = 0;
	 allPar='';sPs=-1;
	 sprLn=0;
		for(sp=1;sp<=14;sp++)
			{
//			alert(sPs+","+ParString.indexOf(ParSepr,sPs+1));
			sPs = ParString.indexOf(ParSepr,sPs+1);
			sPos[sp] = (sPs==-1)?ParString.length-0:sPs;
			sPar[sp-1] = ParString.substring(sPos[sp-1]+sprLn,sPos[sp]);
			if ((sp>1)||CmprsFrst) sPar[sp-1] = Compress(sPar[sp-1],0);
			allPar = allPar + '"'+sPar[sp-1]+'"' + ',';
			sprLn=ParSepr.length;	
			if (sPs==-1) sp=15;
			}
//	alert(allPar);
return sPar;
}
function GetTextCode(iHtml){
var _div=document.createElement('div');
//_div.innerHTML=iHtml;return _div.innerText;
//alert(iHtml);
//alert(_div.innerHTML);
RHtml="";
tb=iHtml.indexOf(">");te=iHtml.indexOf("<",tb);
//if (false)
{
while ((tb!=-1) && (te!=-1))	{
	bStr=iHtml.substr(tb-2,2);	if ((bStr=="/P") || (bStr=="BR")) RHtml+=CrLf;
//	_div.innerHTML=iHtml.substring(tb+1,te); RHtml+=_div.innerText;
	RHtml+=iHtml.substring(tb+1,te);
	tb=iHtml.indexOf(">",te);te=iHtml.indexOf("<",tb);}
RHtml=ReplStr(RHtml,"&nbsp;"," ");
RHtml=ReplStr(RHtml,CrLf+CrLf,CrLf);
return RHtml;
}
while ((tb!=-1) && (te!=-1))	{
	bStr=iHtml.substr(tb-2,2);	if ((bStr=="/P") || (bStr=="BR")) RHtml+=CrLf;
	_div.innerHTML=iHtml.substring(tb+1,te); RHtml+=_div.innerText;
	tb=iHtml.indexOf(">",te);te=iHtml.indexOf("<",tb);}
return RHtml;
}
function ReadFile(datafile,Img)
{
if (! Img) Img=false;
//alert(datafile,Img);
//if (window.XMLHttpRequest){objXml= new XMLHttpRequest();} else
//if (window.ActiveXObject){objXml= new ActiveXObject('Msxml2.XMLHTTP')}
objXml.open("GET",datafile,false);objXml.send(null);
if (! Img){RetTxt=objXml.responseText;return RetTxt;}
}

function ChkRg(){
//	alert(FileExist(ChkFl)+CrLf+CompStart);
	if ((CompStart) || (! FileExist(ChkFl))) {return true}; else
	{
	objXml.open("GET",ChkFl,false);objXml.send(null);
	RflStr=ReadFile(ChkFl);
	IsRg=(RflStr.indexOf(DmnStr)!=-1);
//	alert(IsRg+CrLf+"File:"+ChkFl+CrLf+"Domain:"+DmnStr+CrLf+"Content :"+RflStr);
	return IsRg;
	}
}

var req;
function FileExist(datafile,ShMsg)
{
//alert(datafile)
if (! ShMsg) ShMsg=0;
var ret = true;neMsg="The file '"+datafile + "' does not exist !";
var httpRequest;
if (window.XMLHttpRequest)
	{
	httpRequest = new XMLHttpRequest()
	try{	httpRequest.open('GET', datafile, true);
	httpRequest.onreadystatechange = function (evt){};
	httpRequest.send(null);	}	catch (e)
		{
		if (ExpYes) httpRequest.Close();
		if (ShMsg) alert(neMsg); return false;
		}
	return true;
	}
	else if (window.ActiveXObject)	
	{
	httpRequest = new ActiveXObject("Msxml2.DOMDocument.3.0")
	httpRequest.async = false;
//	alert(datafile);
	httpRequest.load(datafile);
//	return (httpRequest .parseError.errorCode!=-2146697210)
	flexst= (httpRequest .parseError.errorCode!=-2146697210);
//	alert(datafile+CrLf+flexst+CrLf+httpRequest .parseError.errorCode);
	if (! flexst) if (ShMsg) alert(neMsg)
	return flexst;
	}
}
function TakeImgWH(ImgHref)
{
if (Loaded==0)
	{
//fImgW=parseInt(_fImg.width);fImgH=parseInt(_fImg.height);
fImgW=0;fImgH=0;
	return
	alert(Loaded);
	}
if (! ImgHref)		return 0;
if (! _fImg) alert("No Image !");
//alert(ImgsNum);
for (ni=0;ni<ImgsNum;ni++) if (ImgHref==Imgs[ni])
{
fImgW=ImgsW[ni];fImgH=ImgsH[ni];
//alert(Imgs[ni])
return LdTmr+1;
}
//alert(ImgsNum)
if (! FileExist(ImgHref))	{alert(ImgHref+CrLf+" do not exist !");return 0;	}
if (false)
{
		eImgHref='empty.gif';
if (FileExist(eImgHref)) ReadFile(eImgHref,true);
		_fImg.src=eImgHref;
if (ImgsNum==1)	alert(_fImg.src+CrLf+_fImg.width+','+_fImg.width+CrLf+ImgsNum)
}
//alert(_fImg.src);
//if (! CompStart) _fImg.src="http://menu-info.com/images/empty.gif"; else
//_fImg.style.width='';_fImg.style.height='';
//_fImg.width='';_fImg.height='';
it=1;
//_fImg.src='';
_fImg.src=ImgHref;
//_fImg.top=ImgsNum;_fImg.left=ImgsNum;
//_fImg.style.width='';_fImg.style.height='';
if (FileExist(ImgHref)) ReadFile(ImgHref,true);
//_fImg.width=0;_fImg.height=0;
//if (false)
//LdTmr=50;
while (it<LdTmr)
	{
	_fImg.src=ImgHref;
	fImgW=parseInt(_fImg.width,ParseDec);fImgH=parseInt(_fImg.height,ParseDec);
//	fImgW=parseInt(_fImg.style.width,ParseDec);
//	if (! NoAutoSize) FileExist(ImgHref+it);
//	alert(FileExist(ImgHref)+CrLf+ImgHref);
// 	if (fImgW>0) alert(LdTmr+','+it+CrLf+fImgW+','+fImgH);
// 	if (fImgW>0){it+=LdTmr}
// 		else if (FileExist(ImgHref)) ReadFile(ImgHref);
if (FileExist(ImgHref)) ReadFile(ImgHref); 		
	it++;
	}
fImgW=parseInt(_fImg.width,ParseDec);fImgH=parseInt(_fImg.height,ParseDec);
//if (ImgsNum==1)	
//alert('Img Sizes:'+_fImg.src+CrLf+_fImg.width+','+_fImg.height+CrLf+ImgsNum)
//if (ImgsNum==1)	alert(_fImg.src+CrLf+_fImg.style.width+','+_fImg.style.height+CrLf+ImgsNum)
NavFalse=(NavYes)&&(fImgW==24)&&(fImgH==24)
if (NavFalse)
	{
// if (! NavMsgDone) alert("Mozilla browsers can not format Image in Refresh mode"+CrLf+"PLEASE RELOAD THE PAGE !");
//DocmClr=IsFrames?parent.document:document;
//parent.document.clear();
//parent.document.clear();
//ODH=parent.document.location.href;
//parent.document.location.href=ODH;
//parent.document.open(ODH);
//parent.document.reload;
//parent.document.location.href=parent.document.location.href;
//	document.location.href=DocHrf;
	NavMsgDone=true;
	Loaded=0;
	return -1;
	}
//fImgW=parseInt(_fImg.style.width,ParseDec);fImgH=parseInt(_fImg.style.height,ParseDec);
ImgsNum++;
Imgs[ImgsNum]=ImgHref;	ImgsW[ImgsNum]=fImgW;ImgsH[ImgsNum]=fImgH;
//if (ImgsNum<3) alert(ImgsNum+CrLf+Imgs[ImgsNum]+CrLf+ImgHref+CrLf+ImgsW[ImgsNum]+','+ImgsH[ImgsNum]+CrLf+Loaded)
//if (_fImg.src.indexOf("_")!=-1)
//alert(_fImg.src+CrLf+fImgW+","+fImgH+CrLf+it+CrLf+_fImg.width+","+_fImg.style.width);
//alert(_fImg.src+CrLf+_fImg.clientWidth+CrLf+_fImg.clientHeight);
//if (! CompStart) _fImg.src="http://menu-info.com/images/empty.gif"; else
//_fImg.src="";
//if (! _fImg.width) alert("Image size not loaded ! "+CrLf+ImgHref);
//if (fImgW<1) fImgW=30;if (fImgH<1) fImgH=30;
return fImgW;
//return (fImgH>1)?it:10;
}
function GetCbxWH()
{
Cbx=TstFrm.createElement('input');
Cbx.setAttribute("type","checkbox");
Cbx.setAttribute("class","chk");
Cbx.style.position='absolute';
//Cbx.style.left=0;Cbx.style.top=0;
Cbx.style.width='';Cbx.style.height='';
Cbx.style.visibility="hidden";	Cbx.style.overflow="hidden";
//Cbx.style.visibility="visible";	Cbx.style.overflow="visible";
TstFrm.body.appendChild(Cbx);
fCbxW = parseInt(Cbx.clientWidth,ParseDec);	fCbxH=parseInt(Cbx.clientHeight,ParseDec);
//if (fCbxW==0);
fCbxW =20;
if (fCbxH==0);
fCbxH =20;
//alert(fCbxW+","+Cbx.clientWidth+","+Cbx.style.width)
//alert(Cbx.clientWidth+CrLf+Cbx.offsetWidth)
}
function GetTextWH(TxtStr,TxtFont,TxtType,wHlt,TxtSize,TxtBold,TxtItalic)
{
//alert(TxtStr+CrLf+TxtFont+CrLf+TxtType+CrLf+wHlt)
//_TxtObj=TxtType==0 ? _ftxt : (TxtType==1 ? _finpt : _slct);
//_cTxtObj=TxtType==0 ? _ftxt : (TxtType==1 ? _finpt : _txtn);
_TxtObj=TxtType==0 ? _ftxt : (TxtType==1 ? _ftxt : _slct);
_cTxtObj=TxtType==0 ? _ftxt : (TxtType==1 ? _ftxt : _txtn);
tLvl=parseInt(TxtFont,ParseDec);
if (tLvl) 	{	GetFontPars(tLvl,wHlt);	TxtFont=tFontFamily;	TxtSize=tFontSize;	TxtBold=tFontBold;	TxtItalic=tFontItalic;	}
//_TxtObj.style.lineHeight="100%";
_TxtObj.style.width='';_TxtObj.style.height='';
_cTxtObj.innerHTML='';
if (TxtType==0) if (TxtStr) _cTxtObj.innerHTML=TxtStr;
if (TxtType==1) if (TxtStr) _cTxtObj.innerHTML=TxtStr;
if (TxtType==2) if (TxtStr) _cTxtObj.data=TxtStr;	// ??? attributeNode.value
//alert(_cTxtObj.innerHTML,+CrLf+TxtType);
if (TxtFont) _TxtObj.style.fontFamily=TxtFont;
if (TxtBold) _TxtObj.style.fontWeight=TxtBold?'bold':'normal';
if (TxtItalic) _TxtObj.style.fontStyle=TxtItalic?'italic':'normal';
if (TxtSize) _TxtObj.style.fontSize=TxtSize+'pt';
//alert(TxtStr+CrLf+TxtFont+","+TxtSize+","+TxtBold+","+TxtItalic);
//t=1;while (t<LdTmr){t++;if (parseInt(_TxtObj.clientWidth)>1){t+=LdTmr}};
_cTxtObj.innerHTML=TxtStr;
_TxtObj.style.width='';_TxtObj.style.height='';
fTxtW=_TxtObj.clientWidth;fTxtH=_TxtObj.clientHeight;
//if (TxtType==1) if (TxtStr) alert(TxtStr+CrLf+_cTxtObj.clientWidth+CrLf+_TxtObj.clientWidth);
if (TxtType==1) if (TxtStr){fTxtW+=5;fTxtH+=5;}
if (TxtType==0) _cTxtObj.innerHTML="";
if (fTxtW==0) fTxtW=TxtStr.length*TxtSize/0.92;
if (fTxtH==0) fTxtH=TxtSize*1.6;
//alert(TxtStr+CrLf+_TxtObj.clientWidth+CrLf+_TxtObj.innerWidth);
return fTxtW;
}
function GetClearUrl(gUrl)
{
gUrl=ReadLangPars(gUrl,MenuLang);
Bm=gUrl.indexOf("#");
if (Bm!=-1) gUrl=gUrl.substring(0,Bm);
return gUrl
}
function ReadLangPars(RlStr,rMnLang)	{
if (! RlStr) return "";
//alert(RlStr);
LadStr="";
pL=RlStr.indexOf("~lad");
if (pL!=-1)
	{
	LadStr=RlStr.substring(pL+4,RlStr.length);
	RlStr=RlStr.substring(0,pL);
	LadStr=ReadLangPars(LadStr,rMnLang);
//	alert(rMnLang+CrLf+LadStr);
	}
rMnLang-=1;
LngPars = FindStrPar(RlStr,"|",false,true);
if (typeof(LngPars[rMnLang])=="string"){RlStr=LngPars[rMnLang]} else
//if (LngPars[rMnLang]){RlStr=LngPars[rMnLang]} else
if (LngPars[DefaultLang]){RlStr=LngPars[DefaultLang]} else RlStr=LngPars[0];
//if (LadStr) if ((RlStr.substring(RlStr.length-1,RlStr.length)!="/") && (LadStr.substring(0,1)!="/")) RlStr+="/";
//if (LadStr) alert(RlStr.substring(RlStr.length-1,RlStr.length)+","+LadStr.substring(0,1));
RlStr+=LadStr;
return RlStr;
}
function GetMaxSelect(SelElm,SelFnt)
{
if (! SelElm[0]) return 0;
MxWdth=0;
sn=0;while(SelElm[sn])
{
GetTextWH(ReadLangPars(SelElm[sn],MenuLang),SelFnt,2);
if (MxWdth<fTxtW){	MxWdth=fTxtW;}
//alert(SelElm[sn]+CrLf+fTxtW+","+fTxtH+CrLf+MxWdth+","+MaxNo);
sn++;
}
//alert(MxWdth)
return MxWdth;
}
function GetBdrPars(BdrStr)
{
sp=BdrStr.indexOf(" ");
RetStr=Compress(BdrStr.substring(0,sp));
RetVal=parseInt(BdrStr.substr(sp+1,4),ParseDec);
}
function SetBdrPars(BdrCol,BdrSz,BdHlt)
{
if (! BdHlt) BdHlt=0;
tCLR=BdrCol>=0 ? Color[BdrCol] : miColor[Math.abs(BdrCol)];
if (! tCLR) return "";
//	alert(tCLR + " " +BdrSz + " solid");
return GetColor(tCLR,BdHlt) + " " +BdrSz + " solid"
}
function GetColor(ClrStr,cHlt)
{
gcl=parseInt(ClrStr);
if (gcl){gCLR=(gcl>=0) ? Color[gcl] : miColor[Math.abs(gcl)];}
if ((! ClrStr) || (ClrStr.indexOf("#")!=-1) || (! gcl) || (! gCLR)) return GetHltPar(ClrStr,cHlt);
return GetHltPar(gCLR,cHlt);
}
function GetHltPar(PrStr,pHlt)
{
if (! pHlt) pHlt=0;
if (! PrStr) PrStr="";
ps=PrStr.indexOf("/");if (ps==-1) return PrStr
if (! pHlt) pHlt=0;
//Fps = FindStrPar(PrStr,"/",false,true);
//PrStr=pHlt&&Fps[1]?Fps[1]:Fps[0];
PrStr=Compress(pHlt ? PrStr.substring(ps+1,PrStr.length) : PrStr.substring(0,ps))
return PrStr;
}
function GetFontPars(FNo,Hlt)
{
if (! FNo) return;
tFNT=FNo>=0 ? Font[FNo] : miFont[Math.abs(FNo)];
FoPar = FindStrPar(tFNT,";",false,true);
//for (fp=0;fp<=5;fp++) if (FoPar[fp])	{	Fps = FindStrPar(FoPar[fp],"/",false,true);	FoPar[fp] = Hlt&&Fps[1]?Fps[1]:Fps[0];}
tFontFamily	=GetHltPar(FoPar[0],Hlt);
tFontSize	=parseInt(GetHltPar(FoPar[1],Hlt));
tFontBold	=parseInt(GetHltPar(FoPar[2],Hlt));
tFontItalic	=parseInt(GetHltPar(FoPar[3],Hlt));
tFontColor=GetColor(FoPar[4],Hlt);
tFontBgColor=GetColor(FoPar[5],Hlt);
Ret=tFontFamily	+tFontSize+tFontBold+tFontItalic+tFontColor+tFontBgColor;
return Ret;
//alert(tFontSize)
//tFontBgImgColor=GetColor(FoPar[6]);
return FoPar;
}
function ChangeFont(FObj,FNo,FoTxt,cHlt)
{
GetFontPars(FNo,cHlt);
FObj.style.fontFamily=tFontFamily;
//alert(FObj.innerHTML+","+FoPar[0]+","+FoPar[1]+","+FoPar[2]+","+FoPar[3]+","+FoPar[4]+","+FoPar[5]);
FObj.style.fontSize=tFontSize+'pt';
FObj.style.fontWeight=tFontBold?'bold':'normal';
FObj.style.fontStyle=tFontItalic?'italic':'normal';
//if ((BgIm)&&(tFontBgImgColor)){FObj.style.color = tFontBgImgColor} else{if (tFontColor) FObj.style.color = tFontColor}
FObj.style.color = tFontColor
//if (BgIm){FObj.style.backgroundColor=""} else{if (tFontBgColor) FObj.style.backgroundColor = tFontBgColor;}
FObj.style.backgroundColor = tFontBgColor;
//if (FoTxt){return GetTextWH(FoTxt,FoPar[0],tFontSize,tFontBold,tFontItalic)}
}
function GetAlign(AStr,al1,al2,al3)	
{
if (typeof AStr == 'number') return AStr;
if (parseInt(AStr)>=0) return parseInt(AStr);
mfst=Compress(AStr.toLowerCase(),0).substr(0,1);
return (mfst==al1)?-3:(mfst==al2)?-2: (mfst==al3)?-1:-2;
}
function GetBookMark(BmHref,BmLoc)
{
BmHref=Compress(BmHref);
bm=BmHref.indexOf("#");	
if ((bm!=-1) && (bm!=(BmHref.length-1)))
	{
	LastBookMark[BmLoc]=BmHref.substring(bm+1,BmHref.length);
//	alert("Save BookMark "+LastBookMark[BmLoc]+CrLf+BmHref);
	}
if (! LastBookMark[BmLoc]) LastBookMark[BmLoc]="";
return LastBookMark[BmLoc];
}
function ChangeBookMark(BmHref,BmLoc)
{
bm=BmHref.indexOf("#");	
if (bm!=-1)
	{
	BmHref=BmHref.substring(0,bm) + "#" + BmLoc
//	alert("ChangeBookMark"+CrLf+BmHref);
	}
return BmHref;
}
function CheckLastBookMark(BmHref,BmLoc)
{
BmHref=Compress(BmHref);
bm=BmHref.indexOf("#");
//alert(BmHref+CrLf+BmLoc+"-"+LastBookMark[BmLoc]+CrLf+bm+","+(BmHref.length-1));
if (LastBookMark[BmLoc] && (bm==(BmHref.length-1)))
	{
	BmHref=BmHref+LastBookMark[BmLoc];
//	alert("Add BookMark "+LastBookMark[BmLoc]+CrLf+BmHref);
	}
return BmHref;
}
function OpenInLoc(LocNo,UrlOpn)
{
//alert(LocNo+CrLf+UrlOpn);
if (LocNo==0) return "javascript:window.open('"+UrlOpn+"')";
//if (IsFrames && parent.frames[LocNo-1]){return "javascript:parent.frames["+(LocNo-1)+"].location.replace('"+UrlOpn+"')";}
//else{return "javascript:document.location.replace('"+UrlOpn+"')";}
if (IsFrames && parent.frames[LocNo-1]){return "javascript:parent.frames["+(LocNo-1)+"].location.href='"+UrlOpn+"'";}
else{return UrlOpn}
//else{return "javascript:document.location.href='"+UrlOpn+"'";}
}
function GetTxtPar(TxtPar,ParStr)
{
RetString=TxtPar;psl=ParStr.length;
tn=TxtPar.indexOf(ParStr);if (tn==-1) return "";
tnStr=TxtPar.substr(tn+psl,2);tz=tnStr.substr(0,1)==" "?1:0;
tnStr=TxtPar.substr(tn+psl+tz,1);
RetString=TxtPar.substring(0,tn) + TxtPar.substr(tn+psl+tz+1,TxtPar.length);
return tnStr;
}
function InitBar(BarText)
{
if (! LoadBar) return;
if (! BarText) BarText="Loading";
_ftwt.style.visibility="visible";_div1.style.visibility="visible";_div2.style.visibility="visible";
_ftwt.Txt=BarText;
TLen=BarText.length;
_div1.innerHTML="";
_div2.innerHTML=BarText;
}
function ShowBar(BarDone,BarAll)
{
if (! LoadBar) return;
BarText=_ftwt.Txt;
if (! BarText) BarText="Loading";
_ftwt.style.visibility="visible";
_div1.style.visibility="visible";_div2.style.visibility="visible";
TLen=BarText.length;
BarDone=Math.round(BarDone/BarAll*TLen);
_div1.innerHTML=BarText.substring(0,BarDone);
_div2.innerHTML=BarText.substring(BarDone,TLen);
//alert(BarDone+","+TLen+CrLf+BarText);
}
function HideBar()
{
if (! LoadBar) return;
_ftwt.style.visibility="hidden";_div1.style.visibility="hidden";_div2.style.visibility="hidden";
_ftwt.Txt="";_div1.innerHTML="";_div2.innerHTML="";
}
function IsVal(IsVl)	{return( ! ((!IsVl)&&(IsVl!=0)) )}
function GetTPars(TStr,TPar)	
{
var gPar=[];cs=0;for(gi=0;gi<=10;gi++) gPar[gi]=-1;
RetString=TStr;ParFound=false;
if (! TStr) return gPar;
if (TPar){ci=TStr.indexOf(TPar)} else ci=0;cs=ci;
cz=0;
//cz=TStr.indexOf(",")==0?0:0;
if ((ci!=-1))	{ci=ci+TPar.length;gPar[0]=parseInt(TStr.substr(ci,5));	}
ParFound=(ci>=0);
ivgp=IsVal(gPar[0]);
//if (test) alert(ci+CrLf+gPar[0]+CrLf+ivgp)
if ((ci==-1)&&(! ivgp)) return gPar;
cj=TStr.indexOf("~",ci);RstStr="";if (cj!=-1){	RstStr=TStr.substring(cj,TStr.length);TStr=TStr.substring(0,cj);}
//vl=ci+(ivgp?String(gPar[0]).length:0);
ps=String(gPar[0]);
vl=(ivgp?TStr.indexOf(ps)+ps.length:ci);
//alert(vl+","+ci);
//if (! gPar[0]){gPar[0]=-1;RetString=TStr;return gPar}
//if ((! gPar[0])&&(gPar[0]!=0)){gPar[0]=-1;RetString=TStr;return gPar}
cj=TStr.indexOf(",",ci+cz);gi=1;
while (cj!=-1)
{
if (cj-ci<=4){gPar[gi]=parseInt(TStr.substr(cj+1,5));ivgp=IsVal(gPar[gi]);
vl=cj+1+(ivgp?String(gPar[gi]).length:0);}
//alert(gi+CrLf+cj+","+vl+CrLf+gPar[gi]+CrLf+ivgp+CrLf+(ivgp?String(gPar[gi]).length:0))
ci=cj;cj=TStr.indexOf(",",ci+1);gi++;
//alert(cj);
}
RetString=TStr.substring(0,cs) + 	Compress(TStr.substring(vl,TStr.length),0) + RstStr;
for(gi=0;gi<=10;gi++){	if (! IsVal(gPar[gi])) gPar[gi]=-1	};
return gPar;
}
//	*************************************************************************************************
function ReadMenuLine(RmStr)
{
//alert(RmStr);
	IsMenu=false;
	var MnPar=[], ParStr="";
	if (RmStr.charAt(0)!="/")
	if (Compress(RmStr))
//	if (RmStr.charAt(0)=="?")
	if (RmStr.substr(0,4)=="var ")
			{
			RmStr = RmStr.substr(4,RmStr.length-4); eval(RmStr);
			HideRoot = HideRoot || RmStr.indexOf("~hdrt")!=-1 ? 1 : 0;
			}
		else
		{ // This is Menu
		if (RmStr.indexOf("~toend")!=-1)
		{
		MenusNum++;
		MenusToEnd+=ReplStr(RmStr,"~toend","")+CrLf;return
//		alert(MenusToEnd);
		}
		IsMenu=true;
		tL=0;tEnd=false; while (!tEnd){nL=RmStr.indexOf(MiChar,tL);tEnd = (nL==-1)||(nL>tL);if(!tEnd) tL++;};tL++;
		mlPar[tL] = mlPar[tL] + 1;mlPar[tL+1] = 0;Ret = "";
		for (rL=1;rL<=tL;rL++)	{	Ret = Ret + ((rL>1)?'_':'') + String(mlPar[rL]);		}
		mNm = MnName + Ret;
		eval(mNm+'=new Array()');MnElmnt = eval(mNm);
//		0-Text to show, 1-Link, 			 2-background image, 3-number of elem-s, 	4-height,			 5-width, 6-Menu_Image,
		RmStr=ReplStr(RmStr,CrLf,"");
		lTL = RmStr.length;	RmStr = Compress(RmStr,-1,MiChar);lTL = lTL - RmStr.length; BrElm[lTL]++;
		if (RmStr.substr(0,7)=="http://")
		{
		adn=RmStr.indexOf("/",8);
		AddName=RmStr.substring(7,adn);
		if (AddName.substr(0,4)=="www.") AddName=AddName.substring(4,AddName.length);
		AddName=AddName.substr(0,1).toUpperCase()+AddName.substring(1,AddName.length);
		RmStr=AddName + "^url " + RmStr;
//		alert(RmStr+CrLf+AddName);
		}
		
		MnPar = FindStrPar(RmStr,"^",true,false);
//		lTL = MnPar[0].length;	MnPar[0] = Compress(MnPar[0],-1,MiChar);lTL = lTL - MnPar[0].length;BrElm[lTL]++;
//		alert(MnPar[0]+CrLf+lTL);
		
		MnElmnt[0]=	MnPar[0];
		MnElmnt[4]=0;MnElmnt[5]=0;
		MnElmnt[8]=	"";MnElmnt[9]=	"";
		p=1;while(MnPar[p])
		{
		pStr=MnPar[p].substr(0,3);mStr=MnPar[p].substring(3,MnPar[p].length);
		if (pStr=="url"){MnElmnt[1]=mStr;}
		else 	if (pStr=="par"){if (mStr.indexOf("c_inh")!=-1){MnElmnt[9]+=mStr} else{MnElmnt[8]+=mStr}}
		else MnElmnt[0]+="^"+MnPar[p];	
		p++;
		}
//		MnElmnt[1]=MnElmnt[1].toLowerCase();
		MnElmnt[2]=Compress(MnElmnt[2]);
		if (MnElmnt[2])
			{
//			MnElmnt[2]=Compress(FormFileUrl(MnElmnt[2],"images/"));
			MnElmnt[2]=FormFileAdrs(MnElmnt[2]);
//		alert(MnElmnt[2])
			}
		ParStr = MnElmnt[8]?MnElmnt[8]:"";		ParStr += (MnElmnt[9]?MnElmnt[9]:"");
		MnElmnt[1]=Compress(MnElmnt[1]);
		RtfMn=(MnElmnt[1].indexOf(TextType)!=-1);
		MnDflt=(ParStr.indexOf("~dflt")!=-1);
		lf=MnElmnt[1].indexOf("lang:");
		LngMn=(lf!=-1);
		LngDflt=false;
		if (LngMn)
			{
			tLang=parseInt(MnElmnt[1].substr(lf+5,5));
			if (MnDflt){DefaultLang=tLang<1?1:tLang;;}
			if (! PLocLng) MenuLang=DefaultLang;	
			LngDflt=(tLang==MenuLang);
//			if (LngDflt) alert(MenuLang+","+DefaultLang)
//			if (LngDflt) return;
			}
		if (RtfMn&&MnDflt)
			{
			DefaultMenuFiles+=(DefaultMenuFiles?"~":"")+MnElmnt[1];
			 if (! PLocMnu){MenuFiles=DefaultMenuFiles;MenuNames+=(MenuNames?"~":"")+MnElmnt[0];}
//			alert(DefaultMenuFiles+CrLf+MenuFiles+CrLf+MnElmnt[1]);
			}
		 if (RtfMn&&PLocMnu)
		 	{
			 	if (MenuFiles.indexOf(MnElmnt[1])!=-1)
		 		{
		 		MenuNames+=(MenuNames?"~":"")+MnElmnt[0];
//		 	alert("MenuNames="+CrLf+MenuNames+CrLf+MenuFiles+CrLf+MnElmnt[1])
				}
			}
		if (MnDflt) if ((!LngMn)&&(!RtfMn)) if (MnElmnt[1].indexOf("__")!=-1)
		{
		DefaultSearch=MnElmnt[1];
		SearchHref=DefaultSearch;
		}
		if (! PLocSrc) SearchHref=DefaultSearch;
		if ((!LngMn)&&(! RtfMn)&& IsFrames)
			{
			ln=ParStr.indexOf("~opn");
			if (ln!=-1)
				{
				lno=parseInt(ParStr.substr(ln+3,2));	lno=IsVal(lno)?lno : (FstMnLocNo==1 ? 2 : 1)
				LoadHref[lno]=MnElmnt[1];
//			alert(lno+CrLf+"Open="+LoadHref[lno]);
				}
			}
		if (lTL>=lPL)
			{
			mlStr[lTL] = mNm;
			if (lTL>(lPL+1)){	alert(" Wrong space identifier of:"+CrLf + MnPar[0]);return false;lTL=lPL+1;	}
			}
		if (lTL<lPL)
			for(ce=lTL+1;ce<=lPL;ce++)
			{
			ts = mlStr[ce-1] + '[3] = ' + BrElm[ce];
			eval(ts);
//			if (lTL=1) alert(mlStr[ce-1]+CrLf+ts);
			BrElm[ce]=0;
			}
			mlStr[lTL] = mNm;
	 } // End of Menu
return IsMenu;
}
//	**********************************
var MenusNum=0;MiMnuRgd=0;
function ReadMenuFile(AllStr,ldMnu,GtTxt)
{
if (! ldMnu) ldMnu=0;
//	alert(datafile+CrLf+FormFileAdrs(datafile));
//	AllStr = ReadFile(datafile);
//	alert(unescape(AllStr));
//	if (TextType==".rtf"){AllStr=RtfToTxt(AllStr)} else
if (GtTxt)
	{
	AllStr=unescape(AllStr);
//	alert(AllStr);
	AllStr=GetTextCode(AllStr);
//	alert(AllStr);
//	alert(ldMnu);
	}
//	if (! PrgRgd) 	if (ldMnu==1) AllStr=MiMnu+AllStr;
//	if (ldMnu) 	alert(AllStr);
	
	StrLen = AllStr.length;
	RetStr = "";	ei=0;bi=0;
	ei=AllStr.indexOf(CrLf,0); if (ei==0) AllStr=AllStr.substring(2,StrLen);
	ei=AllStr.indexOf(CrLf,ei);EndFl=(ei==-1);
	while (! EndFl)
		{
		MenuStr=AllStr.substring(bi,ei);
//	if (ldMnu>1)alert(MenuStr+CrLf+bi+","+ei);
		if (Pars) if (! MiMnuRgd)
			{
			MiMnuRgd=1;
			PrgRgd = ((Pars.indexOf("~rgd")!=-1) || (Pars.indexOf("~flh")!=-1));
//			if (! PrgRgd) if (ldMnu==1) 	ReadMenuLine(MiMnu);
			}
		ReadMenuLine(MenuStr);
		bi=ei+2;if (EndFl){ei=StrLen;};ei=AllStr.indexOf(CrLf,ei+1);EndFl=(ei==-1);
		MenuStr = '';	lPL = lTL;
		ShowBar(ei,StrLen);
	 } // End of Line Readed
//	 HideBar();
//	alert("End")
//if (false)
//lTL=0;
if (false)
if (ldMnu>1)
	for(ce=lTL+1;ce<=lPL;ce++)
	{
	ts = mlStr[ce-1] + '[3] = ' + BrElm[ce];
	eval(ts);
	BrElm[ce]=0;
	ts = 'NoOffFirstLineMenus=' + BrElm[0];
	eval(ts);
	}
//alert(lTL+","+lPL);
//	alert(ts);
//alert("end read ");
}
function MoveFun(Dist)
{
	
if (Dist>5000){rd=4000} else
if (Dist>1000){rd=800} else
if (Dist>500){rd=400} else
if (Dist>300){rd=200} else
if (Dist>100){rd=60} else
if (Dist>60){rd=30} else
if (Dist>20){rd=7} else
if (Dist>12){rd=4} else
if (Dist>6){rd=3} else
if (Dist>3){rd=2} else
if (Dist>1){rd=1} else rd=0.5;
return rd;
if ((! Dist) || (Dist==0)) return 0;
//RetMv = Math.exp(Dist/19)
RetMv = Math.floor(Math.exp(Dist/19))
//RetMv = Math.floor(RetMv>30?30:RetMv);
RetMv = RetMv>30?30:RetMv;
//RetMv = RetMv>30?30:RetMv>20?5:RetMv>10?3:RetMv>5?2:1;;
return RetMv;
}
function ToHex(DecVal){
		//convert the number returned from IE to hex
		function makehex(d){return (d < 16) ? ("0" + d.toString(16)) : d.toString(16);};
		var r = DecVal & 0xFF;		var g = (DecVal >> 8) & 0xFF;		var b = (DecVal >> 16) & 0xFF;
		theColor = makehex(r) + makehex(g) + makehex(b);
		return theColor;	}
function GetCellDim(MnObj)
{
if (! MnObj) return;
MnCell=[];
MnId=ReplStr(MnObj.ElmName,"Menu","");
fd=MnId.indexOf("_");
MnCell[1]=fd==-1 ? parseInt(MnId) : parseInt(MnId.substring(0,fd));
MnCell[2]=fd==-1 ? 0 : parseInt(MnId.substring(fd+1,MnId.length));
return MnCell;
}
function GetObject(oMnId,oTp,oId,oSId)
{
if (! oSId) oSId=""; else oSId="n"+oSId;
if (! oTp) oTp="";if (! oId) oId="";
if (typeof oMnId == 'object') 	{oMnId=ReplStr(oMnId.ElmName,"Menu","");oMnId=ReplStr(oMnId,"_","");}
	else{oMnId=String(oMnId);}
if (IsFrames)
	{
	for(ln=0;ln<=FrNum;ln++)
		{
		oObj = parent.frames[ln].document.getElementById(oMnId+oTp+oId+oSId);
		if (oObj) if (! oId) MenuLevel=oObj.level;
		if (oObj) return oObj;
		}
	} else
	{
//if (oSId) alert(oMnId+oTp+oId+oSId);
	oObj = document.getElementById(oMnId+oTp+oId+oSId);
	if (oObj) if (! oId) MenuLevel=oObj.level;
	if (oObj) return oObj;
	}
return false;
}
function GetObjectVal(MnId,ObjType,IdNo,ChgVal)
{
RetVl=false;
//alert(ObjType);
RetType=Compress(ObjType.substr(3,9));
ObjType=ObjType.substr(0,3);
ChgIt=((ChgVal) || (ChgVal==false) || (ChgVal==""));
//if (false)
{
if (typeof(MnId) == 'object')
	{
	MenuId=ReplStr(MnId.ElmName,"Menu","");MenuId=ReplStr(MenuId,"_","");
//	alert(MenuId+CrLf+MnId.ElmName);
	MnId=MenuId;
	}	else{MnId=String(MnId);}
}
//	alert(MnId);
GetObj = GetObject(MnId,ObjType,IdNo);
if (GetObj)
	{
	VlStr="";
	if (ObjType=="cbx") VlStr+="GetObj.checked";
	if (ObjType=="txt") VlStr+="GetObj.innerHTML";
	if (ObjType=="inp") VlStr+="GetObj.value";
	if (ObjType=="btn") VlStr+="GetObj.value";
	if (ObjType=="img") VlStr+="GetObj.source";
//alert(ObjType+CrLf+eval(VlStr))
	if (VlStr) RetVl=eval(VlStr);
	if (ObjType=="rdo")
		{
		so=1;
		RdoObj=GetObject(MnId,ObjType,String(IdNo)+"n"+String(so));
		RdoTObj=GetObject(MnId,ObjType,String(IdNo)+"t"+String(so));
		GetObj=RdoObj;
//		alert(ObjType+","+RetType);
		while(RdoObj)
			{
//			alert(so+CrLf+RdoObj.innerHTML+CrLf+RdoObj.value);
			if (RetType=="num")
				{
				if (RdoObj.checked){GetObj=RdoObj;if (ChgIt) RdoObj.checked=false;}
				if (ChgIt) if (ChgVal==so) RdoObj.checked=true;
				if (RdoObj.checked) RetVl=so;
//				if (RdoObj.checked) alert("Num="+RetVl);
				} else
			if (RetType=="txt")
				{
				if (RdoObj.checked){if (ChgIt) RdoTObj.innerHTML=ChgVal;RetVl=RdoTObj.innerHTML;}
//				if (RdoTObj.checked) alert("Txt="+RetVl);
				} else
				{
				if (RdoObj.checked){if (ChgIt) RdoObj.value=ChgVal;RetVl=RdoObj.value;}
//				if (RdoObj.checked) alert("Val="+RetVl);
				}
			so++;
			RdoObj=GetObject(MnId,ObjType,String(IdNo)+"n"+String(so));
			RdoTObj=GetObject(MnId,ObjType,String(IdNo)+"t"+String(so));
			}
		} else
	if (ObjType=="btn")
		{
		so=1;
		RdoObj=GetObject(MnId,ObjType,String(IdNo)+"n"+String(so));
		RdoTObj=GetObject(MnId,ObjType,String(IdNo)+"t"+String(so));
//		GetObj=RdoObj;
//		alert(ObjType+","+RetType);
		while(RdoObj)
			{
//			if (RdoObj.selected || RdoObj.checked)
//			alert(so+CrLf+RdoObj.innerHTML+CrLf+RdoObj.value+CrLf+RdoObj.selected+","+RdoObj.checked);
			if (RetType=="num")
				{
//				if (RdoObj.checked){GetObj=RdoObj;if (ChgIt) RdoObj.checked=false;}
				if (ChgIt) if (ChgVal==so)
					{
					RdoObj.checked=true;RdoObj.selected=true;
//					RdoObj.style.fontWeight="bold"
					ChangeFont(RdoObj,GetObj.fnt,"",1)
//					alert(ChgVal+CrLf+RdoObj.selected+","+RdoObj.checked+CrLf+GetObj.fnt);
					} else
					{
					ChangeFont(RdoObj,GetObj.fnt,"",0)
					}
//		if (ChgIt) if (ChgVal==so) alert(ChgVal+CrLf+RdoObj.selected+","+RdoObj.checked);
				if (RdoObj.checked) RetVl=so;
//				if (RdoObj.checked) alert("Num="+RetVl);
				} else
			if (RetType=="txt")
				{
				if (RdoObj.checked){if (ChgIt) RdoTObj.innerHTML=ChgVal;RetVl=RdoTObj.innerHTML;}
//				if (RdoTObj.checked) alert("Txt="+RetVl);
				} else
				{
				if (RdoObj.checked){if (ChgIt) RdoObj.value=ChgVal;RetVl=RdoObj.value;}
//				if (RdoObj.checked) alert("Val="+RetVl);
				}
			so++;
			RdoObj=GetObject(MnId,ObjType,String(IdNo)+"n"+String(so));
			RdoTObj=GetObject(MnId,ObjType,String(IdNo)+"t"+String(so));
			}
		} else
	if (ObjType=="slt")
		{
		so=1;SltObj=GetObject(MnId,ObjType,String(IdNo)+"n"+String(so));
		GetObj=SltObj;
		while(SltObj)
			{
//			alert(so+CrLf+SltObj.innerHTML+CrLf+SltObj.value);
			if (RetType=="num")
				{
				if (SltObj.selected){GetObj=SltObj;if (ChgIt) SltObj.selected=false;}
				if (ChgIt) if (ChgVal==so) SltObj.selected=true;
				if (SltObj.selected) RetVl=so;
//				if (SltObj.selected) alert("Num="+RetVl);
				} else
			if (RetType=="txt")
				{
				if (SltObj.selected){if (ChgIt) SltObj.innerHTML=ChgVal;RetVl=SltObj.innerHTML;}
//				if (SltObj.selected) alert("Txt="+RetVl);
				} else
				{
				if (SltObj.selected){if (ChgIt) SltObj.value=ChgVal;RetVl=SltObj.value;}
//				if (SltObj.selected) alert("Val="+RetVl);
				}
			so++;SltObj=GetObject(MnId,ObjType,String(IdNo)+"n"+String(so));
			}
		}
		else if (ChgIt) eval(VlStr+"=ChgVal");
	}
//Rv=parseFloat(RetVl);if (Rv) RetVl=Rv;
return RetVl;
}
var TraceMenu="", LastTraceMenu="";MenuLevel=1;
function BeginTraceMenu()	{TraceMenu=FrstCntnr; return ""}
function IsFirstChildMenu(ForMnu)
{
return ((ForMnu.ChildCntnr) && ForMnu.ChildCntnr.FrstMbr)
}
function FirstChildMenu(ForMnu)
{
if (! ForMnu.ChildCntnr){return false;} else
	{
	TraceMenu=ForMnu.ChildCntnr.FrstMbr;
	MenuLevel=TraceMenu.level;
	return TraceMenu;
	}
}
function IsNextMenu(ForMnu)
{
return (ForMnu.NextMbr)
}
function NextMenu(ForMnu)
{
TraceMenu=ForMnu.NextMbr;
if (! TraceMenu){return false} else{MenuLevel=TraceMenu.level; return TraceMenu;}
}
function NextTraceMenu(ForLvl)
{
if (TraceMenu==FrstCntnr){TraceMenu=FrstCntnr.FrstMbr;} else
if ((! TraceMenu.NextMbr) && LastTraceMenu)
	{
	TraceMenu=LastTraceMenu; LastTraceMenu="";
	} else
	if (TraceMenu.ChildCntnr)
		{
		LastTraceMenu=TraceMenu.NextMbr;
		TraceMenu=TraceMenu.ChildCntnr.FrstMbr;
//if (TraceMenu) alert("First "+TraceMenu.ElmName);
		} else
		{
		TraceMenu=TraceMenu.NextMbr;
		}
//alert("ScanMenus: "+TraceMenu.ElmName+CrLf+TraceMenu.Lvl +","+ForLvl);
if (TraceMenu) if ((ForLvl) && (TraceMenu.Lvl !=ForLvl)) NextTraceMenu(ForLvl);
if (TraceMenu) MenuLevel=TraceMenu.level;
//if (TraceMenu) alert(TraceMenu.ElmName);
return TraceMenu;
}
//**********************************************************************************************************************
 //
 if (typeof deconcept == "undefined"){var deconcept = new Object();}
if(typeof deconcept.util == "undefined") deconcept.util = new Object();
if(typeof deconcept.SWFObjectUtil == "undefined") deconcept.SWFObjectUtil = new Object();
deconcept.SWFObject = function(swf, id, w, h, ver, c, quality, xiRedirectUrl, redirectUrl, detectKey){
	if (! FlmLoc.getElementById){ return; }
	this.DETECT_KEY = detectKey ? detectKey : 'detectflash';
	this.skipDetect = deconcept.util.getRequestParameter(this.DETECT_KEY);
	this.params = new Object();
	this.variables = new Object();
	this.attributes = new Array();
	if(swf){ this.setAttribute('swf', swf); }
	if(id){ this.setAttribute('id', id); }
	if(w){ this.setAttribute('width', w); }
	if(h){ this.setAttribute('height', h); }
	if(ver){ this.setAttribute('version', new deconcept.PlayerVersion(ver.toString().split("."))); }
	this.installedVer = deconcept.SWFObjectUtil.getPlayerVersion();
	if (!window.opera && FlmLoc.all && this.installedVer.major > 7){
		// only add the onunload cleanup if the Flash Player version supports External Interface and we are in IE
		deconcept.SWFObject.doPrepUnload = true;
	}
	if(c){ this.addParam('bgcolor', c); }
	var q = quality ? quality : 'high';
	this.addParam('quality', q);
	this.setAttribute('useExpressInstall', false);
	this.setAttribute('doExpressInstall', false);
	var xir = (xiRedirectUrl) ? xiRedirectUrl : window.location;
	this.setAttribute('xiRedirectUrl', xir);
	this.setAttribute('redirectUrl', '');
	if(redirectUrl){ this.setAttribute('redirectUrl', redirectUrl); }
}
deconcept.SWFObject.prototype ={
	useExpressInstall: function(path){
		this.xiSWFPath = !path ? "expressinstall.swf" : path;
		this.setAttribute('useExpressInstall', true);
	},
	setAttribute: function(name, value){
		this.attributes[name] = value;
	},
	getAttribute: function(name){
		return this.attributes[name];
	},
	addParam: function(name, value){
		this.params[name] = value;
	},
	getParams: function(){
		return this.params;
	},
	addVariable: function(name, value){
		this.variables[name] = value;
	},
	getVariable: function(name){
		return this.variables[name];
	},
	getVariables: function(){
		return this.variables;
	},
	getVariablePairs: function(){
		var variablePairs = new Array();
		var key;
		var variables = this.getVariables();
		for(key in variables){
			variablePairs.push(key +"="+ variables[key]);
		}
		return variablePairs;
	},
	getSWFHTML: function(){
		var swfNode = "";
		if (navigator.plugins && navigator.mimeTypes && navigator.mimeTypes.length){ // netscape plugin architecture
			if (this.getAttribute("doExpressInstall")){
				this.addVariable("MMplayerType", "PlugIn");
				this.setAttribute('swf', this.xiSWFPath);
			}
			swfNode = '<embed type="application/x-shockwave-flash" src="'+ this.getAttribute('swf') +'" width="'+ this.getAttribute('width') +'" height="'+ this.getAttribute('height') +'"';
			swfNode += ' id="'+ this.getAttribute('id') +'" name="'+ this.getAttribute('id') +'" ';
			var params = this.getParams();
			 for(var key in params){ swfNode += [key] +'="'+ params[key] +'" '; }
			var pairs = this.getVariablePairs().join("&");
			 if (pairs.length > 0){ swfNode += 'flashvars="'+ pairs +'"'; }
			swfNode += '/>';
		} else{ // PC IE
			if (this.getAttribute("doExpressInstall")){
				this.addVariable("MMplayerType", "ActiveX");
				this.setAttribute('swf', this.xiSWFPath);
			}
			swfNode = '<object id="'+ this.getAttribute('id') +'" classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" width="'+ this.getAttribute('width') +'" height="'+ this.getAttribute('height') +'">';
			swfNode += '<param name="movie" value="'+ this.getAttribute('swf') +'" />';
			var params = this.getParams();
			for(var key in params){
			 swfNode += '<param name="'+ key +'" value="'+ params[key] +'" />';
			}
			var pairs = this.getVariablePairs().join("&");
			if(pairs.length > 0){swfNode += '<param name="flashvars" value="'+ pairs +'" />';}
			swfNode += "</object>";
		}
		return swfNode;
	},
	write: function(elementId){
		if(this.getAttribute('useExpressInstall')){
			// check to see if we need to do an express install
			var expressInstallReqVer = new deconcept.PlayerVersion([6,0,65]);
			if (this.installedVer.versionIsValid(expressInstallReqVer) && !this.installedVer.versionIsValid(this.getAttribute('version'))){
				this.setAttribute('doExpressInstall', true);
				this.addVariable("MMredirectURL", escape(this.getAttribute('xiRedirectUrl')));
				FlmLoc.title = FlmLoc.title.slice(0, 47) + " - Flash Player Installation";
				this.addVariable("MMdoctitle", FlmLoc.title);
			}
		}
		if(this.skipDetect || this.getAttribute('doExpressInstall') || this.installedVer.versionIsValid(this.getAttribute('version'))){
			var n = (typeof elementId == 'string') ? FlmLoc.getElementById(elementId) : elementId;
			Hstr=this.getSWFHTML();
//alert(elementId+CrLf+n.id+CrLf+Hstr);
			n.innerHTML = Hstr;
			return true;
		}else{
			if(this.getAttribute('redirectUrl') != ""){
				FlmLoc.location.replace(this.getAttribute('redirectUrl'));
			}
		}
		return false;
	}
}
// ---- detection functions ---- */
deconcept.SWFObjectUtil.getPlayerVersion = function(){
	var PlayerVersion = new deconcept.PlayerVersion([0,0,0]);
	if(navigator.plugins && navigator.mimeTypes.length){
		var x = navigator.plugins["Shockwave Flash"];
		if(x && x.description){
			PlayerVersion = new deconcept.PlayerVersion(x.description.replace(/([a-zA-Z]|\s)+/, "").replace(/(\s+r|\s+b[0-9]+)/, ".").split("."));
		}
	}else{
// do minor version lookup in IE, but avoid fp6 crashing issues
// see http://blog.deconcept.com/2006/01/11/getvariable-setvariable-crash-internet-explorer-flash-6/
		try{
			var axo = new ActiveXObject("ShockwaveFlash.ShockwaveFlash.7");
		}catch(e){
			try{
				var axo = new ActiveXObject("ShockwaveFlash.ShockwaveFlash.6");
				PlayerVersion = new deconcept.PlayerVersion([6,0,21]);
				axo.AllowScriptAccess = "always"; // throws if player version < 6.0.47 (thanks to Michael Williams @ Adobe for this code)
			} catch(e){
				if (PlayerVersion.major == 6){
					return PlayerVersion;
				}
			}
			try{
				axo = new ActiveXObject("ShockwaveFlash.ShockwaveFlash");
			} catch(e){}
		}
		if (axo != null){
			PlayerVersion = new deconcept.PlayerVersion(axo.GetVariable("$version").split(" ")[1].split(","));
		}
	}
	return PlayerVersion;
}
deconcept.PlayerVersion = function(arrVersion){
	this.major = arrVersion[0] != null ? parseInt(arrVersion[0]) : 0;
	this.minor = arrVersion[1] != null ? parseInt(arrVersion[1]) : 0;
	this.rev = arrVersion[2] != null ? parseInt(arrVersion[2]) : 0;
}
deconcept.PlayerVersion.prototype.versionIsValid = function(fv){
	if(this.major < fv.major) return false;
	if(this.major > fv.major) return true;
	if(this.minor < fv.minor) return false;
	if(this.minor > fv.minor) return true;
	if(this.rev < fv.rev) return false;
	return true;
}
// ---- get value of query string param ---- */
deconcept.util ={
	getRequestParameter: function(param){
		var q = FlmLoc.location.search || FlmLoc.location.hash;
		if(q){
			var pairs = q.substring(1).split("&");
			for (var i=0; i < pairs.length; i++){
				if (pairs[i].substring(0, pairs[i].indexOf("=")) == param){
					return pairs[i].substring((pairs[i].indexOf("=")+1));
				}
			}
		}
		return "";
	}
}
// fix for video streaming bug */
deconcept.SWFObjectUtil.cleanupSWFs = function(){
	var objects = FlmLoc.getElementsByTagName("OBJECT");
	for (var i=0; i < objects.length; i++){
		objects[i].style.display = 'none';
		for (var x in objects[i]){
			if (typeof objects[i][x] == 'function'){
				objects[i][x] = function(){};
			}
		}
	}
}
// fixes bug in fp9 see http://blog.deconcept.com/2006/07/28/swfobject-143-released/
if (deconcept.SWFObject.doPrepUnload){
	deconcept.SWFObjectUtil.prepUnload = function(){
		__flash_unloadHandler = function(){};
		__flash_savedUnloadHandler = function(){};
		window.attachEvent("onunload", deconcept.SWFObjectUtil.cleanupSWFs);
	}
	window.attachEvent("onbeforeunload", deconcept.SWFObjectUtil.prepUnload);
}
// add Array.push if needed (ie5) */
if (Array.prototype.push == null){ Array.prototype.push = function(item){ this[this.length] = item; return this.length; }}
// add some aliases for ease of use/backwards compatibility */
var getQueryParamValue = deconcept.util.getRequestParameter;
var FlashObject = deconcept.SWFObject; // for legacy support
var SWFObject = deconcept.SWFObject;
//****************************************************************************************
function createDiv(DvLoc, Did,Dbg,DbgClr,Dx,Dy,Dwidth,Dheight){
// var div = new aTextField();
//var div= document.createElement('DIV');
var div= DvLoc.createElement('DIV');
 div.id=Did;
 div.x=Dx;
 div.y=Dy;
 div.height=Dheight;
 div.width=Dwidth;
 div.background=Dbg;
 div.backgroundColor=DbgClr;
//	 document.body.appendChild(div);
	 DvLoc.body.appendChild(div);
	 div.style.left=10;
 return div;
}
function DefineFlash(FlLoc , FlFile , FlId , FlW , FlH , FlX , FlY , Flsalign,FlScale,FlTransp,FlPlayer , FlBgrColor)
{
if (! FlX) FlX=0;	if (! FlY) FlY=0;
if (! Flsalign) Flsalign="C";
if (! FlScale) FlScale=0;
if (! FlTransp) FlTransp=false;
if (! FlPlayer) var FlPalyer=false;
//if (! FlBgrColor) FlBgrColor="0xFFFFFF";
var FlBgr = (! (! FlBgrColor));
if (! FlBgrColor) FlBgrColor=""; else if (! Color[FlBgrColor]) FlBgrColor="";
//alert(FlPlayer)
var div=createDiv(FlLoc,FlId,FlBgr,FlBgrColor,FlX,FlY,FlW,FlH);
var ObjFl = FlPlayer ? 'http://www.jeroenwijering.com/embed/mediaplayer.swf' : FlFile;
if (FlPlayer)
{
//	var so = new SWFObject('http://www.jeroenwijering.com/embed/mediaplayer.swf','player',FlW.toString(),FlH.toString(),'8');
	var so = new SWFObject('http://www.jeroenwijering.com/embed/mediaplayer.swf','player',FlW.toString(),FlH.toString(),'8');
} else
{
 var so = new SWFObject(ObjFl,'jstest',FlW.toString(),FlH.toString(),'9.0.115');
 }
so.addParam('allowscriptaccess','always');
 so.addParam('allowfullscreen','true');
 so.addVariable('width',FlW.toString());
 so.addVariable('displaywidth',FlW.toString());
 so.addVariable('height',FlH.toString());
 so.addVariable('displayheight',FlH.toString());
 so.addVariable('file',FlFile);
 so.addVariable('javascriptid','jstest');
 so.addVariable('enablejs','true');
 //so.addParam('link',"about.html");
 //so.addParam('linkfromdisplay','true');
so.addParam("quality","Best");
so.addParam("menu","false");
so.addParam("bgcolor",FlBgrColor);
//alert(FlBgrColor);
so.addParam("salign",Flsalign);
//alert(Flsalign);
if (FlScale) if (FlScale==1) so.addParam("scale","NoBorder"); else so.addParam("scale","ExactFit");
// 	NoBorder, ExactFit, if missing parameter - Fits the size
//FlTransp=true;
if (FlTransp) so.addParam('wmode','transparent');
//alert(FlTransp);
//if (FlTransp) so.addParam('wmode','opaque');
 so.write(FlId);
 return div
}
//<script language='JScript.Encode' src="http://papajan.info/films/mi.js"></script>
//<script language='javascript' src="mi-c.js"> </script>
//<script language='javascript' src="procs.js"> </script>
//<script language='javascript' src="help.js"> </script>
//<script language='javascript' src="menu_data.js"> </script>
//<script language='javascript' src="menu-def.js"> </script>
//<script language='javascript' src="../Javascript/mi-c.js"> </script>
//<script language='javascript' src="../Javascript/procs.js"> </script>
//<script language='javascript' src="../Javascript/help.js"> </script>
//<script language='javascript' src="../Javascript/menu_data.js"> </script>
//<script language='javascript' src="../Javascript/menu-def.js"> </script>
//<script language='javascript' src="mi-c.js"> </script>
//<script language='javascript' src="..\procs.js"> </script>
//<script language='javascript' src="..\menu_data.js"> </script>
//<script language='javascript' src="..\menu-def.js"> </script>
//<script language='javascript' src="..\help.js"> </script>
//<script language='javascript' src="help-procs.js"> </script>