function generateTree()
{
var h = "http://"
var w = "http://www."
var aux1, aux2, aux3, aux4


	foldersTree = folderNode("hr1e.htm> Home")
    aux1 = appendChild(foldersTree, folderNode("></a> HAM radio 4X"))
		    aux2 = appendChild(aux1, leafNode("call.html> 4X/4Z HAMs "))
							appendChild(aux2, generateDocEntry(0, "IARC", "http://www.iarc.org/audible.html", ""))
							appendChild(aux2, generateDocEntry(0, "4X callbook", "call.html", ""))
							appendChild(aux2, generateDocEntry(0, "ex rus HAMs", "hr5e.htm", ""))
			aux2 = appendChild(aux1, leafNode("awardse.htm> Awards"))
							appendChild(aux2, generateDocEntry(0, "Holyland", "hrawrd1.htm", ""))
							appendChild(aux2, generateDocEntry(0, "4X4=16", "hrawrd2.htm", ""))
							appendChild(aux2, generateDocEntry(0, "Israeli", "hrawrd3.htm", ""))
							appendChild(aux2, generateDocEntry(0, "Jerusalem", "hrawrd4.htm", ""))
							appendChild(aux2, generateDocEntry(0, "Tel-Aviv", "hrawrd5.htm", ""))
							appendChild(aux2, generateDocEntry(0, "Rishon ", "hrawrd6.htm", ""))
							appendChild(aux2, generateDocEntry(0, "Kiryat Ono", "hrawrd7.htm", ""))
							appendChild(aux2, generateDocEntry(0, "Nazareth ", "hrawrd8.htm", ""))
							appendChild(aux2, generateDocEntry(0, "Israel digital", "hrawrd9.htm", ""))
							appendChild(aux2, generateDocEntry(0, "Shalom 2000", "hrawrda.htm", ""))
			
			aux2 = appendChild(aux1, leafNode("hr6e.htm> Photo"))	
							appendChild(aux2, generateDocEntry(0, "Collection 1", "hr6e.htm", ""))
							appendChild(aux2, generateDocEntry(0, "Collection 2", "hr61e.htm", ""))
							appendChild(aux2, generateDocEntry(1, "4X4GT 12-2001 ", w+"iarc.org/~4x4gt/december-2001/page_01.htm", ""))
							appendChild(aux2, generateDocEntry(1, "4X4GT 3-2001", w+"iarc.org/~4x4gt/march2001/page_01.htm", ""))
							appendChild(aux2, generateDocEntry(1, "4X4GT 5-2000 ", w+"iarc.org/~4x4gt/May-2000/page_01.htm", ""))
							appendChild(aux2, generateDocEntry(1, "4X4GT 4-2000 ", w+"iarc.org/~4x4gt/natzeret-2000/page_01.htm", ""))
							appendChild(aux2, generateDocEntry(1, "4X4GT archiv", w+"iarc.org/~4x4gt/page_01.htm", ""))
		   aux2 = appendChild(aux1, leafNode("../phorum3/list.php?f=3> Forum "))	

	 aux1 = appendChild(foldersTree, folderNode("></a> Contests"))

	 			aux2 = appendChild(aux1, leafNode("></a> HOLYLAND 2000"))   
			 	appendChild(aux2, generateDocEntry(0, "Israel", "hrhlnd00ir.htm", ""))
				appendChild(aux2, generateDocEntry(0, "All world", "hrhlnd00wr.htm", ""))
				appendChild(aux2, generateDocEntry(0, "Countries","hrhlnd00cr.htm", ""))
			aux2 = appendChild(aux1, leafNode("></a> HOLYLAND 2001"))   
			    appendChild(aux2, generateDocEntry(0, "Rules", "hr71e.htm", ""))
				appendChild(aux2, generateDocEntry(0, "Israel", "hrhlnd01ir.htm", ""))
				appendChild(aux2, generateDocEntry(0, "All world", "hrhlnd01wr.htm", ""))
				appendChild(aux2, generateDocEntry(0, "Countries", "hrhlnd01cr.htm", ""))
			aux2 = appendChild(aux1, leafNode("></a> HOLYLAND 2002"))   
			    appendChild(aux2, generateDocEntry(0, "Rules", "hr74e.htm", ""))
			aux2 = appendChild(aux1, leafNode("></a>  World Contests"))
			 		appendChild(aux2, generateDocEntry(1, "Rus contest", w+"contest.ru/", ""))
				    appendChild(aux2, generateDocEntry(1, "Contesting", w+"contesting.com", ""))
					appendChild(aux2, generateDocEntry(1, "NG3K ", w+"his.com/~wfeidt/Contest/index.html", ""))
					appendChild(aux2, generateDocEntry(1, "WA7BNM ", w+"hornucopia.com/contestcal/contestcal.html", ""))
					appendChild(aux2, generateDocEntry(1, "HA9LW ", h+"home.online.no/~janalme/hammain.html", ""))
					appendChild(aux2, generateDocEntry(1, "SM3CER", w+"sk3bg.se/contest/", ""))
	 
			aux2 = appendChild(aux1, folderNode("></a>  Official sites"))
					aux3 = appendChild(aux2, leafNode("></a>  Europe"))
						appendChild(aux3, generateDocEntry(1, "Eu DX-C", w+"darc.de/referate/dx/fedcw.htm", ""))
						appendChild(aux3, generateDocEntry(1, "Marconi Mem", w+"qsl.net/ik6ptj/marconi.htm", ""))
						appendChild(aux3, generateDocEntry(1, "OK/OM DX C", w+"radioamater.cz/okomdxc/", ""))
						appendChild(aux3, generateDocEntry(1, "IARU HF WC", w+"arrl.org/contests/forms/iaru.rls.html", ""))
					    appendChild(aux3, generateDocEntry(1, "All Germany", w+"darc.de/referate/dx/fedcg.htm", ""))
						appendChild(aux3, generateDocEntry(1, "YL-OM C", w+"qsl.net/ylrl/ylcontests.html", ""))
						appendChild(aux3, generateDocEntry(1, "RSGB 1.8 MHz", w+"btinternet.com/~tim.kirby/HFCC/rules-2002/topband.html", ""))
		  				appendChild(aux3, generateDocEntry(1, "LZ DX C", w+"qsl.net/lz1fw/contest/", ""))
				    	appendChild(aux3, generateDocEntry(1, "Romanian IC", w+"qsl.net/yo3kaa/contests/index.html", ""))
						appendChild(aux3, generateDocEntry(1, "TESLA CUP", h+"members.aol.com/k3bu/TeslaCup.htm", ""))
						appendChild(aux3, generateDocEntry(1, "YU DX C", h+"yudx.no-ip.com/yudx/index.htm", ""))
						appendChild(aux3, generateDocEntry(1, "European HFC", h+"lea.hamradio.si/~scc/rules.txt", ""))
						
					aux3 = appendChild(aux2, leafNode("></a>  America"))
						appendChild(aux3, generateDocEntry(1, "CQ WW DX C", w+"cqww.com/", ""))
						appendChild(aux3, generateDocEntry(1, "CQ-WPX", h+"home.woh.rr.com/wpx/", ""))
						appendChild(aux3, generateDocEntry(1, "ARRL I DX C", w+"arrl.org/", ""))
					
					aux3 = appendChild(aux2, leafNode("></a>  Asia"))
						appendChild(aux3, generateDocEntry(1, "AA DX C", w+"jarl.or.jp/English/4_Library/A-4-3_Contests/AADX.htm", ""))
					    appendChild(aux3, generateDocEntry(1, "Asia-Pacific ", h+"jsfc.org/apsprint/", ""))
						appendChild(aux3, generateDocEntry(1, "JIDX", h+"je1cka.jzap.com/jidx/", ""))
					
					aux3 = appendChild(aux2, leafNode("></a>  Russia"))
						appendChild(aux3, generateDocEntry(1, "CQ-M", w+"mai.ru/~crc/cq-m/cqmain_e.htm", ""))
						appendChild(aux3, generateDocEntry(1, "Rus DX C", w+"rdxc.org/", ""))
	aux1 = appendChild(foldersTree, folderNode("></a> Hand book "))
			    aux2 = appendChild(aux1, leafNode("></a> Links "))	
				       appendChild(aux2, generateDocEntry(0, "National clubs", "hr2e.htm", ""))
					   appendChild(aux2, generateDocEntry(0, "Callbooks", "callbookse.htm", ""))
			    aux2 = appendChild(aux1, leafNode("></a> Countries List       "))	
				   appendChild(aux2, generateDocEntry(1, "DXCC ",  w+"arrl.org/awards/dxcc/dxcclist.txt", ""))
				   appendChild(aux2, generateDocEntry(1, "WAE", w+"darc.de/referate/dx/xed0wae.htm", ""))		
	     		   appendChild(aux2, generateDocEntry(1, "IOTA ", w+"contest.ru/new/isl.txt", ""))	
				   appendChild(aux2, generateDocEntry(0, "ITU zones ", "ituzonemap.htm", ""))	
				   appendChild(aux2, generateDocEntry(0, "CQ zones ", "cqzonemap.htm", ""))	
				aux2 = appendChild(aux1, leafNode("></a> QSL Bureaus "))	
					appendChild(aux2, generateDocEntry(0, "IARU QSL Bureaus", "hr25e.htm", ""))
						
	aux1 = appendChild(foldersTree, folderNode("></a> Info "))
			    aux2 = appendChild(aux1, leafNode("></a> Propagation "))	
				   appendChild(aux2, generateDocEntry(1, "ARRL Bulletins", w+"arrl.org/w1aw/prop/2001-index.html", ""))
					appendChild(aux2, generateDocEntry(1, "Solar activity", w+"dxlc.com/solar", ""))
					appendChild(aux2, generateDocEntry(1, "WM7D.NET", w+"wm7d.net/hamradio/solar", ""))
					appendChild(aux2, generateDocEntry(1, "Aurora MAP", h+"solar.spacew.com/www/realtime.gif", ""))
					appendChild(aux2, generateDocEntry(1, "Gray Line", w+"fourmilab.ch/cgi-bin/uncgi/Earth/action?opt=-p", ""))	
				aux2 = appendChild(aux1, leafNode("></a> Satellites "))		
			    	appendChild(aux2, generateDocEntry(1, "Satellites", h+"liftoff.msfc.nasa.gov/realtime/JTrack/Amateur.html", ""))	
					appendChild(aux2, generateDocEntry(1, "Amsat", h+"amsat.org", ""))	
					appendChild(aux2, generateDocEntry(1, "PANSAT", w+"sp.nps.navy.mil/pansat/whatsnew.html", ""))	
					appendChild(aux2, generateDocEntry(1, "JAS-2", w+"jarl.or.jp/English/5_Fuji/ejasmenu.htm", ""))	
					appendChild(aux2, generateDocEntry(1, "OSCAR-11", w+"users.zetnet.co.uk/clivew/oscar11.htm", ""))
					appendChild(aux2, generateDocEntry(1, "RS15SAT", h+"home.san.rr.com/doguimont/uploads/RS15SAT.TXT", ""))
					appendChild(aux2, generateDocEntry(1, "RS-12/13 ", w+"qsl.net/ac5dk/rs1213/rs1213.html", ""))
				aux2 = appendChild(aux1, leafNode("></a> DX Info "))	
					appendChild(aux2, generateDocEntry(1, "425dxn", w+"425dxn.org/425/indbulle.html", ""))
					appendChild(aux2, generateDocEntry(1, "ARRL Bulletins", w+"arrl.org/w1aw/dx/2001-index.html", ""))
					appendChild(aux2, generateDocEntry(1, "DXNewsLetter", h+"cpcug.org/user/wfeidt/Dxnl", ""))
					appendChild(aux2, generateDocEntry(1, "OHPADX", h+"cpcug.org/user/wfeidt/Ohpadx", ""))
 			    aux2 = appendChild(aux1, leafNode("></a> Manufacturer"))	
	     			appendChild(aux2, generateDocEntry(1, "ICOM", w+"icomamerica.com/amateur/index.html", ""))	
  				 	appendChild(aux2, generateDocEntry(1, "Kenwood", w+"kenwood.net/ama_page.cfm", ""))	
  				 	appendChild(aux2, generateDocEntry(1, "Yaesu", w+"yaesu.com/amateur/amateur.html", ""))	
					appendChild(aux2, generateDocEntry(1, "Ten-Tec", w+"tentec.com/", ""))
					appendChild(aux2, generateDocEntry(1, "Alinco", w+"alinco.com/usa.html", ""))		
					appendChild(aux2, generateDocEntry(1, "Hamtronics", w+"hamtronics.com/", ""))	
					appendChild(aux2, generateDocEntry(1, "W&W", w+"ww-manufacturing.com/", ""))

}


