// This package requires that an image and description list be set up
// This function changes the slide and description

	function Change_Slide(){ 
		var		Index			= Slide - 1;

		if (!Slide_Count) return;

		document.Slide_Image.src= Slide_Dir + "spacer.gif";

		Height= Photos[Index].height;
		if ((Width= Photos[Index].width) > 350) {
			Width= 350;
			Height= (Photos[Index].height * 350) / Photos[Index].width;
			}
		if (Height > 250) {
			Height= 250;
			Width= (Photos[Index].width * 250) / Photos[Index].height;
			}

		document.Slide_Image.width= Width;
		document.Slide_Image.height= Height;
		document.Slide_Image.src= Photos[Slide - 1].src;

		if (document.all || document.getElementById) {
			Element= document.getElementById ? 
				 document.getElementById("Caption_Text") : document.all.Caption_Text;
			Element.innerHTML= Slide + ' of ' + Slide_Count;
			Element= document.getElementById ? 
				 document.getElementById("Description_Text") : document.all.Description_Text;
			Element.innerHTML= Slide_Text[Slide - 1];
			Element= document.getElementById ? 
				 document.getElementById("Author_Text") : document.all.Author_Text;
			Element.innerHTML= 'photo by ' + Slide_Author[Slide - 1] + ' ';
			}
		else if (document.layers) {
			document.Caption.document.write('<div ID="Caption_Text" style="width:80" align="center"><font>');
			document.Caption.document.write(Slide + ' of ' + Slide_Count);
			document.Caption.document.write('</div>');
			document.Description.document.write('<div ID="Description_Text" style="width:360;height=48" align="center"><font>');
			document.Description.document.write(Slide_Text[Slide - 1]);
			document.Description.document.write('</div>');
			document.Author.document.write('<div ID="Author_Text" style="width:350;height=12" align="right"><font><i>');
			document.Author.document.write('photo by ' + Slide_Author[Slide - 1] + '&nbsp;');
			document.Author.document.write('</i></font></div>');
			}
		}

// These functions alter the slides

	function First_Slide() {
		Slide= 1;
		Change_Slide();
		}

	function Previous_Slide() {
		Slide--;
		if (Slide < 1) {
			Slide= 1;
			}
	  Change_Slide();
		}

	function Next_Slide() {
		Slide++;
		if (Slide > Slide_Count) {
			Slide= Slide_Count;
			}
		Change_Slide();
		}

	function Last_Slide() {
		Slide= Slide_Count;
		Change_Slide();
		}


	function Load_Slides() {
		for (I= 1; I < Slide_Count; I++) {
			Photos[I]= new Image();
			Photos[I].src= Slide_Dir + Slide_List[I];
			}

		Slide= 1;
		Change_Slide();
		}