<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">%------------------------------------------------------------------
% parts from AMSTeX Version 0.999999 (C) AMS 1983
%
\catcode`\@=11

\def\@{\char'100 }
\catcode`\~=13
\def\{{\relax@AmS\ifmmode\delimiter\dq4266308
     \else$\delimiter\dq4266308$\fi}
\def\}{\relax@AmS\ifmmode\delimiter\dq5267309
     \else$\delimiter\dq5267309 $\fi}

\def\tex{\TeX}

%

% STYLE, SPACING AND ALTERNATE NAMES

\let\dsize=\displaystyle
\let\tsize=\textstyle
\let\ssize=\scriptstyle
\let\sssize=\scriptscriptstyle

\def\quad{\relax@AmS\ifmmode
    \hbox{\hskip1em}\else\hskip1em\relax@AmS\fi}                      % NOTE 20
\def\qquad{\quad\quad}
\def\,{\relax@AmS\ifmmode\mskip\thinmuskip\else$\mskip\thinmuskip$\fi}
\def\;{\relax@AmS
  \ifmmode\mskip\thickmuskip\else$\mskip\thickmuskip$\fi}
\def\parsep{\par\penalty -50\vskip 3pt plus 3pt minus 3pt}
\def\Parsep{\par\penalty -100\vskip 6pt plus 3pt minus 4pt}
\def\frac#1#2{{#1\over#2}}
\def\Frac#1#2{{\displaystyle{#1\over#2}}}
\def\text#1{\hbox{\rm#1}}
%
% SOME BASIC CONTROL SEQUENCES USED IN OTHER DEFINITIONS
%
\def\eat@AmS#1{}
\long\def\comp@AmS#1#2{\def\@AmS{#1}\def\@@AmS{#2}\ifx
   \@AmS\@@AmS\def\cresult@AmS{T}\else\def\cresult@AmS{F}\fi}
\def\in@AmS#1#2{\def\intest@AmS##1#1##2{\comp@AmS##2\end@AmS\if T\cresult@AmS
   \def\cresult@AmS{F}\def\in@@AmS{}\else
   \def\cresult@AmS{T}\def\in@@AmS####1\end@AmS{}\fi\in@@AmS}%
   \def\cresult@AmS{F}\intest@AmS#2#1\end@AmS}
