# int mode 1 to dock

# send "v"
# setTextLineTrigger sdSector :sdSector "The StarDock is located in sector"
# pause
# :sdSector
#getword currentline $sd 7

getWord currentline $prompt 1
if ($prompt <> "Command")
   echo ANSI_12 "** You must be at the command prompt"
   halt
end
getText currentline $cs "]:[" "] (?="

setVar $line ""

send "^f" $cs "*" STARDOCK "*q"
waitfor "TO > " & STARDOCK
:getPath
  setTextLineTrigger line :line ""
  pause
  :line
    getwordpos CURRENTLINE $pos ": ENDINTERROG"
    if ($pos > 0)
       goto :lineDone
    end
    setVar $line $line & CURRENTLINE
    setTextLineTrigger line :line ""
    pause
  :lineDone
   stripText $line ">"
   stripText $line "("
   stripText $line ")"

:mover
   setVar $moveIt ""
   getword $line $moveTo 2
   setVar $linePos 2
   while ($moveTo <> 0)
     if ($moveTo > 10) and ($moveTo <> STARDOCK)
        setVar $moveIt $moveIt & "m " & $moveTo & "*  az9999*  *  "
     else
       setVar $moveIt $moveIt & "m " & $moveTo & "*  "
     end
     add $linePos 1
     getword $line $moveTo $linePos
   end
   send $moveit & "  p s g y g q"