sub Peyktest()
	key=window.event.keyCode
	if key = 145 then
		if (mode=1) then
			mode=0
		elseif (mode=0) then
			mode=1
		end if
	end if
end sub