# blocked ports
delete gameName & "blockedPort.txt"
setArray $ports SECTORS
setVar $i 11
setVar $pass 1
:begin
  send "^rq"
  setTextTrigger done :done ": ENDINTERROG"
  setTextLineTrigger port :port "%"
   pause
  :getPorts

     :port
     setTextLineTrigger port :port "%"
     getword currentline $portNum 1
       setVar $ports[$portNum] $portNum
     pause
     :done
     killtrigger port
  while ($i <= SECTORS)
    if (port.exists[$i])
       if ($ports[$i] = 0)
       # below is just to set for certain warps out - add to line above
       # and (sector.warpcount[$i] = 1)
          getsector $i $chkSector
          # ignore alien space
          getwordpos $chkSector.Constellation $pos "Space"
          if ($pos = 0)
             write gameName & "blockedPort.txt" $i
          end
       end
    end
    add $i 1
  end