<!-- Original:  Angus Turnbull -->
<!-- Web Site:  http://gusnz.cjb.net -->

<!-- This script and many more are available free online at -->
<!-- The JavaScript Source!! http://javascript.internet.com -->

<!-- Begin
var isDOM = (document.getElementById ? true : false); 
var isIE4 = ((document.all && !isDOM) ? true : false);
var isNS4 = (document.layers ? true : false);
function getRef(id) {
if (isDOM) return document.getElementById(id);
if (isIE4) return document.all[id];
if (isNS4) return document.layers[id];
}
function getSty(id) {
return (isNS4 ? getRef(id) : getRef(id).style);
} 
// Hide timeout.
var popTimer = 0;
// Array showing highlighted menu items.
var litNow = new Array();
function popOver(menuNum, itemNum) {
clearTimeout(popTimer);
hideAllBut(menuNum);
litNow = getTree(menuNum, itemNum);
changeCol(litNow, true);
targetNum = menu[menuNum][itemNum].target;
if (targetNum > 0) {
thisX = parseInt(menu[menuNum][0].ref.left) + parseInt(menu[menuNum][itemNum].ref.left);
thisY = parseInt(menu[menuNum][0].ref.top) + parseInt(menu[menuNum][itemNum].ref.top);
with (menu[targetNum][0].ref) {
left = parseInt(thisX + menu[targetNum][0].x);
top = parseInt(thisY + menu[targetNum][0].y);
visibility = 'visible';
      }
   }
}
function popOut(menuNum, itemNum) {
if ((menuNum == 0) && !menu[menuNum][itemNum].target)
hideAllBut(0)
else
popTimer = setTimeout('hideAllBut(0)', 500);
}
function getTree(menuNum, itemNum) {

itemArray = new Array(menu.length);

while(1) {
itemArray[menuNum] = itemNum;
if (menuNum == 0) return itemArray;
itemNum = menu[menuNum][0].parentItem;
menuNum = menu[menuNum][0].parentMenu;
   }
}

function changeCol(changeArray, isOver) {
for (menuCount = 0; menuCount < changeArray.length; menuCount++) {
if (changeArray[menuCount]) {
newCol = isOver ? menu[menuCount][0].overCol : menu[menuCount][0].backCol;
with (menu[menuCount][changeArray[menuCount]].ref) {
if (isNS4) bgColor = newCol;
else backgroundColor = newCol;
         }
      }
   }
}
function hideAllBut(menuNum) {
var keepMenus = getTree(menuNum, 1);
for (count = 0; count < menu.length; count++)
if (!keepMenus[count])
menu[count][0].ref.visibility = 'hidden';
changeCol(litNow, false);
}

function Menu(isVert, popInd, x, y, width, overCol, backCol, borderClass, textClass) {
this.isVert = isVert;
this.popInd = popInd
this.x = x;
this.y = y;
this.width = width;
this.overCol = overCol;
this.backCol = backCol;
this.borderClass = borderClass;
this.textClass = textClass;
this.parentMenu = null;
this.parentItem = null;
this.ref = null;
}

function Item(text, href, frame, length, spacing, target) {
this.text = text;
this.href = href;
this.frame = frame;
this.length = length;
this.spacing = spacing;
this.target = target;
// Reference to the object's style properties (set later).
this.ref = null;
}

function writeMenus() {
if (!isDOM && !isIE4 && !isNS4) return;

for (currMenu = 0; currMenu < menu.length; currMenu++) with (menu[currMenu][0]) {
var str = '', itemX = 0, itemY = 0;

for (currItem = 1; currItem < menu[currMenu].length; currItem++) with (menu[currMenu][currItem]) {
var itemID = 'menu' + currMenu + 'item' + currItem;

var w = (isVert ? width : length);
var h = (isVert ? length : width);

if (isDOM || isIE4) {
str += '<div id="' + itemID + '" style="position: absolute; left: ' + itemX + '; top: ' + itemY + '; width: ' + w + '; height: ' + h + '; visibility: inherit; ';
if (backCol) str += 'background: ' + backCol + '; ';
str += '" ';
}
if (isNS4) {
str += '<layer id="' + itemID + '" left="' + itemX + '" top="' + itemY + '" width="' +  w + '" height="' + h + '" visibility="inherit" ';
if (backCol) str += 'bgcolor="' + backCol + '" ';
}
if (borderClass) str += 'class="' + borderClass + '" ';

str += 'onMouseOver="popOver(' + currMenu + ',' + currItem + ')" onMouseOut="popOut(' + currMenu + ',' + currItem + ')">';

str += '<table width="' + (w - 8) + '" border="0" cellspacing="0" cellpadding="' + (!isNS4 && borderClass ? 3 : 0) + '"><tr><td align="left" height="' + (h - 7) + '">' + '<a class="' + textClass + '" href="' + href + '"' + (frame ? ' target="' + frame + '">' : '>') + text + '</a></td>';
if (target > 0) {

menu[target][0].parentMenu = currMenu;
menu[target][0].parentItem = currItem;

if (popInd) str += '<td class="' + textClass + '" align="right">' + popInd + '</td>';
}
str += '</tr></table>' + (isNS4 ? '</layer>' : '</div>');
if (isVert) itemY += length + spacing;
else itemX += length + spacing;
}
if (isDOM) {
var newDiv = document.createElement('div');
document.getElementsByTagName('body').item(0).appendChild(newDiv);
newDiv.innerHTML = str;
ref = newDiv.style;
ref.position = 'absolute';
ref.visibility = 'hidden';
}

if (isIE4) {
document.body.insertAdjacentHTML('beforeEnd', '<div id="menu' + currMenu + 'div" ' + 'style="position: absolute; visibility: hidden">' + str + '</div>');
ref = getSty('menu' + currMenu + 'div');
}

if (isNS4) {
ref = new Layer(0);
ref.document.write(str);
ref.document.close();
}

for (currItem = 1; currItem < menu[currMenu].length; currItem++) {
itemName = 'menu' + currMenu + 'item' + currItem;
if (isDOM || isIE4) menu[currMenu][currItem].ref = getSty(itemName);
if (isNS4) menu[currMenu][currItem].ref = ref.document[itemName];
   }
}
with(menu[0][0]) {
ref.left = x;
ref.top = y;
ref.visibility = 'visible';
   }
}

