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