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

\def\bigans{b }
\message{ big or little (b/l)? }\read-1 to\answ

\ifx\answ\bigans\message{(This will come out unreduced.}
\magnification=1200\baselineskip=14pt
\font\bigfnt=amr10 scaled\magstep3 \global\let\absfnt=\tenrm
\hsbody=\hsize \hstitle=\hsize %take default values for unreduced format

\else\message{(This will be reduced.}
\let\lr=L
\special{landscape}
\font\bigfnt=amr10 scaled\magstep4
\font\absfnt=amr10 scaled\magstep1
\def\almostshipout#1{\if L\lr \count1=1
      \global\setbox\leftpage=#1 \global\let\lr=R
   \else \count1=2
      \shipout\vbox{\hbox to\fullhsize{\box\leftpage\hfil#1}}
      \global\let\lr=L\fi}

\output={\ifnum\count0=1 %%% This is the HUTP version
 \shipout\vbox{\hbox to \fullhsize{\hfill\pagebody\hfill}}\advancepageno
 \else
 \almostshipout{\leftline{\vbox{\pagebody\makefootline}}}\advancepageno 
 \fi}

\magnification=1000\baselineskip=14pt\voffset=-.31truein\hoffset=.05truein
\hstitle=8truein\hsbody=4.75truein\vsize=7truein\fullhsize=10truein
\fi

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


\def\HUTP#1#2{\nopagenumbers\hsize=\hstitle\rightline{\absfnt HUTP-85/A#1}%
\vskip 1in\bigfnt\centerline{#2}\absfnt\vskip .5in}

\def\Date#1{\vfill\leftline{#1}\tenrm\supereject\hsize=\hsbody%
\footline={\hss\tenrm\folio\hss}}% restores pagenumbers


% tagged sec numbers
\global\newcount\secno \global\secno=0
\global\newcount\meqno \global\meqno=1

\def\newsec#1{\global\advance\secno by1\global\meqno=1
\ifx\answ\bigans \vfill\eject
\else\bigbreak\bigskip\fi% (combination \goodbreak\bigskip\bigskip)
\noindent{\bf\the\secno. #1}\par\nobreak\medskip\nobreak}

%       \eqn\label{a+b=c}	gives a displayed equation with number
%				chosen consecutively within sections.
%     \eqnn and \eqna define labels in advance
\newwrite\efile \let\firsteqn=T
\def\writeqno#1%
{\if T\firsteqn \immediate\openout\efile=eqns.tmp\global\let\firsteqn=F\fi%
\immediate\write\efile{#1 \string#1}\global\advance\meqno by1}

\def\eqnn#1{\xdef #1{(\the\secno.\the\meqno)}\writeqno#1}
\def\eqna#1{\xdef #1##1{(\the\secno.\the\meqno##1)}\writeqno{#1{}}}

\def\eqn#1#2{\xdef #1{(\the\secno.\the\meqno)}%
$$#2\eqno(\the\secno.\the\meqno)$$\writeqno#1}


%			 footnotes
\global\newcount\ftno \global\ftno=1
\def\foot#1{\footnote{$^{\the\ftno}$}{#1}\ %
\global\advance\ftno by1}


%     \ref\label{text}
% generates a number, assigns it to \label, generates an entry.
% To list the refs on a separate page,  \listrefs

\global\newcount\refno \global\refno=1
\newwrite\rfile

\def\ref#1#2{[\the\refno]\nref#1{#2}}
\def\nref#1#2{\xdef#1{[\the\refno]}%
\ifnum\refno=1\immediate\openout\rfile=refs.tmp\fi%
\immediate\write\rfile{\noexpand\item{\noexpand#1\ }#2.}%
\global\advance\refno by1}

\def\semi{;\hfil\noexpand\break}

\def\listrefs{\vfill\eject\immediate\closeout\rfile%\parindent=20pt
\centerline{{\bf References}}\bigskip\frenchspacing%
\input refs.tmp\vfill\eject\nonfrenchspacing}

%		and finally, figures:
\def\fig#1#2{\item{Figure #1:  }#2}


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

\def\inv{^{\raise.15ex\hbox{${\scriptscriptstyle -}$}\kern-.05em 1}}
%\def\inv{^{\hbox{-}1}}
\def\dup{^{\vphantom{1}}}
%\def\Dsl{\raise.15ex\hbox{$/$}\kern-.75em\hbox{$D$}}  %capital D slash
\def\Dsl{\,\raise.15ex\hbox{$/$}\mkern-13.5mu D} %this one can be subscripted
\def\Psl{\raise.15ex\hbox{$/$}\kern-.57em\hbox{$\partial$}}
%	matters of taste
%\def\tilde{\widetilde} 
%\def\bar{\overline}
%\def\hat{\widehat}
%
\def\del{\partial}
%curly letters
\def\CA{\hbox{{$\cal A$}}} \def\CC{\hbox{{$\cal C$}}}
\def\CF{\hbox{{$\cal F$}}} \def\CG{\hbox{{$\cal G$}}} 
\def\CL{\hbox{{$\cal L$}}} \def\CH{\hbox{{$\cal H$}}} 
\def\CI{\hbox{{$\cal I$}}} \def\CU{\hbox{{$\cal U$}}}
\def\CB{\hbox{{$\cal B$}}} \def\CAG{\hbox{{$\cal A$/$\cal G$}}}
\def\CD{\hbox{{$\cal D$}}} \def\CT{\hbox{{$\cal T$}}}
\def\grad#1{\,\nabla\!_{{#1}}\,}
\def\ph{\varphi}
\def\psibar{\overline\psi}
\def\om#1#2{\omega^#1{}_#2}
\def\vev#1{\langle #1 \rangle}
\def\darr#1{\raise1.3ex\hbox{$\leftrightarrow$}\mkern-15.3mu #1}
\def\lie{\hbox{\it\$}} %pound sterling
\font\bigit=amti10 scaled \magstep1
\def\biglie{\hbox{\bigit\$}} %pound sterling