1129210Scognetsub wc {
2129210Scognet  my $words;
3129210Scognet  $i = $VI::StartLine;
4129210Scognet  while ($i <= $VI::StopLine) {
5129210Scognet    $_ = $curscr->GetLine($i++);
6129210Scognet    $words+=split;
7129210Scognet  }
8129210Scognet  $curscr->Msg("$words words");
9129210Scognet}
10129210Scognet
11129210Scognet1;
12129210Scognet