Forums Scripts & Popups Removing wunwanted lines from a custom window

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