SetVar $Starting_Point 1
SetVar $Looking_For 100
SetArray $Checked SECTORS
SetVar $Warps 55000
SetArray $QUE $warps
SetVar $MAX_LENGTH 45
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
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)
					Echo ANSI_7 & "***" & ANSI_7 & "Distance from " & ANSI_14 & $Starting_Point & ANSI_7 & " to "
					Echo ANSI_14 & $Looking_For & ANSI_7 & " is " & ANSI_14 & $Distance & ANSI_7 & " hops."
					GetDistance $Dist 1 $Looking_For
					Echo ANSI_7 & "*getDistance Result: " & ANSI_14 & $Dist "**"
					Halt
				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
	Add $Distance 1
End