% Use the full page
%
\oddsidemargin 18pt
\evensidemargin 18pt
\topmargin 0pt
\textheight 595pt
\textwidth 432pt

% Topheading supplies left and right flushed headings for the
%   lrheading command.
%
\def\topheadings#1#2{\def\@toplefthead{#1}\def\@toprighthead{#2}}

% Page style: lrheadings
%  put text suplied by the topheadings command in the left and
%  right corners of the topheading.
%
\def\ps@lrheadings{%
\def\@oddhead{\hbox{}\sl\@toplefthead\hfil\sl\@toprighthead}%
\def\@evenhead{\sl\@toplefthead\hfil\sl\@toprighthead\hbox{}}%
\def\@oddfoot{\hbox{}\hfil\rm\thepage\hfil}%
\def\@evenfoot{\hbox{}\hfil\rm\thepage\hfil}}

% Page style: footpagenumber
%  put nothing in header and center the page number in the footer.
%
\def\ps@footpagenumber{%
\def\@oddhead{}\def\@evenhead{}%
\def\@oddfoot{\hbox{}\hfil\rm\thepage\hfil}%
\def\@evenfoot{\hbox{}\hfil\rm\thepage\hfil}}

% \skipline leaves a blank line realitive to the size of the current
%   font.
%
\def\skipline{\vskip 2em}

% stuff to change the format of figures
%
\def\@float#1{\@ifnextchar[{\@xfloat{#1}}{\edef\@tempa{\noexpand\@xfloat
    {#1}[\csname fps@#1\endcsname]}\@tempa}}

\def\@xfloat#1[#2]{\ifhmode \@bsphack\@floatpenalty -\@Mii\else
   \@floatpenalty-\@Miii\fi\def\@captype{#1}\ifinner
      \@parmoderr\@floatpenalty\z@
    \else\@next\@currbox\@freelist{\@tempcnta\csname ftype@#1\endcsname
       \multiply\@tempcnta\@xxxii\advance\@tempcnta\sixt@@n
       \@tfor \@tempa :=#2\do
                        {\if\@tempa h\advance\@tempcnta \@ne\fi
                         \if\@tempa t\advance\@tempcnta \tw@\fi
                         \if\@tempa b\advance\@tempcnta 4\relax\fi
                         \if\@tempa p\advance\@tempcnta 8\relax\fi
         }\global\count\@currbox\@tempcnta}\@fltovf\fi
    \global\setbox\@currbox\vbox\bgroup
    \boxmaxdepth\z@
    \hsize\columnwidth \@parboxrestore}

\def\end@float{\egroup
   \ifnum\@floatpenalty <\z@
     \@cons\@currlist\@currbox
     \ifdim \ht\@currbox >\textheight
        \ht\@currbox\textheight \fi
     \global\@outputdonefalse
     \ifnum\@floatpenalty < -\@Mii
        \penalty\@floatpenalty
        \if@outputdone\else\global\@outputdonetrue
           \vbox{}\penalty\@floatpenalty\fi
      \else \vadjust{\penalty \@floatpenalty}\@esphack\fi\fi}

\def\@dblfloat#1{\if@twocolumn\else\@latexerr{Two-column float
on one-column page}\@ehd\fi
\@ifnextchar[{\@xdblfloat{#1}}{\@xdblfloat{#1}[tp]}}