function folderNode(name)
{ 
var arrayAux
	arrayAux = new Array
	arrayAux[0] = wmen
	arrayAux[1] = wmen
	arrayAux[2] = 0
	arrayAux[3] = name
        
        return arrayAux
}


function leafNode(name)
{
var arrayAux
	arrayAux = new Array
	arrayAux[0] = 0
	arrayAux[1] = 0
	arrayAux[2] = 1
	arrayAux[3] = name
        
        return arrayAux
}


function appendChild(parent, child)
{
	parent[parent.length] = child
	return child
}


function generateDocEntry(icon,docDescription, link)
{
var retString =""

	if (icon==0)
		retString = "<A href='"+link+"' target='folderFrame' ><img src='doc.gif' "
	else
		retString = "<A href='"+link+"' target='folderFrame' ><img src='link.gif' "
	retString = retString + " border=0 ></a><td nowrap>&nbsp;<A target='folderFrame' href='"+link+"' >" + docDescription + "</a>"
	return retString

}


function redrawTree()
{
var doc = top.treeFrame.window.document

	doc.clear()
doc.write("<style type=text/css> td { font-family: Arial, Helvetica, sans-serif; font-size: 8pt; '} A:VISITED {	color : Maroon;} /n ")
doc.write("td   { font: 8pt Verdana, Tahoma, Arial; color: #000000 }")	
doc.write("a     {  color:#6666cc ;  text-decoration : none;}")	
doc.write("span    { font: 8pt Verdana, Tahoma, Arial; color: #000000 }")	
doc.write("A:hover  {  font: 8pt Verdana, Tahoma, Arial;  color: #000033 ;  text-decoration : underline;  }")	
doc.write("</style><body leftmargin=3 ritemargin=0 topmargin=0 bgcolor=#F6FAFD vlink=#146fa5 >")	
	
	redrawNode(foldersTree, doc, 0,1,"")
	doc.close()
}


