// glac_menu()
// 
// Copyright Throstur Thorsteinsson, updated by Joe MacGregor

function glac_menu() {

glac_pages = ["http://www.ess.washington.edu/Surface/Glaciology/", "http://www.ess.washington.edu/Surface/Glaciology/people.html", "http://www.ess.washington.edu/Surface/Glaciology/projects.html", "http://www.ess.washington.edu/Surface/Glaciology/courses.html", "http://www.ess.washington.edu/Surface/Glaciology/meetings.html", "http://www.ess.washington.edu/Surface/Glaciology/links.html", "End"]; 
glac_names = ["Home", "People", "Projects", "Courses", "Meetings", "Links"];
out_names = ["UW Home", "Geophysics"];
out_links = ["http://www.washington.edu", "http://www.ess.washington.edu", "End"];

i = 0;

document.write("<TABLE WIDTH=\"100%\" CELLPADDING=\"0\" CELLSPACING=\"0\" BORDER=\"0\"><TR>");

while (glac_pages[i] != "End") {
document.write("<TD BGCOLOR=\"Red\"><CENTER><A HREF=\""+glac_pages[i]+"\" TARGET=\"_top\"><B><FONT SIZE=\"+1\" COLOR=\"White\">"+glac_names[i]+"</FONT></B></A></CENTER></TD><TD WIDTH=\"2\">");
i += 1;
}

document.write("</TABLE>");

}