Need help: find the exit of the laberinth code!

Dim NodePathArray(255,255) 
Dim NodeVisArray(255,255)
Dim NodeSearchedArray(255)
Dim BestNodePath(255)
type NodeObject
Field x,y,id
end type

;okay these steps come first:

;calculate the nodes which are 'visible' or 'adjacent' to each other.  I say visible because I am using this system in a game that takes place in an interior environment

;this assumes there are 255 different nodes.  In your system you would replace all instances of '255' with '500'.
;
;so store in the array NodeVisArray(CityN,CityM) a single value which is either 1 or 0, where 1 = adjacent/visible and 0 = not adjacent/not visible.

;then call 'CalcNodePaths'.  This will cause the array 'NodePathArray' to be populated.  At each element it will store the 'next' node to travel to to get from city A to city B.  

;finally store the calculation in a file with WriteNodePathArray("filename.txt")




Function CalcNodePaths()

For Node.NodeObject=Each NodeObject
	For OtherNode.NodeObject=Each NodeObject
		Distance=0
		For i=0 To 255
			NodeSearchedArray(i)=255
			BestNodePath(i)=0
		Next
		LeastDistance=255
		If Handle(node)<>Handle(othernode) Then
		
			If NodeVisArray(Node\ID,OtherNode\ID)=1 Then
			 NodePathArray(Node\ID,OtherNode\ID)=OtherNode\ID 
			Else
		
			NextNodeToDestination(Node.NodeObject,OtherNode.NodeObject,0)
			If LeastDistance<255 Then 
				NodePathArray(Node\ID,OtherNode\ID)=BestNodePath(1)
			EndIf 		
			
			
			EndIf 
		EndIf 
	Next 
Next







End Function

Function NextNodeToDestination(CurrentNode.NodeObject,FinalNode.NodeObject,NodeCount)
NodeSearchedArray(CurrentNode\ID)=NodeCount
If NodeCount>=255 Then Return 255

If Handle(CurrentNode)=Handle(FinalNode) Then Return NodeCount

For OtherNode.NodeObject=Each NodeObject
If Handle(CurrentNode)<>Handle(OtherNode) Then 
	If NodeVisArray(OtherNode\ID,CurrentNode\ID)=1 Then 
		If NodeCount<NodeSearchedArray(OtherNode\ID) Then 
			NodeDist=NextNodeToDestination(OtherNode.NodeObject,FinalNode.NodeObject,NodeCount+1)
			If NodeDist<LeastDistance Then 
				LeastDistance=NodeDist
				BestNodePath(NodeCount)=CurrentNode\ID
				
			EndIf 
		EndIf 		
	Else
	
		
	EndIf 
EndIf 
Next


Return 255
End Function


Function WriteNodePathArray(Filename$)

outfile=WriteFile(filename$)
For i=0 To 255
For j=0 To 255
WriteByte outfile,NodePathArray(i,j) you want to replace this with writeshort outfile,NodePathArray(i,j) because you have 500 cities which is more than 255
Next
Next



CloseFile outfile

End Function