function redrawNode(foldersNode, doc, level, lastNode, leftSide)
{
var j=0
var i=0

	doc.write("<table border=0 cellspacing=0 cellpadding=0>")
	doc.write("<tr><td valign = middle nowrap>")

	doc.write(leftSide)

	if (level>0)
		if (lastNode)
		{
			doc.write("<img src='lastnode.gif' width=16 height=22>")
			leftSide = leftSide + "<img src='blank.gif' width=16 height=22>" 
		}
		else
		{
			doc.write("<img src='node.gif' width=16 height=22>")
			leftSide = leftSide + "<img src='vertline.gif' width=16 height=22>"
		}

	displayIconAndLabel(foldersNode, doc)
	doc.write("</table>")

	if (foldersNode.length > 4 && foldersNode[0])
	{
		if (!foldersNode[2])
		{
			level=level+1
			for (i=4; i<foldersNode.length;i++)
				if (i==foldersNode.length-1)
					redrawNode(foldersNode[i], doc, level, 1, leftSide)
				else
					redrawNode(foldersNode[i], doc, level, 0, leftSide)
		}
		else 
		{
			for (i=4; i<foldersNode.length;i++)
			{
				doc.write("<table border=0 cellspacing=0 cellpadding=0 valign=center>")
				doc.write("<tr><td nowrap>")
				doc.write(leftSide)
				if (i==foldersNode.length - 1)
					doc.write("<img src='lastnode.gif' width=16 height=22>")
				else
					doc.write("<img src='node.gif' width=16 height=22>")
				doc.write(foldersNode[i])
				doc.write("</table>")
			}
		}
	}
}


