#!/local/bin/perl
#To: dank@alumni.caltech.edu
#Date: Tue, 06 Sep 1994 13:28:19 +0200
#From: "Harald T. Alvestrand" <Harald.T.Alvestrand@uninett.no>
#For adding page feeds to CAPI 1.1 ascii doc
while (<>) {
   if (/^\s+COMMON-ISDN-API\n$/ && $count > 30) {
      ++ $pageno;
      print STDERR "$count lines on page $pageno\n";
      print "\f";
      $skipping = 1;
      $count = 0;
   } elsif ($count == 65) {
      ++ $pageno;
      print "\f";
      print STDERR "$count lines on page $pageno (forced)\n";
      $skipping = 1;
      $count = 0;
   }
   if (!$skipping) {
      ++ $count;
      print;
   } elsif (! /^$/) {
      $skipping = 0;
      print;
   }
}