/* Up1Level.js */
/* copyright © 2005 by James E. Pettis */
<!--
function UpOneLevel()
	{
	FileName = GetUpOne();
	location = FileName;
	}	// end function UpOneLevel
	
function GetUpOne()
	{
	UrlString = document.URL;
	FileName = GetFileName(UrlString);
	if (IsDigit(FileName.charAt(1)) == true)
			UpOneFileName = FileName.charAt(0) + GetUpOneB(FileName.charAt(1));
		else
			UpOneFileName = GetUpOneA(FileName.charAt(0));
		// end if
	return UpOneFileName;
	}	// end function GetUpOne(UrlString)

function GetFileName(UrlString)
	{
	Character = -1;
	while (++Character < UrlString.length)
		{
		if ((UrlString.charAt(Character) == '/') || (UrlString.charAt(Character) == '\\'))
			LastSlash = Character;
		}	// end while
	FileName = UrlString.slice((LastSlash + 1));
	return FileName;
	}	// end function GetFileName(UrlString)
	
function GetUpOneA(Digit)
	{
	switch (Digit)
		{
		case '1':
			FileName = "progall.htm";
			break;
		case '2':
			FileName = "proglang.htm";
			break;
		case '3':
			FileName = "progos.htm";
			break;
		case '4':
			FileName = "progsys.htm";
			break;
		case '5':
			FileName = "progperi.htm";
			break;
		case '6':
			FileName = "workexp.htm";
			break;
		case '7':
			FileName = "stlukes.htm";
			break;
		}	// end switch
	return FileName;
	}	// end function GetUpOneA(Digit)
	
function GetUpOneB(Digit)
	{
	switch (Digit)
		{
		case '0':
			FileName = "c.htm";
			break;
		case '1':
			FileName = "intel.htm";
			break;
		case '2':
			FileName = "html.htm";
			break;
		case '3':
			FileName = "css2.htm";
			break;
		case '4':
			FileName = "opal.htm";
			break;
		case '5':
			FileName = "dos.htm";
			break;
		case '6':
			FileName = "window.htm";
			break;
		case '7':
			FileName = "pc.htm";
			break;
		case '8':
			FileName = "ega.htm";
			break;
		case '9':
			FileName = "daq.htm";
			break;
		}	// end switch
	return FileName;
	}	// end function GetUpOneA(Digit)
	
function IsDigit(Character)
	{
	if ((Character >= '0') && (Character <= '9'))
			Result = true;
		else
			Result = false;
		// end if
	return Result;
	}	// end function IsDigit

// -->
