setVar $FROM 1
setVar $TO 100
GetCourse $COURSE $FROM $TO
if ($COURSE = "-1")
  send "^F"&$FROM&"*"&$TO&"**Q"
  waiton ": ENDINTERROG"
  GetCourse $COURSE $FROM $TO
  if ($COURSE = "-1")
     # SEE Note Below (Bottom of this post)
     Echo "**Unable to Plot Course**"
     Halt
  end
end

clearAllAvoids
:begin
getInput $from "Enter From sector"
echo "*From = " $from
getInput $to "Enter To sector"
echo "*To = " $to
gosub :plot
goto :begin

:plot
echo "*From: " $from ", To: " $to "*"
setArray $que SECTORS
setVar $que[1] $from
setVar $path[$from] $from
setVar $distance[$from] 0
setVar $top 1
setVar $bottom 1
while ($bottom <= $top)
   setVar $focus $que[$bottom]
   if ($focus = $to)
      echo $path[$focus] " (Dist=" $distance[$focus] ")"
      return
   end
   setVar $a 1
   while ($a <= SECTOR.WARPCOUNT[$focus])
      setVar $adjacent SECTOR.WARPS[$focus][$a]
      if ($checked[$adjacent] = 0)
         add $top 1
         setVar $que[$top] $adjacent
         setVar $path[$adjacent] $path[$focus] & " > " & $adjacent
         setVar $distance[$adjacent] ($distance[$focus] + 1)
         setVar $checked[$adjacent] 1
      end
      add $a 1
   end
   add $bottom 1
end
echo "*No Path Found"
return