/* Created by Guardian */

CALL ZocTimeout 3600

SAY ""
SAY ""
SAY "Ether Script "
SAY "Remember this script Stops everytime it hits a fig"
SAY ""
SAY " Enter Starting Sector "
pull sector
say " Enter Ending Sector"
pull cycles
say ""

CALL STREAM "ETHER.TXT", "C", "OPEN WRITE"
call stream "deadend.txt", "c", "open read"

call zocsend "#"
call zocsend "e"
call zocsend sector
call zocsend "^M"

Do cycles

result=ZocWaitMux("Probe Self Destructs", "Probe Destroyed!")
SELECT        
	WHEN result=0 then x=1
	WHEN result=1 then x=2
      
end
if x=1 then DO
	call zocsend "#"
        sector=sector +1
        call zocsend "e"
result=ZocWaitMux("You do not have any Ether Probes.","Ether Probe loaded")
SELECT        
	WHEN result=0 then y=1
	WHEN result=1 then y=2
      
end
        if y=1 then do
        call zocsend "pshe25^Mqq"
        call zocsend "e"
        call zocsend sector
        call zocsend "^M"
        end
        if y=2 then do
        call zocsend sector
        call zocsend "^M"
        end
end
if x=2 then DO
       
    CALL LINEOUT "ETHER.TXT", sector
        call zocsend "#"
        sector=sector +1
        call zocsend "e"
        result=ZocWaitMux("You do not have any Ether Probes.","Ether Probe loaded")
SELECT        
	WHEN result=0 then y=1
	WHEN result=1 then y=2
      
end
        if y=1 then do
        call zocsend "pshe25^Mqq"
        call zocsend "e"
        call zocsend sector
        call zocsend "^M"
        end
        if y=2 then do
        call zocsend sector
        call zocsend "^M"
        end
end


CALL STREAM "ETHER.TXT", "C", "CLOSE"
call stream "deadend.txt","c", "close"
end