/* REXX (CREATED BY ZOC LEARN MODE) */

CALL ZocTimeout 3600

SAY ""
SAY ""
SAY "What Sector do you want to steal at after stealing in this one? "
PULL SECTOR2

call zocsend "^M"
call zocwait "]:["
sector1=GETITALL(0,0)


call zocsend "^M"
DO 10000

result= ZocWaitMux("(BBS)", "(BSB)", "(SBB)", "(SSB)", "(SBS)", "(BSS)", "(SSS)", "(BBB)")
SELECT
        WHEN result=0 THEN x="1"
        WHEN result=1 THEN x="1"
        WHEN result=2 THEN x="1"
        WHEN result=3 THEN x="2"
        WHEN result=4 THEN x="2"
        WHEN result=5 THEN x="2"
        WHEN result=6 THEN x="3"
        WHEN result=7 THEN x="0"
end

CALL ZocSend "pt"
if x=0 then do
        CALL ZOCSEND "^M^M"
        end
if x=1 then do
        CALL ZOCSEND "^M^M0^M"
        end
if x=2 then do
        CALL ZOCSEND "^M^M0^M0^M"
        end

call zocsend "pr^Ms3^M"
result = zocwaitmux("Success!","Suddenly you're Bust","aren't that many holds")
select
WHEN result=0 then bust=0
when result=1 then bust=1
when result=2 then bust=2
end
if bust=1 then exit
if bust=2 then do
	zocsend "o31^Mq"
	call zocwait "]:["
	call zocsend "pr"
	call zocsend "^M"
	call zocsend "s3"
	call zocsend holdz
	call zocsend "^M"
	result = zocwaitmux("Success!","Suddenly you're Bust")
	select
	WHEN result=0 then bust=0
	when result=1 then bust=1
	end
	if bust=1 then exit
	end

call zocsend sector2
call zocsend "^M"



result= ZocWaitMux("(BBS)", "(BSB)", "(SBB)", "(SSB)", "(SBS)", "(BSS)", "(SSS)", "(BBB)")
SELECT
        WHEN result=0 THEN x="1"
        WHEN result=1 THEN x="1"
        WHEN result=2 THEN x="1"
        WHEN result=3 THEN x="2"
        WHEN result=4 THEN x="2"
        WHEN result=5 THEN x="2"
        WHEN result=6 THEN x="3"
        WHEN result=7 THEN x="0"
end

CALL ZocSend "pt"
if x=0 then do
        CALL ZOCSEND "^M^M"
        end
if x=1 then do
        CALL ZOCSEND "^M^M0^M"
        end
if x=2 then do
        CALL ZOCSEND "^M^M0^M0^M"
        end

call zocsend "pr^Ms3^M"

result = zocwaitmux("Success!","Suddenly you're Bust","aren't that many holds")
select
WHEN result=0 then bust=0
when result=1 then bust=1
when result=2 then bust=2
end
if bust=1 then exit
if bust=2 then do
	zocsend "o31^Mq"
	call zocwait "]:["
	call zocsend "pr"
	call zocsend "^M"
	call zocsend "s3"
	call zocsend holdz
	call zocsend "^M"
	result = zocwaitmux("Success!","Suddenly you're Bust")
	select
	WHEN result=0 then bust=0
	when result=1 then bust=1
	end
	if bust=1 then exit
	end

call zocsend sector1
call zocsend "^M"


END

exit





GETITALL:
holdfinal=""
call zocwait "]"
holds=zoclastline()
DO addchar=1 to length(holds)
        holdsit=substr(holds,addchar,1)
        if holdsit<>"]" then DO
          if holdsit<>"," then holdfinal=holdfinal||holdsit
        end
END
RETURN holdfinal
                                                          



STEAL:
holdz=arg(1)
call zocsend "pr"
call zocsend "^M"
call zocsend "s3"
call zocsend holdz
call zocsend "^M"
result = zocwaitmux("Success!","Suddenly you're Bust","aren't that many holds")
select
WHEN result=0 then bust=0
when result=1 then bust=1
when result=2 then bust=2
end
if bust=1 then exit
if bust=2 then do
	zocsend "o31^Mq"
	call zocwait "]:["
	call zocsend "pr"
	call zocsend "^M"
	call zocsend "s3"
	call zocsend holdz
	call zocsend "^M"
	result = zocwaitmux("Success!","Suddenly you're Bust")
	select
	WHEN result=0 then bust=0
	when result=1 then bust=1
	end
	if bust=1 then exit
	end
RETURN(0)