If #XPOS=4
	SetUserFlag(0,30,1)	
	If GetUserFlag(1,30)>0
		Goto SquareSelect
	Endif
Endif
If #XPOS=6
	SetUserFlag(0,30,2)
	If GetUserFlag(1,30)>0
		Goto SquareSelect
	Endif
Endif
If #XPOS=8
	SetUserFlag(0,30,3)
	If GetUserFlag(1,30)>0
		Goto SquareSelect
	Endif
Endif

If #YPOS=12
	SetUserFlag(1,30,1)
	If GetUserFlag(0,30)>0
		Goto SquareSelect
	Endif
Endif
If #YPOS=10
	SetUserFlag(1,30,2)
	If GetUserFlag(0,30)>0
		Goto SquareSelect
	Endif
Endif
If #YPOS=8
	SetUserFlag(1,30,3)
	If GetUserFlag(0,30)>0
		Goto SquareSelect
	Endif
Endif

Goto End

Label SquareSelect

If GetUserFlag(0,30)=1
	If GetUserFlag(1,30)=1
		If GetUserFlag(2,30)=1
			SetUserFlag(2,30,0)
		Else
			OpenDoor(715,4,12)
			SetUserFlag(2,30,1)
		Endif
	Endif
	If GetUserFlag(1,30)=2
		If GetUserFlag(3,30)=1
			SetUserFlag(3,30,0)
		Else
			OpenDoor(715,4,10)
			SetUserFlag(3,30,1)
		Endif
	Endif
	If GetUserFlag(1,30)=3
		If GetUserFlag(4,30)=1
			SetUserFlag(4,30,0)
		Else
			OpenDoor(715,4,8)
			SetUserFlag(4,30,1)
		Endif
	Endif
Endif

If GetUserFlag(0,30)=2
	If GetUserFlag(1,30)=1
		If GetUserFlag(5,30)=1
			SetUserFlag(5,30,0)
		Else
			OpenDoor(715,6,12)
			SetUserFlag(5,30,1)
		Endif
	Endif
	If GetUserFlag(1,30)=2
		If GetUserFlag(6,30)=1
			SetUserFlag(6,30,0)
		Else
			OpenDoor(715,6,10)
			SetUserFlag(6,30,1)
		Endif
	Endif
	If GetUserFlag(1,30)=3
		If GetUserFlag(7,30)=1
			SetUserFlag(7,30,0)
		Else
			OpenDoor(715,6,8)
			SetUserFlag(7,30,1)
		Endif
	Endif
Endif

If GetUserFlag(0,30)=3
	If GetUserFlag(1,30)=1
		If GetUserFlag(8,30)=1
			SetUserFlag(8,30,0)
		Else
			OpenDoor(715,8,12)
			SetUserFlag(8,30,1)
		Endif
	Endif
	If GetUserFlag(1,30)=2
		If GetUserFlag(9,30)=1
			SetUserFlag(9,30,0)
		Else
			OpenDoor(715,8,10)
			SetUserFlag(9,30,1)
		Endif
	Endif
	If GetUserFlag(1,30)=3
		If GetUserFlag(10,30)=1
			SetUserFlag(10,30,0)
		Else
			OpenDoor(715,8,8)
			SetUserFlag(10,30,1)
		Endif
	Endif
Endif

SetUserFlag(0,30,0)
SetUserFlag(1,30,0)

If GetUserFlag(11,30)=0
	SetUserFlag(11,30,100)
	Timer(426,0,0,0,0)
	Goto End
Endif

SetUserFlag(11,30,100)

Label End
Continue = 1