1sub forall { 2 my ($code) = shift; 3 my ($i) = $VI::StartLine-1; 4 while (++$i <= $VI::StopLine) { 5 $_ = $curscr->GetLine($i); 6 VI::SetLine($VI::ScreenId, $i, $_) if(&$code); 7 } 8} 9 101; 11