// FredMenu 07-06-2001 fjlawson@earthlink.net

// Load the following into the head of a document needing the menu:
// <script language="javascript" src="fredmenu.js"></script>
//
// Install the following where the menu is to display (can be inserted as a tag):
// <script Language = "JavaScript">FredMenu()</script>

function FredMenu () {
var fredcount=0; // initialize array counter

fredarray = new Array ( // start menu array

//depth     page_name                   page title
//A
// B
//  C
// S = separator

"S"     ,  ""                           ,  ""                        , // separator
"A"     ,  "index.html"                 ,  "Fred's Web Page"         ,
"S"     ,  ""                           ,  ""                        , // separator
"A"     ,  "fjltoday.htm"               ,  "FJL Today"               ,
"B"     ,  "fjltoday.htm#comics"        ,  "The Comics Section"      ,
"B"     ,  "fjltoday.htm#entertainment" ,  "More Entertainment"      ,
"S"     ,  ""                           ,  ""                        , // separator
"A"     ,  "weather.htm"                ,  "Weather"                 ,
"B"     ,  "weather.htm#maps"           ,  "Images & Maps"           ,
"B"     ,  "weather.htm#colorado"       ,  "Colorado Section"        ,
"B"     ,  "weather.htm#national"       ,  "National Section"        ,
"C"     ,  "9th_n_pearl.html"           ,  "Boulder-9th & Pearl cam" ,
"C"     ,  "pearl_street.html"          ,  "Boulder-Bike Shop cam"   ,
"S"     ,  ""                           ,  ""                        , // separator
"A"     ,  "net.htm"                    ,  "The 'Net"                 ,
"B"     ,  "net.htm#serious"            ,  "Stuff for Newbies"       ,
"B"     ,  "net.htm#notserious"         ,  "'Net Fiction"             ,
"B"     ,  "net.htm#webcams"            ,  "Webcams (Eye-berspace)"  ,
"S"     ,  ""                           ,  ""                        , // separator
"A"     ,  "spamwars.html"              ,  "Spam Wars"               ,
"B"     ,  "spamwars.html"              ,  "Intro-Dont's & Do's"     ,
"B"     ,  "spamwar_example.html"       ,  "Battle Example"          ,
"B"     ,  "spamwar_additional.html"    ,  "More Sites & Software"   ,
"B"     ,  "spamwartools.html"          ,  "Battle Weapons"          ,
"S"     ,  ""                           ,  ""                        , // separator
"A"     ,  "compstuf.htm"               ,  "More Computer Stuff"     ,
"B"     ,  "compstuf.htm#virii"         ,  "Viruses & Virus Hoaxes"  ,
"B"     ,  "compstuf.htm#cgames"        ,  "Game Information"        ,
"S"     ,  ""                           ,  ""                        , // separator
"A"     ,  "space.htm"                  ,  "Space"                   ,
"B"     ,  "space.htm#hubble"           ,  "Hubble"                  ,
"B"     ,  "space.htm#sirtf"            ,  "SIRTF"                   ,
"S"     ,  ""                           ,  ""                        , // separator
"A"     ,  "tvradio.htm"                ,  "Television & Radio"      ,
"B"     ,  "tvradio.htm"                ,  "Star Trek"               ,
"B"     ,  "tvradio.htm#othertv"        ,  "TV Guides"               ,
"B"     ,  "tvcomm.htm"                 ,  "Commercials"             ,
"B"     ,  "tvradio.htm#video"          ,  "Video Games"             ,
"S"     ,  ""                           ,  ""                        , // separator
"A"     ,  "engr.htm"                   ,  "Engineering Section"     ,
"B"     ,  "engr.htm"                   ,  "Materials Information"   ,
"B"     ,  "engr.htm#otherinfo"         ,  "Other Information"       ,
"B"     ,  "engr.htm#cad"               ,  "CAD Systems"             ,
"B"     ,  "engr.htm#hardware"          ,  "Hardware Sources"        ,
"S"     ,  ""                           ,  ""                        , // separator
"A"     ,  "library.htm"                ,  "The Library"             ,
"B"     ,  "library.htm"                ,  "Magazines"               ,
"B"     ,  "library.htm#books"          ,  "Books"                   ,
"B"     ,  "library.htm#reference"      ,  "Reference"               ,
"B"     ,  "library.htm#maps"           ,  "Maps"                    ,
"S"     ,  ""                           ,  ""                        , // separator
"A"     ,  "oddstuff.htm"               ,  "Off Center"              ,
"S"     ,  ""                           ,  ""                        , // separator
"A"     ,  "kidstuff.htm"               ,  "Kid Stuff"               ,
"B"     ,  "kidstuff.htm#learn"         ,  "Places to Learn"         ,
"B"     ,  "school.htm"                 ,  "Parent Stuff"            ,
"S"     ,  ""                           ,  ""                        , // separator
"A"     ,  "old_stuff.html"             ,  "Old Stuff"               // no comma after last entry

) // end fredarray

document.write ('<font face="Arial,Helvetica" size="2"><b>'); // use Arial font size 2...
document.write ('<form name="goform">'); // start menu pulldown form
document.write ('<select name="gomenu" size="1" onchange="window.location.href=document.goform.gomenu.options[document.goform.gomenu.selectedIndex].value">');
document.write ('<option SELECTED value="">More Pages...');
while (fredcount < fredarray.length) {
   fjllevel=fredarray[fredcount++];
   fjlpage=fredarray[fredcount++];
   fjltitle=fredarray[fredcount++];
   if (fjllevel=="B") {
      fjltitle="&nbsp;&nbsp;"+fjltitle;
   } // endif
   if (fjllevel=="C") {
      fjltitle="&nbsp;&nbsp;&nbsp;&nbsp;"+fjltitle;
   } // endif
   if (fjllevel=="S") {
      fjlpage=document.URL;
   }
   document.write ('<option value='+fjlpage+'>'+fjltitle);
} // endwhile
document.write ('</select>');
// document.write ('<input type=reset value="Reset Menu">');
document.write ('</form>'); // end menu pulldown form
document.write ('</b></font>'); // close font
document.goform.reset(); // reset form upon loading

} // end FredMenu