function displayIconAndLabel(foldersNode, doc)
{
	doc.write("<A href='javascript:top.openBranch(\"" + foldersNode[3] + "\")'><img src=")
	if (foldersNode[1])
		doc.write("openfolder.gif width=24 height=22 border=noborder></a>")
	else
		{
		if (foldersNode[2] == 1 && foldersNode[4] )
			{doc.write("folderfull.gif width=24 height=22 border=noborder></a>")}
		else
			{doc.write("closedfolder.gif width=24 height=22 border=noborder></a>")}
		}
	doc.write("<td valign=bottom align=left nowrap>")
		doc.write("<a target='folderFrame' href="+foldersNode[3]+"</a>\n")
}


function closeFolders(foldersNode)
{
var i=0

        if (!foldersNode[2])
	{
        	for (i=4; i< foldersNode.length; i++)
	           	closeFolders(foldersNode[i])

	}
        foldersNode[0] = 0
        foldersNode[1] = 0
}


function clickOnFolderRec(foldersNode, folderName)
{
var i=0

  if (foldersNode[3] == folderName)
	{
		if (foldersNode[0])
			closeFolders(foldersNode)
		else
		{
			foldersNode[0] = 1
                	foldersNode[1] = 1
		}
	}
	else
	{
        	if (!foldersNode[2])
        		for (i=4; i< foldersNode.length; i++)
	           		clickOnFolderRec(foldersNode[i], folderName)
	}

}



