temp  = '<SCRIPT LANGUAGE="VBScript"\> \n'
temp += '<!--\n'
temp += 'Sub zoomcontrol_FSCommand(ByVal cmd, ByVal arg) \n'
temp += 'call zoomcontrol_DoFSCommand(cmd, arg) \n'
temp += 'end sub \n'
temp += '-->\n'
temp += '</SCRIPT\> \n'
document.write(temp);
var InternetExplorer = navigator.appName.indexOf("Microsoft") != -1;
var ZoomCounter=0;

// Handle all the the FSCommand messages in a FutureSplash movie
function zoomcontrol_DoFSCommand(command, args) {
 	var moviesampleObj = InternetExplorer ? moviesample : document.moviesample;
	var xmove=0, ymove=0;

// ZoomIn on movie and increase ZoomCounter by 1
	if (command=="ZoomIn"){
		moviesampleObj.Zoom(50);
		ZoomCounter=ZoomCounter+1;
	}

// Unless ZoomCount is 0 (100% view), Zoom out on movie
	if ((command=="ZoomOut") && (ZoomCounter!=0)){
		moviesampleObj.Zoom(200);
		ZoomCounter=ZoomCounter-1;
	}

// Handle Panning commands and determine increments for x and y axes
	if (command=="Pan" && ZoomCounter>0){
		if (args=="up" || args=="down"){
			xmove=2;
			if (args=="up"){
				xmove=-2;
			}
			ymove=0;
		}
		if (args=="left" || args=="right"){
			ymove=2;
			if (args=="left"){
				ymove=-2;
			}
			xmove=0;
		}
		moviesampleObj.Pan(ymove,xmove,1);
	}
}