Forums Scripts & Popups Removing wunwanted lines from a custom window

alias getl {
  var %e = $line(@test,0)
  var %i = 0
  while (%i < %e) {
    /inc %i
    if ($left($gettok($line(@test,%i),1,32),1) != $chr(33) ) {
      /var %lines = $addtok(%lines,%i,32)
    }
  }
  var %e = $gettok(%lines,0,32)
  while (%e != 0) {
    dline @test $gettok(%lines,%e,32)
    /dec %e
  }
}