
\newbox\leftpage
\newdimen\fullhsize 
\newdimen\hstitle
\newdimen\hsbody
\tolerance=1000\hfuzz=2pt

\magnification=1200\baselineskip=14pt
\font\titlefnt=amr10 scaled\magstep3 
\global\let\absfnt=\tenrm \global\let\absmfnt=\teni
\font\titlemfnt=ammi10 scaled\magstep5 %ordinarily 3
\hsbody=\hsize \hstitle=\hsize %take default values for unreduced format

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\ppnum#1#2{\nopagenumbers\absfnt\hsize=\hstitle\rightline%
{\vbox{\hbox{#1}\hbox{#2}}}}
\def\title#1{\vskip 1in%
\centerline{\titlefnt\textfont0=\titlefnt\textfont1=\titlemfnt#1}%
\textfont0=\absfnt\textfont1=\absmfnt\vskip .5in}


\def\oneppnum#1{\nopagenumbers\absfnt\hsize=\hstitle\rightline{\hbox{#1}}}

\def\shtitle#1{ \centerline{\titlefnt #1}\absfnt\pageno=0}




\def\Date#1{\vfill\leftline{#1}%
\tenrm\textfont0=\tenrm\textfont1=\teni\supereject\global\hsize=\hsbody%
\footline={\hss\tenrm\folio\hss}}% restores pagenumbers
%
%use this one instead of \Date on the preliminary draft
%it puts the current date on each page in big mode
\def\draft{\def\draftdate{draft:\number\month/\number\day/\number\year}
\Date{\draftdate}\headline{\hfil\draftdate}}
%
% tagged sec numbers
\global\newcount\secno \global\secno=0
\global\newcount\meqno \global\meqno=1
\def\gap{\ifx\answ\bigans \bigskip \else\bigbreak\bigskip \fi}
\def\newsec#1{\global\advance\secno by1\global\meqno=1
\gap
\noindent{\bf\the\secno. #1}\par\nobreak\medskip\nobreak}

\def\header#1{\gap\noindent{\bf{#1}}\par\nobreak\medskip\nobreak}


