All pastes #113159 Raw Edit

A-L-P-H-A

public text v1 · immutable
·published 2006-08-03 12:10 UTC
rendered paste body
/test {
  var %i = 1
  while (%i <= $chan(0)) {
    window -n $chan(%i)
    inc %i
  }

  %i = 1
  while (%i <= $chan(0)) {

    var %j = 1

    ; restore good windows
    while (%j <= $lines(safe_chans.txt)) {
      var %tempstr = $read(safe_chans.txt, %j)

      if (strip(%tempstr) isin $chan(%i) ) {
        window r $chan(%i)
        echo -a searching for %tempstr in $chan(%i) = PASSED
      }
      else {
        echo -a searching for %tempstr in $chan(%i) = FAILED
      }

      inc %j
    }

    inc %i
  }
}