var menu = new Array();

var defOver = '#6666cc', defBack = '#3333cc';

var defLength = 22;

menu[0] = new Array();
menu[0][0] = new Menu(false, '', 5, 0, 17, '#6666cc', '#3333cc', '', 'itemText');
menu[0][1] = new Item('  Tracks', 'http://www.horse-races.net/library/links-racetracks.htm', '', 60, 10, 1);
menu[0][2] = new Item('  Handicapping', 'http://horseracing.about.com/cs/handicapping/', '', 100, 10, 2);
menu[0][3] = new Item('  News', 'http://www.horse-races.net/library/links-news.htm', '', 60, 10, 3);
menu[0][4] = new Item('  Triple Crown', 'http://www.horse-races.net/library/links-tcrown2002.htm', '', 100, 10, 4);
menu[0][5] = new Item('  International', 'http://horseracing.about.com/cs/foreignracing/', '', 90, 10, 5);
menu[0][6] = new Item('  Other Links', 'http://horseracing.about.com/library/blsitemap.htm', '', 90, 10, 6);

// Tracks menu.
menu[1] = new Array();
menu[1][0] = new Menu(true, '>', 0, 22, 150, defOver, defBack, 'itemBorder', 'itemText');
menu[1][1] = new Item('Quick Index', 'http://www.horse-races.net/library/links-alltracks.htm', '', defLength, 0, 0);
menu[1][2] = new Item('Thoroughbred Tracks', 'http://www.horse-races.net/library/links-tbtracks.htm', '', defLength, 0, 0);
menu[1][3] = new Item('Harness Tracks', 'http://www.horse-races.net/library/links-harntracks.htm', '', defLength, 0, 0);
menu[1][4] = new Item('Quarter Horse', 'http://www.horse-races.net/library/links-qhtracks.htm', '', defLength, 0, 0);
menu[1][5] = new Item('Arabian', 'http://www.horse-races.net/library/links-arabtracks.htm', '', defLength, 0, 0);
menu[1][6] = new Item('Track Directories', 'http://horseracing.about.com/msub1dir.htm', '', defLength, 0, 0);
menu[1][7] = new Item('Foreign Tracks', 'http://horseracing.about.com/cs/foreignracing/', '', defLength, 0, 0);

// Handicapping menu.
menu[2] = new Array();
menu[2][0] = new Menu(true, '>', 0, 22, 150, defOver, defBack, 'itemBorder', 'itemText');
menu[2][1] = new Item('Free Picks', 'http://www.horse-races.net/library/links-freesel.htm', '', defLength, 0, 0);
menu[2][2] = new Item('Entries & Results', 'http://www.horse-races.net/library/links-entryresults.htm', '', defLength, 0, 0);
menu[2][3] = new Item('Selections & Systems', 'http://horseracing.about.com/cs/handicapag/index.htm', '', defLength, 0, 0);
menu[2][4] = new Item('Software', 'http://www.horse-races.net/library/links-handisoft.htm', '', defLength, 0, 0);
menu[2][5] = new Item('Online Toteboards', 'http://horseracing.about.com/cs/onlinetoteboards/index.htm', '', defLength, 0, 0);
menu[2][6] = new Item('Phone/Online Wagering', 'http://horseracing.about.com/msub20o.htm', '', defLength, 0, 0);
menu[2][7] = new Item('Past Performances', 'http://horseracing.about.com/cs/pastperformances/index.htm', '', defLength, 0, 0);

