/* Aggressive Ether Script Version 2.5 */
/* Added Ability to write sectors that were not reached onto a file */
/* Written by Guardian */
/* December 2000 - Public Use */

CALL ZocTimeout 3600

SAY ""
SAY ""
SAY "Ether Script Deadend Search"
SAY "This script will read a file ( deadend. txt )"
SAY "and eprobe all sectors on that file ... set file in zoc directory with "
SAY "All deadends listed up and down "
SAY "It will then write down all the deadends it couldn't reach"
SAY ""
say " Press Enter or Anything and it will continue till file is empty"
pull cycles
say ""

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

esector = linein(deadend.txt)
call zocsend "#"
call zocsend "e"
call zocsend esector
call zocsend "^M"

Do forever

result=ZocWaitMux("Probe entering sector :", "Probe Destroyed!", "Probe Self Destructs")
   select
        when result=0 then z=1
        when result=1 then z=2
        when result=2 then z=3
       end

/* ------------------------------------------------------- */
  if z=1 then do
    ZocWait"^M"
  tempsector =ZocLastLine()
end

/* ------------------------------------------------------- */

   if z=2 then do
      call zocsend "cv"
      call zocsend tempsector
      call zocsend "^Mq"
       if tempsector=esector then do
        CALL lineout"ETHER.TXT", esector
        esector = linein(deadend.txt)
        end
      tempsector=""
      call zocsend "e"
    
      result=ZocWaitMux("You do not have any Ether Probes.","Ether Probe loaded")
SELECT        
	WHEN result=0 then w=1
	WHEN result=1 then w=2
       end

        if w=1 then do
        call zocsend "pshe25^Mqq"
        call zocsend esector
        call zocsend "^M"
       end

        if w=2 then do
        call zocsend esector
        call zocsend "^M"
       end
end

/* ------------------------------------------------------- */


if z=3 then do
        if esector<>tempsector then do
         CALL lineout"ETHER.TXT", esector
         end
        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"
        esector = linein(deadend.txt)
        call zocsend "e"
        call zocsend esector
        call zocsend "^M"
       end

        if y=2 then do
        esector = linein(deadend.txt)
        call zocsend esector
        call zocsend "^M"
       end
end


CALL STREAM "ETHER.TXT", "C", "CLOSE"

end