SetVar $MAX_LENGTH 45

SetVar $I 100
While ($I <= 150)
	SetVar $Starting_Point ($I + 10)
	SetVar $Looking_For $I
	Gosub :GETDISTANCE
	Echo "*" & $Starting_Point & " to " & $Looking_For & " = " & $Distance & " : "
	GetDistance $DIST $Starting_Point $Looking_For
	Echo $DIST & " (TWX GetDistance)"
	Add $i 1
End
Halt


:GETDISTANCE
SetArray $Checked SECTORS
If ($RUNONCE = 0)
	SetArray $QUE sectors
	SetVar $RUNONCE 1
end
SetVar $QUE_BOTTOM 1
SetVar $QUE_TOP 1
SetVar $Distance 1
SetVar $Checked[$Starting_Point] TRUE
SetVar $Sector_Focus $Starting_Point
SetVar $Absolute_PTR 1

If ($MAX_LENGTH = 0) OR ($MAX_LENGTH > 45)
	SetVar $MAX_LENGTH 45
End

If ($Starting_Point < 1) OR ($Starting_Point > SECTORS) OR ($Looking_For < 1) OR ($Looking_For > SECTORS)
	Setvar $Distance "-1"
	Return
End

If ($Starting_Point = $Looking_For)
	Setvar $Distance 0
	Return
End

While ($Distance <= $MAX_LENGTH)
	While ($QUE_BOTTOM <= $QUE_TOP)
		SetVar $ADJ 1
		While (SECTOR.WARPS[$Sector_Focus][$ADJ] <> 0)
			If ($Checked[SECTOR.WARPS[$Sector_Focus][$ADJ]] = FALSE)
				If (SECTOR.WARPS[$Sector_Focus][$ADJ] = $Looking_For)
			 		Return
				End
				SetVar $QUE[$Absolute_PTR] SECTOR.WARPS[$Sector_Focus][$ADJ]
				SetVar $Checked[SECTOR.WARPS[$Sector_Focus][$ADJ]] TRUE
				Add $Absolute_PTR 1
			End
			Add $ADJ 1
		End
		Add $QUE_BOTTOM 1
		SetVar $Sector_Focus $QUE[$QUE_BOTTOM]
	End
	Subtract $QUE_BOTTOM 1
	SetVar $Sector_Focus $QUE[$QUE_BOTTOM]
	SetVar $QUE_TOP ($Absolute_PTR - 1)
	Add $Distance 1
End

SetVar $Distance "-1"
Return