// News menu
menu[3] = new Array();
menu[3][0] = new Menu(true, '>', 0, 22, 150, defOver, defBack, 'itemBorder', 'itemText');
menu[3][1] = new Item('Online News', 'http://www.horse-races.net/links-favnews.htm', '', defLength, 0, 0);
menu[3][2] = new Item('Newspapers', 'http://www.horse-races.net/links-papers.htm', '', defLength, 0, 0);
menu[3][3] = new Item('Magazines', 'http://www.horse-races.net/links-mags.htm', '', defLength, 0, 0);
menu[3][4] = new Item('Foreign News', 'http://www.horse-races.net/links-foreign.htm', '', defLength, 0, 0);
menu[3][5] = new Item('Newsletters', 'http://www.horse-races.net/links-newsltr.htm', '', defLength, 0, 0);


// Triple Crown menu
menu[4] = new Array();
menu[4][0] = new Menu(true, '>', 0, 22, 150, defOver, defBack, 'itemBorder', 'itemText');
menu[4][1] = new Item('Triple Crown', 'http://www.horse-races.net/library/links-tcrown.htm', '', defLength, 0, 0);
menu[4][2] = new Item('Future Books', 'http://www.horse-races.net/library/links-future.htm', '', defLength, 0, 0);
menu[4][3] = new Item('Kentucky Derby', 'http://www.horse-races.net/library/links-derby.htm', '', defLength, 0, 0);
menu[4][4] = new Item('Preakness', 'http://www.horse-races.net/library/links-preak.htm', '', defLength, 0, 0);
menu[4][5] = new Item('Belmont', 'http://www.horse-races.net/library/links-belmont.htm', '', defLength, 0, 0);
menu[4][6] = new Item('History', 'http://www.horse-races.net/library/links-tchistory.htm', '', defLength, 0, 0);
menu[4][7] = new Item('Tickets', 'http://www.horse-races.net/library/links-tctickets.htm', '', defLength, 0, 0);
menu[4][8] = new Item('Souvenirs', 'http://www.horse-races.net/library/links-tcsouvenirs.htm', '', defLength, 0, 0);

// International menu
menu[5] = new Array();
menu[5][0] = new Menu(true, '>', 0, 22, 150, defOver, defBack, 'itemBorder', 'itemText');
menu[5][1] = new Item('Australia/New Zealand', 'http://horseracing.about.com/cs/australianz/index.htm', '', defLength, 0, 0);
menu[5][2] = new Item('UK', 'http://horseracing.about.com/msubmenu33.htm', '', defLength, 0, 0);
menu[5][3] = new Item('France & Spain', 'http://horseracing.about.com/msub24.htm', '', defLength, 0, 0);
menu[5][4] = new Item('Ireland & Scotland', 'http://horseracing.about.com/msub27.htm', '', defLength, 0, 0);
menu[5][5] = new Item('Eastern Europe', 'http://horseracing.about.com/msub23.htm', '', defLength, 0, 0);
menu[5][6] = new Item('Germany Area', 'http://horseracing.about.com/msub25.htm', '', defLength, 0, 0);
menu[5][7] = new Item('Hong Kong', 'http://horseracing.about.com/msub26.htm', '', defLength, 0, 0);
menu[5][8] = new Item('Italy', 'http://horseracing.about.com/msub28.htm', '', defLength, 0, 0);
menu[5][9] = new Item('Japan', 'http://horseracing.about.com/msub29.htm', '', defLength, 0, 0);
menu[5][10] = new Item('Middle East', 'http://horseracing.about.com/msub34.htm', '', defLength, 0, 0);
menu[5][11] = new Item('Scandinavian', 'http://horseracing.about.com/cs/scandinavia/index.htm', '', defLength, 0, 0);
menu[5][12] = new Item('South Africa', 'http://horseracing.about.com/msub31.htm', '', defLength, 0, 0);
menu[5][13] = new Item('South America', 'http://horseracing.about.com/msub32.htm', '', defLength, 0, 0);

// Other Links menu
menu[6] = new Array();
menu[6][0] = new Menu(true, '>', 0, 22, 150, defOver, defBack, 'itemBorder', 'itemText');
menu[6][1] = new Item('Site Map', 'http://www.horse-races.net/library/sitemap.htm', '', defLength, 0, 0);
menu[6][2] = new Item('Main Page', 'http://www.horse-races.net/', '', defLength, 0, 0);
menu[6][3] = new Item('Derby Glass Museum', 'http://horse-races.net/derbyglass/glasses.html', '', defLength, 0, 0);
menu[6][4] = new Item('Memorabilia Museum', 'http://horse-races.net/derbyglass/', '', defLength, 0, 0);
menu[6][5] = new Item('Postcard Museum', 'http://www.horse-races.net/postcard.html', '', defLength, 0, 0);
menu[6][6] = new Item('Equillector Price Guide', 'http://equillector.50megs.com/', '', defLength, 0, 0);


var popOldWidth = window.innerWidth;
nsResizeHandler = new Function('if (popOldWidth != window.innerWidth) location.reload()');


if (isNS4) document.captureEvents(Event.CLICK);
document.onclick = clickHandle;

function clickHandle(evt)
{
 if (isNS4) document.routeEvent(evt);
 hideAllBut(0);
}


function moveRoot()
{
 with(menu[0][0].ref) left = ((parseInt(left) < 100) ? 100 : 5);
}
