setvar $corpies ""
    setvar $line ""
    setvar $var 0
    send "/x aq "
    :quickstats
        settextlinetrigger qs_line1 :qs_line #179
        settextlinetrigger qs_line2 :qs_line "Ship "
        pause
        :qs_line
            killtrigger qs_line1
            killtrigger qs_line2
            setvar $line $line & CURRENTLINE
            getwordpos $line $pos "Ship"
            if ($pos = 0)
                goto :quickstats
            end
            replacetext $line #179 " "
            striptext $line ","
            while ($var < 6)
                replacetext $line "  " " "
                add $var 1
            end
        gettext $line $exp "Exp " " Corp"
        if ($exp = "")
            gettext $line $exp "Exp " " Ship"
            setvar $corp 0
        else
            gettext $line $corp "Corp " " Ship"
        end
    waitfor "------------------------------------------------------------------------------"
    :corp_list
        settextlinetrigger corp_member :corp_member
        pause
    :corp_member
        setvar $line currentline
        if ($line = "") or ($line = "P indicates Trader is on a planet in that sector")
            pause
        end
        cuttext $line $corpie 1 38
        striptext $corpie " "
        setvar $corpies $corpie & " " & $corpies
        goto :corp_list
    :set_corpie_array

:getCorpies
   setVar $corpyCount 0
        send "* "
   waitFor "(?="
   getWord CURRENTLINE $location 1
   if ($location = "Citadel") or ($location = "Command")
      goto :grabCorpies
   else
      halt
   end
:grabCorpies
   if ($location = "Citadel")
      send "xaq"
   elseif ($location = "Command")
      send "taq"
   end
   WaitFor "--------------------------"
:parseCorpies
   setTextLineTrigger corpies :corpies ""
   pause
:corpies
   getWord CURRENTLINE $corpy_prompt_ck 1
   if ($corpy_prompt_ck = "Corporate") or ($corpy_prompt_ck = 0) or ($corpy_prompt_ck = "P")
      goto :doneWithCorpies
   end
   add $corpyCount 1
   cutText CURRENTLINE $corpy[$corpyCount] 1 39
   setVar $pos 38
:stripCorpies
   cutText $corpy[$corpycount] $blank_ck $pos 1
   if ($blank_ck = " ")
      cutText $corpy[$corpyCount] $corpy[$corpyCount] 1 $pos
      subtract $pos 1
      goto :stripCorpies
   else
      cutText $corpy[$corpyCount] $corpy[$corpyCount] 1 $pos
      saveVar $corpy[$corpycount]
      saveVar $corpyCount
      goto :parseCorpies
   end

:doneWithCorpies
   return

# Get corpie list
setVar $corpie_idx 0
send "xaq"
waitFor "Corporate command [TL="
waitFor "--------------------------------------"
killtrigger corpie_catcher
setTextLineTrigger corpie_catcher :catch_corpie ""
pause

:catch_corpie
killtrigger corpie_catcher
getWordPos CURRENTLINE $test1 "indicates Trader is on a planet in that sector"
getWordPos CURRENTLINE $test2 "Corporate command"
if ($test1 > 0) OR ($test2 > 0)
     goto :got_corpies
end
getLength CURRENTLINE $size_test
if ($size_test <= 40)
     goto :got_corpies
end
cutText CURRENTLINE $corpiename 1 6
add $corpie_idx 1
setVar $corpies[$corpie_idx] $corpiename
setTextLineTrigger corpie_catcher :catch_corpie ""
pause

:got_corpies
setVar $corpie_max $corpie_idx

send "x aq "
    setvar $pos 0
    waitfor "Corp Member Name"
    waitfor "------------------------------------------------------------------------------"
    :corp_list
        settextlinetrigger corp_member :corp_member
        pause
    :corp_member
        setvar $line currentline
        if ($line = "") or ($line = "P indicates Trader is on a planet in that sector")
            goto :planet
        end
        cuttext $line $corpie 1 38
        setvar $i 37
        cuttext $corpie $check $i 1
        while ($check = " ")
            subtract $i 1
            cuttext $corpie $check $i 1
        end
        cuttext $corpie $corpie 1 $i
        add $pos 1
        setvar $corpie[$pos] $corpie
        goto :corp_list