%
% ALIGNED UNITS
%
\let\relax@AmS=\relax
\def\Let@AmS{\relax@AmS\iffalse{\fi\let\\=\cr\iffalse}\fi}
\def\align{\def\vspace##1{\noalign{\vskip ##1}}
  \,\vcenter\bgroup\Let@AmS\tabskip=0pt\openup3pt\mathsurround=0pt
  \halign\bgroup\strut
  \hfil$\displaystyle{##}$&amp;$\displaystyle{{}##}$\hfil\cr}
\def\endalign{\strut\crcr\egroup\egroup}
%
\def\bunch{\def\vspace##1{\noalign{\vskip ##1}}
  \,\vcenter\bgroup\Let@AmS\tabskip=0pt\openup3pt\mathsurround=0pt
     \halign\bgroup\strut\hfil$\displaystyle{##}$\hfil\cr}
\def\endbunch{\strut\crcr\egroup\egroup}
%
\def\cases{\left\{ \,\vcenter\bgroup\Let@AmS\normalbaselines\tabskip=0pt
   \halign\bgroup$##\hfil$&amp;\qquad$##\hfil$\cr}
\def\endcases{\crcr\egroup\egroup\right.}
%
\def\matrix{\catcode`\^^I=4 \futurelet\tok@AmS\matrix@AmS}
\def\matrix@AmS{\relax@AmS\iffalse{\fi \ifnum`}=0\fi\ifx\tok@AmS\format
   \def\next@AmS{\expandafter\matrix@@AmS\eat@AmS}\else
   \def\next@AmS{\matrix@@@AmS}\fi\next@AmS}
\def\matrix@@@AmS{
   \ifnum`{=0\fi\iffalse}\fi\,\vcenter\bgroup\Let@AmS\tabskip=0pt
   \normalbaselines\halign\bgroup $\strut\hfil##\hfil$&amp;&amp;\quad$\strut
   \hfil##\hfil$\cr\strut\cr\noalign{\kern-\baselineskip}}
\def\matrix@@AmS#1\\{
   \def\premable@AmS{#1}\toks@{##}
   \def\c{$\copy\strutbox\hfil\the\toks@\hfil$}\def\r
   {$\copy\strutbox\hfil\the\toks@$}%
   \def\l{$\copy\strutbox\the\toks@\hfil$}%
   \setbox0=
   \hbox{\xdef\Preamble@AmS{\premable@AmS}}
   \def\vspace##1{\noalign{\vskip ##1}}\ifnum`{=0\fi\iffalse}\fi
   \,\vcenter\bgroup\Let@AmS
   \tabskip=0pt\normalbaselines\halign\bgroup\span\Preamble@AmS\cr
   \mathstrut\cr\noalign{\kern-\baselineskip}}
\def\endmatrix{\crcr\mathstrut\cr\noalign{\kern-\baselineskip
   }\egroup\egroup\,\catcode`\^^I=10 }



% STUFF FOR BIBLIOGRAPHY

\def\refto#1{\in@AmS,{#1}\if T\cresult@AmS\refto@AmS#1\end@AmS\else
    [{\bf#1}]\fi}
\def\refto@AmS#1,#2\end@AmS{[{\bf#1},#2]}

\def\Refs{\bigbreak\hbox to \hsize{\hfil\tenpoint
    \smc \Referenceword@AmS\hfil}\penalty 10000
      \bigskip\eightpoint\sfcode`.=1000 }

\newbox\nobox@AmS        \newbox\keybox@AmS        \newbox\bybox@AmS
\newbox\bysamebox@AmS    \newbox\paperbox@AmS      \newbox\paperinfobox@AmS
\newbox\jourbox@AmS      \newbox\volbox@AmS        \newbox\issuebox@AmS
\newbox\yrbox@AmS        \newbox\pagesbox@AmS      \newbox\bookbox@AmS
\newbox\bookinfobox@AmS  \newbox\publbox@AmS       \newbox\publaddrbox@AmS
\newbox\finalinfobox@AmS



\def\refset@AmS#1{\expandafter\gdef\csname is\expandafter\eat@AmS
  \string#1@AmS\endcsname{F}\expandafter
  \setbox\csname \expandafter\eat@AmS\string#1box@AmS\endcsname=\null}

\def\ref@AmS{\refset@AmS\no \refset@AmS\key \refset@AmS\by
\gdef\isbysame@AmS{F}%
 \refset@AmS\paper
  \refset@AmS\paperinfo \refset@AmS\jour \refset@AmS\vol
  \refset@AmS\issue \refset@AmS\yr
  \gdef\istoappear@AmS{F}%
  \refset@AmS\pages
  \gdef\ispage@AmS{F}%
  \refset@AmS\book
  \gdef\isinbook@AmS{F}%
  \refset@AmS\bookinfo \refset@AmS\publ
  \refset@AmS\publaddr \refset@AmS\finalinfo \bgroup
     \ignorespaces}

\def\ref{\noindent\hangindent 20pt \hangafter 1 \def\refi@AmS{T}%
  \def\refl@AmS{F}\def\\{\egroup\endref@AmS\gdef\refi@AmS{F}\ref@AmS}\ref@AmS}

\def\refdef@AmS#1#2{\def#1{\egroup\expandafter
  \gdef\csname is\expandafter\eat@AmS
  \string#1@AmS\endcsname{T}\expandafter\setbox
   \csname \expandafter\eat@AmS\string#1box@AmS\endcsname=\hbox\bgroup#2}}

\refdef@AmS\no{} \refdef@AmS\key{} \refdef@AmS\by{}
\def\bysame{\egroup\gdef\isbysame@AmS{T}\bgroup}
\refdef@AmS\paper\it
\refdef@AmS\paperinfo{} \refdef@AmS\jour{} \refdef@AmS\vol\bf
\refdef@AmS\issue{} \refdef@AmS\yr{}
\def\toappear{\egroup\gdef\istoappear@AmS{T}\bgroup}
\refdef@AmS\pages{}
\def\page{\egroup\gdef\ispage@AmS{T}\setbox
                 \pagesbox@AmS=\hbox\bgroup}
\refdef@AmS\book{}
\def\inbook{\egroup\gdef\isinbook@AmS{T}\setbox
                               \bookbox@AmS=\hbox\bgroup}
\refdef@AmS\bookinfo{} \refdef@AmS\publ{}
\refdef@AmS\publaddr{}
\refdef@AmS\finalinfo{}


\def\setpunct@AmS{\def\prepunct@AmS{, }}
\def\ppunbox@AmS#1{\prepunct@AmS\unhbox#1\unskip}

\def\endref@AmS{\def\prepunct@AmS{}%
\if T\refi@AmS
  \if F\isno@AmS\hbox to 10pt{}\else
     \hbox to 20pt{\hss\unhbox\nobox@AmS\unskip. }\fi
  \if T\iskey@AmS \unhbox\keybox@AmS\unskip\ \fi
  \if T\isby@AmS  \hbox{\unhcopy\bybox@AmS\unskip}\setpunct@AmS
         \setbox\bysamebox@AmS=\hbox{\unhcopy\bybox@AmS\unskip}\fi
  \if T\isbysame@AmS
   \hbox to \wd\bysamebox@AmS{\leaders\hrule\hfill}\setpunct@AmS\fi
 \fi
  \if T\ispaper@AmS\ppunbox@AmS\paperbox@AmS\setpunct@AmS\fi
  \if T\ispaperinfo@AmS\ppunbox@AmS\paperinfobox@AmS\setpunct@AmS\fi
  \if T\isjour@AmS\ppunbox@AmS\jourbox@AmS\setpunct@AmS
     \if T\isvol@AmS \ \unhbox\volbox@AmS\unskip\setpunct@AmS\fi
     \if T\isissue@AmS \ \unhbox\issuebox@AmS\unskip\setpunct@AmS\fi
     \if T\isyr@AmS \ (\unhbox\yrbox@AmS\unskip)\setpunct@AmS\fi
     \if T\istoappear@AmS \ (to appear)\setpunct@AmS\fi
     \if T\ispages@AmS \ppunbox@AmS\pagesbox@AmS\setpunct@AmS\fi
     \if T\ispage@AmS
           \prepunct@AmS p.\ \unhbox\pagesbox@AmS\unskip\setpunct@AmS\fi
     \fi
  \if T\isbook@AmS \prepunct@AmS
                     ``\unhbox\bookbox@AmS\unskip''\setpunct@AmS\fi
  \if T\isinbook@AmS \prepunct@AmS
    \unskip\ in ``\unhbox\bookbox@AmS\unskip''\setpunct@AmS
       \gdef\isbook@AmS{T}\fi
  \if T\isbookinfo@AmS \ppunbox@AmS\bookinfobox@AmS\setpunct@AmS\fi
  \if T\ispubl@AmS \ppunbox@AmS\publbox@AmS\setpunct@AmS\fi
  \if T\ispubladdr@AmS \ppunbox@AmS\publaddrbox@AmS\setpunct@AmS\fi
 \if T\isbook@AmS
  \if T\isyr@AmS \prepunct@AmS \unhbox\yrbox@AmS\unskip
              \setpunct@AmS\fi
  \if T\istoappear@AmS \ (to appear)\setpunct@AmS\fi
  \if T\ispages@AmS
    \prepunct@AmS pp.\ \unhbox\pagesbox@AmS\unskip\setpunct@AmS\fi
  \if T\ispage@AmS
    \prepunct@AmS p.\ \unhbox\pagesbox@AmS\unskip\setpunct@AmS\fi
 \fi
  \if T\isfinalinfo@AmS \period\unhbox\finalinfobox@AmS\else
    \if T\refl@AmS .\else ; \fi\fi}

\def\endref{\egroup\gdef\refl@AmS{T}\endref@AmS\par}




% EXTRA FONTS NEEDED


\font\eightrm=cmr8
\font\sixrm=cmr7     %cmr6   % fonts not on Atari
\font\eighti=cmmi10  %cmmi8 \skewchar\eighti='177
\font\sixi=cmmi7     %cmmi6 \skewchar\sixi='177
\font\eightsy=cmsy10 %cmsy8 \skewchar\eightsy='60
\font\sixsy=cmsy7    %cmsy6 \skewchar\sixsy='60
\font\eightbf=cmbx10 %cmbx8
\font\sixbf=cmbx7    %cmbx6
\font\eightsl=cmsl10 %cmsl8
\font\eightit=cmsl10 %cmti8
\font\tensmc=cmcsc10


% TWO DIFFERENT POINT SIZES

\def\tenpoint{\def\pointsize@AmS{t}\normalbaselineskip=12pt            % NOTE 1
 \abovedisplayskip 12pt plus 3pt minus 9pt
 \belowdisplayskip 12pt plus 3pt minus 9pt
 \abovedisplayshortskip 0pt plus 3pt
 \belowdisplayshortskip 7pt plus 3pt minus 4pt
 \def\rm{\fam0\tenrm}%
 \def\it{\fam\itfam\tenit}%
 \def\sl{\fam\slfam\tensl}%
 \def\bf{\fam\bffam\tenbf}%
 \def\smc{\tensmc}%
 \def\mit{\fam 1}%
 \def\cal{\fam 2}%
 \textfont0=\tenrm   \scriptfont0=\sevenrm   \scriptscriptfont0=\fiverm
 \textfont1=\teni    \scriptfont1=\seveni    \scriptscriptfont1=\fivei
 \textfont2=\tensy   \scriptfont2=\sevensy   \scriptscriptfont2=\fivesy
 \textfont3=\tenex   \scriptfont3=\tenex     \scriptscriptfont3=\tenex
 \textfont\itfam=\tenit
 \textfont\slfam=\tensl
 \textfont\bffam=\tenbf \scriptfont\bffam=\sevenbf
   \scriptscriptfont\bffam=\fivebf
\normalbaselines\rm}

\def\eightpoint{\def\pointsize@AmS{8}\normalbaselineskip=10pt
 \abovedisplayskip 10pt plus 2.4pt minus 7.2pt
 \belowdisplayskip 10pt plus 2.4pt minus 7.2pt
 \abovedisplayshortskip 0pt plus 2.4pt
 \belowdisplayshortskip 5.6pt plus 2.4pt minus 3.2pt
 \def\rm{\fam0\eightrm}%
 \def\it{\fam\itfam\eightit}%
 \def\sl{\fam\slfam\eightsl}%
 \def\bf{\fam\bffam\eightbf}%
 \def\mit{\fam 1}%
 \def\cal{\fam 2}%
 \textfont0=\eightrm   \scriptfont0=\sixrm   \scriptscriptfont0=\fiverm
 \textfont1=\eighti    \scriptfont1=\sixi    \scriptscriptfont1=\fivei
 \textfont2=\eightsy   \scriptfont2=\sixsy   \scriptscriptfont2=\fivesy
 \textfont3=\tenex   \scriptfont3=\tenex     \scriptscriptfont3=\tenex
 \textfont\itfam=\eightit
 \textfont\slfam=\eightsl
 \textfont\bffam=\eightbf \scriptfont\bffam=\sixbf
   \scriptscriptfont\bffam=\fivebf
\normalbaselines\rm}

\catcode`\@=12
</pre></body></html>