confirmed=confirm("Copyright A.Field.\n\nCentralise the SLM eyepieces, then\nstart with your mouse at the bottom of the CCTV screen.\n\nUse the mouse like the joystick of the slit lamp.\n\nPlease wait for all the images to load.")
	if(confirmed==false){this.window.close()}



		var counter=0
		var left=false
		var right=false
		var picX=736
		var picY=368
		var startX=-100
		var startY=-100
		var whichWay=0
		var mouseX=0
		var mouseY=0
		var there=true

		if (document.all) {
			docObj = "document.all."
			styleObj = ".style"
		}
		else {
			docObj = "document."
			styleObj = ""
		}

		if (document.getElementById){
		docObj = "document.getElementById('"
		styleObj = "').style"
		}

		volkImage=new Image
		volkImage.src="sim2grading.jpg"
		volkImage2=new Image
		volkImage2.src="simslit.gif"
		volkFrame1=new Image
		volkFrame1.src="simframe1.gif"
		volkText=new Object
		volkWide=new Object
		volkNarrow=new Object

		function resizeIt(){
			volkImage.left=(mouseY-50)*4-mouseX-550
			volkImage.top=2*mouseY-400
			volkImage.width=1600-(mouseY-50)*8
			volkImage.height=1600-(mouseY-50)*8
		}

		function moveIt(evt)
			{
			if(document.all){mouseX=parseInt(evt.x)}else{mouseX=parseInt(evt.pageX)}
			if(document.all){mouseY=parseInt(evt.y)}else{mouseY=parseInt(evt.pageY)}
			if(mouseX>parent.mouseXmemory){parent.document.post.src=parent.adImages[2]} //joystick
			if(mouseX<parent.mouseXmemory){parent.document.post.src=parent.adImages[1]} //joystick
			if(mouseX==parent.mouseXmemory){parent.document.post.src=parent.adImages[0]} //joystick
			parent.mouseXmemory=mouseX
			if(mouseY<231 && mouseY>19 && mouseX>25 && mouseX<231){document.frame1.src=adImages[4]}else{document.frame1.src=adImages[3]} // Frame or CCTV
			if(mouseX<80 && mouseY<172){volkWide.visibility="visible"}else{volkWide.visibility="hidden"}
			if(mouseX>170 && mouseY<172){volkNarrow.visibility="visible"}else{volkNarrow.visibility="hidden"}
			if(mouseY>200){mouseY=200}
			resizeIt()
		}

		function setup(){
			volkImage = eval(docObj + "gonio1" + styleObj)
			volkImage2 = eval(docObj + "gonio2" + styleObj)
			volkText = eval(docObj + "simtext" + styleObj)
			volkWide = eval(docObj + "sim2wide" + styleObj)
			volkNarrow = eval(docObj + "sim2narrow" + styleObj)
			volkFrame1 = eval(docObj + "slm0" + styleObj)
			volkImage.zIndex="4"
			volkImage.src=adImages[6]
			volkImage2.zIndex="5"
			volkText.zIndex="8"
			volkImage.visibility="visible"
			volkImage2.visibility="visible"
			volkImage2.top=130
			volkImage2.left=120
			volkFrame1.visibility="visible"
			document.start1.src="sim2grading.jpg"
			resizeIt()
		}