Function getDirection(x, y)
	Local d1, d2, d3, d4
	
	d1=getDataField(x-1,y-1)
	d2=getDataField(x,y-1)
	d3=getDataField(x-1,y)
	d4=getDataField(x,y)
	
	Local sum=d1+d2+d3+d4
	
	Local N=1 ; NORTH
	Local E=2 ; EAST
	Local S=3 ; SOUTH
	Local W=4 ; WEST
	
	Select sum
		Case 0
			Return E
		Case 1
			If d2
				Return E
			ElseIf d4
				Return S
			ElseIf d1
				Return N
			ElseIf d3
				Return W
			EndIf
		Case 2
			If d2 And d4
				Return S
			ElseIf d1 And d2
				Return E
			ElseIf d1 And d3
				Return N
			ElseIf d3 And d4
				Return W
			ElseIf d1 And d4
				Return N
			ElseIf d2 And d4
				Return W
			EndIf
		Case 3
			If Not d2
				Return N
			ElseIf Not d1
				Return W
			ElseIf Not d3
				Return S
			ElseIf Not d4
				Return E
			EndIf
		Default
			Return -1
	End Select
End Function

	Repeat
		iter=iter+1
		If iter>maxIter
			;Dies hier ist ein Problem!
			Return newPath(initialX, initialY, directions)
		EndIf
		
		Select getDirection(X, Y)
			Case 1
				dir=newDirection(North)
			Case 2
				dir=newDirection(East)
			Case 3
				dir=newDirection(South)
			Case 4
				dir=newDirection(West)
			Default
				Return Null
		End Select
		
		X=X+dir\dirX
		Y=Y+dir\dirY
		
		previous\succ=dir
		previous=dir
	Until X=initialX And Y=initialY