$article=$formdata{'article'};
$page=$formdata{'page'};
$maxlength=43;
$start=($page-1)*$maxlength;
$finish=$page*$maxlength;
$next=$page+1;
$previous=$page-1;
&main;

sub main{
print "Content-type: text/html\n\n";
$file="$basedir$article\.txt";


open(READ, "$file");
@info=<READ>;
close(READ);

@info=grep(!/^ +$/, @info);

$length=@info;


for($i=$start;$i<$finish;$i++){ 
          print"$info[$i]\n";
            }
  if (($length>$finish)&&($page>1)){

print"<table border=0><tr><td align=left>&nbsp&nbsp<font color=yellow><-
</font>&nbsp<a href=\"http://www.mysite.net/cgi-bin/article.cgi?article=
$article&amp;page=$previous\">Continue to the previous page</a></td><td 
width=200></td><td align=right><a href=\"http://www.mysite.net/cgi-
bin/article.cgi?article=$article&amp;page=$next\">Continue to the next 
page</a>&nbsp<font color=yellow>--></font>&nbsp&nbsp</td></tr></table>\n";

}elsif(($length>$finish)&&($page==1)){

print"<table border=0><tr><td align=right><a href=\"http://www.mysite.net/cgi-
bin/article.cgi?article=$article&amp;page=$next\">Continue to the next 
page</a>&nbsp<font color=yellow>--></font>&nbsp&nbsp</td></tr></table>\n";
}   
     

}