[color:red]
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) ) {
[color:blue] /var %lines = $addtok(%lines,%i,32)[/color]
}
}
var %e = $gettok(%lines,0,32)
while (%e != 0) {
dline @test $gettok(%lines,%e,32)
/dec %e
}
}
[/color]