Help for this page

Select Code to Download

Select or download this

 if(++$line > $LINEMAX) {
     $line=0;
     getc;
}

Select or download this

sub print2 {
 if(++$line > $LINEMAX) {
...
 }
 print @_;
}