function openBranch(branchName)
{
	clickOnFolderRec(foldersTree, branchName)
	if (branchName=="Start folder" && foldersTree[0]==0)
		top.folderFrame.location="hr1e.htm"
	timeOutId = setTimeout("redrawTree()",100)
}


function initializeTree()
{
	generateTree()
	redrawTree()
	openBranch("hr1e.htm> Home")
}

function sbmt()
			{
             if(insrt.aa.value==1) { bukm.entry.value=insrt.isrtentry.value;  bukm.submit() }
             if(insrt.aa.value==2) { getcall.callsign.value=insrt.isrtentry.value;  getcall.submit()}
             if(insrt.aa.value==3) { eQSL.Callsign.value=insrt.isrtentry.value;  eQSL.submit() }
			 if(insrt.aa.value==4) { dxnews.query.value=insrt.isrtentry.value;  dxnews.submit() }
			 if(insrt.aa.value==5) { octavia.CallSign.value=insrt.isrtentry.value;  octavia.submit() }
		     if(insrt.aa.value==6) { isrcallbook.call.value=insrt.isrtentry.value; isrcallbook.submit() }
		     if(insrt.aa.value==7) { ric.call.value=insrt.isrtentry.value;  ric.submit() }
		     if(insrt.aa.value==8) { K4UTE.dx.value=insrt.isrtentry.value; K4UTE.submit() }
			 if(insrt.aa.value==9) { navform2.call.value=insrt.isrtentry.value;  navform2.submit() }
			 if(insrt.aa.value==10) { qrzru.callsign.value=insrt.isrtentry.value;  qrzru.submit() }
			}
											   
function wtu()
	{
	if	(wdt1 == 1)
		{
		t7.width='20%'; t8.width='80%'; wdt1=0;
		insrt.wtupic.src = "images/bcrhri111_10.gif";
		
		}
	else
		{
		t7.width='1'; t8.width='100%';wdt1=1;
		insrt.wtupic.src = "images/morhri111_10.gif";

		}
	}	
	

function wmnu()
	{
	if	(wdt1 == 0)
		{
		if	(wmen == 0)
			{
			wmen=1; 
			insrt.wtupic.src = "images/bcrhri111_10.gif";
			generateTree()
			redrawTree()
			}
		else
			{
			wmen=0; 
			insrt.wtupic.src = "images/borhri111_10.gif";
			openBranch("hr1e.htm> Home")
			openBranch("hr1e.htm> Home")
			}
		}
	}	
	
	

	
	
	
								   
var wdt1 = 1
var wmen = 0
var wlng = 0
var foldersTree = 0
var timeOutId = 0
generateTree()