sub HideAll()
		msg1.style.visibility = "hidden"
		msg2.style.visibility = "hidden"
		msg3.style.visibility = "hidden"
end sub


sub showMsg1()
	IF  msg1.style.visibility = "hidden" THEN
	     msg1.style.visibility = "visible"
		msg2.style.visibility = "hidden"
		msg3.style.visibility = "hidden"
	ELSE
		hideAll()
	END IF
end sub

sub showMsg2()
	IF msg2.style.visibility = "hidden" THEN
	     msg1.style.visibility = "hidden"
		msg2.style.visibility = "visible"
		msg3.style.visibility = "hidden"
	ELSE
		hideAll()
	END IF
end sub

sub showMsg3()
	IF msg3.style.visibility = "hidden" THEN
	     msg1.style.visibility = "hidden"
		msg2.style.visibility = "hidden"
		msg3.style.visibility = "visible"
	ELSE
		hideAll()
	END IF
end sub