%%% From aaron@ATHENA.MIT.EDU Sun May  1 15:19:18 1988
%%% From: <aaron@ATHENA.MIT.EDU>
%%% Date: Sun, 1 May 88 14:44:21 EDT
%%% To: eichin@ATHENA.MIT.EDU
%%% Subject: [TAJ%HGRRUG5.BITNET@MITVMA.MIT.EDU: ]
%%% 
%%% Date:     Sat, 30 Apr 88 15:08 N
%%% From: <TAJ%HGRRUG5.BITNET@MITVMA.MIT.EDU>
%%% Subject: 
%%% To: aaron@ATHENA.MIT.EDU
%%% X-Original-To:  aaron@athena.mit.edu, TAJ
%%% 
% supertabular sty
% Theo Jurriens 1988
% TAJ@hgrrug5        P.O Box 800, 9700 AV Groningen
%
\def\@tablehead{\ }
\def\tablehead#1{\gdef\@tablehead{#1}}
\def\@tabletail{\ }
\def\tabletail#1{\gdef\@tabletail{#1}}
\newcount\numline  %
\newcount\maxline %
%
\def\calmaxline{\global\maxline=\textheight
\global\divide\maxline by \baselineskip
\global\multiply\maxline by 9
\global\divide\maxline by 10
}
\def\calnumline{\global\numline=\pagetotal
\global\divide\numline by \baselineskip
}
% 10 % of page is for tableheader
%
\newenvironment{supertabular}[1]{  %
\edef\tableformat{\string#1} %
\calnumline       %
\calmaxline
\begin{tabular}{\tableformat}\@tablehead}{\@tabletail \end{tabular}}%
%
%
\def\nextline{\global\advance\numline by 1 \\
\ifnum\numline=\maxline
        \@tabletail   %
        \end{tabular}%
        \clearpage   %
        \begin{tabular}{\tableformat}%
        \@tablehead %
        \global\numline=0 %
\fi}%
