%% 
%% This is file `startex.tex',
%% generated with the docstrip utility.
%% 
%% The original source files were:
%% 
%% startex.dtx  (with options: `code')
%% 
%% IMPORTANT NOTICE:
%% 
%% For the copyright see the source file.
%% 
%% You are *not* allowed to modify this file.
%% 
%% You are *not* allowed to distribute this file.
%% For distribution of the original source see
%% the terms for copying and modification in the file  startex.dtx.
%% 
\def \CodeVersion {1.0}
\def \CodeDate    {7th October 1996}
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
\let \State = x
\def \Command #1>{\ifDefining
    \def \Next {\lowercase{\DefineCmd{#1}}}%
  \else
    \lowercase{\expandafter\ifx \csname >#1\endcsname}\relax
      \Error{Unknown command <#1> ignored.}{}%
      \let \Next = \relax
    \else
      \def \Next {\lowercase{\csname >#1\endcsname}}%
    \fi
  \fi \Next }
{\catcode `\< = \active  \global\let < = \Command }
\def \Cdef #1#2{\expandafter\gdef \csname >#1\endcsname{#2}}
\def \Ccall #1{\csname >#1\endcsname}
\newif \ifDefining
\Cdef {define}{\Definingtrue}
\def \DefineCmd #1{\Definingfalse
  \ifnum \CallLevel>0
    \Error{Nested definitions are not allowed;}%
      {the definition of <#1> is ignored.}\let \Next = \relax
  \else
    \expandafter\ifx \csname>#1\endcsname\relax
      \def \Next {\begingroup \catcode`\^^M = 12 \FetchDef{#1}}%
    \else
      \Error{Command <#1> already defined;}{this definition ignored.}%
      \def \Next {\begingroup \catcode`\^^M = 12 \IgnoreDef{#1}}%
    \fi
  \fi \Next }
\begingroup \catcode`\^^M = 12
  \gdef \FetchDef #1#2^^M{\expandafter%
    \gdef\csname>#1\endcsname {\Call #2\Return }\endgroup }%
  \gdef \IgnoreDef #1#2^^M{\endgroup }%
\endgroup
\newcount \CallLevel
\def \Call   {\global\advance \CallLevel by  1 }
\def \Return {\global\advance \CallLevel by -1 }
\def \SpecialCatCodes {%
  \catcode `\# = 12  \catcode `\$ = 12  \catcode `\% = 12
  \catcode `\& = 12  \catcode `\{ = 12  \catcode `\} = 12
  \catcode `\~ = 12  \catcode `\^ = 12  \catcode `\_ = 12
  \catcode `\\ = 12  \catcode `\< = \active }
\def \StandardCatCodes {%
  \catcode `\\ = 0  \catcode `\{ = 1  \catcode `\} = 2
  \catcode `\$ = 3  \catcode `\& = 4  \catcode `\# = 6
  \catcode `\^ = 7  \catcode `\_ = 8  \catcode `\~ = \active
  \catcode `\% = 14 \catcode `\< = 12 }
\def \NewEnvir #1#2#3{#2\relax
  \let \PrevEnv = \CurEnv  \PrevEnvLine = \CurEnvLine
  \def \CurEnv {#1}\def \CurEnvExit {#3}\CurEnvLine = \inputlineno }
\def \CurEnv {}\def \CurEnvExit {\relax}
\newcount \CurEnvLine  \newcount \PrevEnvLine
\def \EndEnvir #1{%
  \ifTextEqual{#1}{\CurEnv}\let \Next = \CurEnvExit
  \else \EnvirError{#1}\fi
  \Next }
\def \EnvirError #1{\ifTextEqual{#1}{\PrevEnv}%
    \Error{<\CurEnv> on line \the\CurEnvLine\space terminated by
      </#1>.}{An extra </\CurEnv> has been inserted.}%
    \def \Next {\CurEnvExit \CurEnvExit }%
  \else
    \Error{<\CurEnv> on line \the\CurEnvLine\space terminated by
      </#1>.}{The </#1> will be ignored.}%
    \let \Next = \relax
  \fi }
\Cdef {style}{\IfNextChar{[}{\ReadStyle}%
  {\Error{No style name given;}{the syntax is: <style>[style name].}}}
\def \ReadStyle [#1]{\IfFileExists{#1.stx}%
    {\edef \StyleLine {\the\inputlineno}%
     \Cdef {style}{\Error{Command <style> already used on line
                     \StyleLine;}{this use of <style> is ignored.}}%
     \StandardCatCodes \input #1.stx
     \SpecialCatCodes }%
    {\Error{Style file `#1.stx' could not be found;}%
           {style definition ignored.}}}
\def \FontDef #1#2#3#4#5#6{%
  \expandafter\def \csname F-#1S#2#3#4\endcsname {#5}%
  \expandafter\def \csname F-#1A#2#3#4\endcsname {#6}}
\def \MathFontDef #1#2#3#4#5{%
  \expandafter\def \csname M-#1N#2\endcsname {#3}%
  \expandafter\def \csname M-#1S#2\endcsname {#4}%
  \expandafter\def \csname M-#1X#2\endcsname {#5}}
\def \XIpt { at 10.95pt}
\FontDef{R}{M}{U}{N}{dcr1095}{tcr1095}
\FontDef{R}{M}{I}{N}{dcti1095}{tcti1095}
\FontDef{R}{B}{U}{N}{dcbx1095}{tcbx1095}
\FontDef{R}{B}{I}{N}{dcbi1095}{tcbi1095}
\FontDef{T}{M}{U}{N}{dctt1095}{tctt1095}
\FontDef{T}{M}{I}{N}{dcit1095}{tcit1095}
\FontDef{T}{B}{U}{N}{dctt1095}{tctt1095}
\FontDef{T}{B}{I}{N}{dcit1095}{tcit1095}
\MathFontDef{N}{0}{cmr10\XIpt}{cmr8}{cmr6}
\MathFontDef{N}{1}{cmmi10\XIpt}{cmmi8}{cmmi6}
\MathFontDef{N}{2}{cmsy10\XIpt}{cmsy8}{cmsy6}
\MathFontDef{N}{3}{cmex10\XIpt}{cmex10\XIpt}{cmex10\XIpt}
\MathFontDef{N}{4}{cmbx10\XIpt}{cmbx8}{cmbx6}
\MathFontDef{N}{5}{dcti1095}{dcti0800}{dcti0600}
\def \LineSkipN {12pt}  \def \CodeSkipN {11pt plus 0.0pt minus 0.1pt}
\def \XIVpt { at 14.4pt}
\FontDef{R}{M}{U}{L}{dcr1440}{tcr1440}
\FontDef{R}{M}{I}{L}{dcti1440}{tcti1440}
\FontDef{R}{B}{U}{L}{dcbx1440}{tcbx1440}
\FontDef{R}{B}{I}{L}{dcbi1440}{tcbi1440}
\FontDef{T}{M}{U}{L}{dctt1440}{tctt1440}
\FontDef{T}{M}{I}{L}{dcit1440}{tcit1440}
\FontDef{T}{B}{U}{L}{dctt1440}{tctt1440}
\FontDef{T}{B}{I}{L}{dcit1440}{tcit1440}
\MathFontDef{L}{0}{cmr12\XIVpt}{cmr10}{cmr8}
\MathFontDef{L}{1}{cmmi12\XIVpt}{cmmi10}{cmmi8}
\MathFontDef{L}{2}{cmsy10\XIVpt}{cmsy10}{cmsy8}
\MathFontDef{L}{3}{cmex10\XIVpt}{cmex10\XIVpt}{cmex10\XIVpt}
\MathFontDef{L}{4}{cmbx12\XIVpt}{cmbx10}{cmbx8}
\MathFontDef{L}{5}{dcti1440}{dcti1000}{dcti0800}
\def \LineSkipL {15pt}
\def \XVIIpt { at 17.28pt}
\FontDef{R}{M}{U}{X}{dcr1728}{tcr1728}
\FontDef{R}{M}{I}{X}{dcti1728}{tcti1728}
\FontDef{R}{B}{U}{X}{dcbx1728}{tcbx1728}
\FontDef{R}{B}{I}{X}{dcbi1728}{tcbi1728}
\FontDef{T}{M}{U}{X}{dctt1728}{tctt1728}
\FontDef{T}{M}{I}{X}{dcit1728}{tcit1728}
\FontDef{T}{B}{U}{X}{dctt1728}{tctt1728}
\FontDef{T}{B}{I}{X}{dcit1728}{tcit1728}
\MathFontDef{X}{0}{cmr17}{cmr12\XIVpt}{cmr9}
\MathFontDef{X}{1}{cmmi12\XVIIpt}{cmmi12}{cmmi9}
\MathFontDef{X}{2}{cmsy10\XVIIpt}{cmsy10 at 12pt}{cmsy9}
\MathFontDef{X}{3}{cmex10\XVIIpt}{cmex10\XVIIpt}{cmex10\XVIIpt}
\MathFontDef{X}{4}{cmbx12\XVIIpt}{cmbx12}{cmbx9}
\MathFontDef{X}{5}{dcti1728}{dcti1200}{dcti0900}
\def \LineSkipX {17pt}
\FontDef{R}{M}{U}{S}{dcr1000}{tcr1000}
\FontDef{R}{M}{I}{S}{dcti1000}{tcti1000}
\FontDef{R}{B}{U}{S}{dcbx1000}{tcbx1000}
\FontDef{R}{B}{I}{S}{dcbi1000}{tcbi1000}
\FontDef{T}{M}{U}{S}{dctt1000}{tctt1000}
\FontDef{T}{M}{I}{S}{dcit1000}{tcit1000}
\FontDef{T}{B}{U}{S}{dctt1000}{tctt1000}
\FontDef{T}{B}{I}{S}{dcit1000}{tcit1000}
\MathFontDef{S}{0}{cmr10}{cmr7}{cmr5}
\MathFontDef{S}{1}{cmmi10}{cmmi7}{cmmi5}
\MathFontDef{S}{2}{cmsy10}{cmsy7}{cmsy5}
\MathFontDef{S}{3}{cmex10}{cmex10}{cmex10}
\MathFontDef{S}{4}{cmbx10}{cmbx7}{cmbx5}
\MathFontDef{S}{5}{dcti1000}{dcti0700}{dcti0500}
\def \LineSkipS {11pt}
\def \SelectFont {%
  \edef \ThisFont {F-\FontKind\FontAlt\FontBold\FontItal\FontSize}%
  \font \CurFont = \csname\ThisFont\endcsname \CurFont }
\def \ResetFont {%
  \def \FontKind{R}\def \FontAlt{S}\def \FontBold{M}%
  \def \FontItal{U}\def \FontSize{N}}
\def \CheckItCorr {%
  \IfNextCharTwo{.}{,}{}{\/}}
\def \SetSize #1{\def \FontSize{#1}\SelectFont
  \baselineskip = \csname LineSkip#1\endcsname
  \ParIndent = \StdParIndent }
\Cdef {b}{\NewEnvir{b}{\begingroup}{\endgroup}%
  \def\FontBold{B}\SelectFont}
\Cdef {/b}{\EndEnvir{b}}
\Cdef {i}{\NewEnvir{i}{\begingroup}{\endgroup\CheckItCorr}%
  \def\FontItal{I}\SelectFont}
\Cdef {/i}{\EndEnvir{i}}
\Cdef {tt}{\NewEnvir{tt}{\begingroup}{\endgroup}%
  \def\FontKind{T}\SelectFont}
\Cdef {/tt}{\EndEnvir{tt}}

\Cdef {body}{\NewEnvir{body}{\begingroup}{\endgroup}%
  \message{^^JThis is StarTeX, version \CodeVersion^^J}%
  \global\everypar = {\NewPar }%
  \xdef \BodyLine {\the\inputlineno}%
  \Cdef {body}{\Error{Command <body> already used on line \BodyLine;}%
    {this use of <body> was ignored.}}}
\def \BodyError {\message{^^JThis is StarTeX, version \CodeVersion^^J}%
  \Error{A <body>...</body> environment should surround
    the whole document.}{A missing <body> was inserted.}%
  \global\everypar = {\NewPar }}
\Cdef {/body}{\EndEnvir{body}\endgraf\vfill\supereject
  \let \Next = \CheckAux
  \ifRerun \let \Next = \relax \fi
  \ifAuxRead \else \let \Next = \relax \fi
  \ifAuxOpen \else \let \Next = \relax \fi
  \Next
  \ifRerun \Warning{Cross-references are not correct;}%
    {please run StarTeX again.}\fi
  \end}
\Cdef {p}{\endgraf}
\def \par {}
\pretolerance = 2500 \tolerance = 9999  \hbadness = \tolerance
\emergencystretch = 3cm
\parindent = 0pt \everypar = {\BodyError }
\def \NewPar {\ifIndent \kern \ParIndent \fi  \Indenttrue
  \global\parskip = \CurParSkip }
\newskip \ParIndent  \def \StdParIndent {1em}
\newif \ifIndent
\newskip \CurParSkip
\def \AddVspace #1{\ifvmode \else \endgraf \fi
  \skip1 = #1\relax
  \ifdim \lastskip < \skip1 \relax
    \ifdim \lastskip > 0pt \vskip -\lastskip \fi
    \vskip \skip1
  \fi \parskip = 0pt \relax }
\Cdef {title}{\AddVspace{30pt plus 10pt}
  \NewEnvir{title}{\begingroup}{\endgraf\endgroup}
  \leftskip = 2cm plus 1fill  \rightskip = \leftskip
  \ParIndent = 0pt  \CurParSkip = 0pt
  \ResetFont \SetSize{X}}
\Cdef {/title}{\EndEnvir{title}%
  \AddVspace{20pt plus 4pt}}
\Cdef {author}{\AddVspace{10pt plus 3pt}
  \NewEnvir{author}{\begingroup}{\endgraf\endgroup}
  \leftskip = 2cm plus 1fill  \rightskip = \leftskip
  \ParIndent = 0pt  \CurParSkip = 0pt
  \ResetFont \SetSize{L}}
\Cdef {/author}{\EndEnvir{author}%
  \AddVspace{20pt plus 4pt}}
\Cdef {info}{\AddVspace{10pt plus 3pt}
  \NewEnvir{info}{\begingroup}{\endgraf\endgroup}
  \leftskip = 2cm plus 1fill  \rightskip = \leftskip
  \ParIndent = 0pt  \CurParSkip = 0pt
  \ResetFont \SetSize{N}}
\Cdef {/info}{\EndEnvir{info}%
  \AddVspace{20pt plus 4pt}}
\Cdef {abstract}{\AddVspace{10pt plus 3pt}
  \NewEnvir{abstract}{\begingroup}{\endgraf\endgroup}
  \ResetFont \def \FontBold{B} \SetSize{S}  \CurParSkip = 0pt
  \leftskip = 2cm  \rightskip = \leftskip  \Indentfalse
  \centerline{\AbstractName}
  \ResetFont \SetSize{S}\Indentfalse }
\Cdef {/abstract}{\EndEnvir{abstract}%
  \AddVspace{10pt plus 2pt}}
\newcount \SectI    \newcount \SectII
\newcount \SectIII  \newcount \SectIV
\def \Heading #1#2#3#4{\AddVspace{#1}
  \def \FontBold {#3} \SetSize{#2}
  \setbox0 = \hbox{#4\kern 0.5\baselineskip}
  \hangindent = \wd0  \hangafter = 1  \raggedright
  \ParIndent = 0pt  \CurParSkip = 0pt  \leavevmode  \box0 }
\Cdef {h1}{\endgraf
  \global\advance \SectI by 1
  \global\SectII = 0  \global\SectIII = 0  \global\SectIV = 0
  \edef \CurDef {\SectIim}
  \NewEnvir{h1}{\begingroup}{\endgroup}
  \Heading{24pt plus 12pt minus 3pt}{X}{B}{\SectIim}}
\Cdef {/h1}{\endgraf
  \penalty10000\vskip 6pt plus 1.5pt
  \EndEnvir{h1}  \Indentfalse }
\Cdef {h2}{\endgraf
  \global\advance \SectII by 1
  \global\SectIII = 0  \global\SectIV = 0
  \edef \CurDef {\SectIIim}
  \NewEnvir{h2}{\begingroup}{\endgroup}
  \Heading{14pt plus 7pt minus 2pt}{L}{B}{\SectIIim}}
\Cdef {/h2}{\endgraf
  \penalty10000\vskip 4pt plus 1pt
  \EndEnvir{h2}\Indentfalse }
\Cdef {h3}{\endgraf
  \global\advance \SectIII by 1  \global\SectIV = 0
  \edef \CurDef {\SectIIIim}
  \NewEnvir{h3}{\begingroup}{\endgroup}
  \Heading{10pt plus 5pt minus 1pt}{N}{B}{\SectIIIim}}
\Cdef {/h3}{\endgraf
  \penalty10000\vskip 2pt plus 1pt
  \EndEnvir{h3}\Indentfalse }
\Cdef {h4}{\AddVspace{8pt plus 4pt minus 1pt}
  \global\advance \SectIV by 1
  \edef \CurDef {\SectIVim}
  \NewEnvir{h4}{\begingroup}{\endgroup}
  \def \FontBold{B}\SelectFont \Indentfalse \SectIVim }
\Cdef {/h4}{\kern 0.5\baselineskip
  \EndEnvir{h4}}
\Cdef {list}{\AddVspace{\ListSkip}
  \NewEnvir{list}{\begingroup}{\endgroup}
  \advance \leftskip by \ListIndent
  \Indentfalse  \CurParSkip = \ListSkip  \ParIndent = 0pt
  \ItemCount = 0 }
\Cdef {/list}{\endgraf
  \EndEnvir{list}  \Indentfalse }
\Cdef {item}{\endgraf  \Indentfalse
  \leavevmode\llap{\BulletItemFormat}\ignorespaces }
\Cdef {numitem}{\endgraf
  \advance \ItemCount by 1  \edef \CurDef {\the\ItemCount}
  \Indentfalse
  \leavevmode\llap{\NumItemFormat{\ItemCount}}\ignorespaces }
\newcount \ItemCount
\Cdef {textitem}{\endgraf
  \NewEnvir{textitem}{\begingroup}{\endgroup}
  \def \FontBold {B}\SelectFont \leavevmode \kern -\ListIndent
  \ignorespaces }
\Cdef {/textitem}{\unskip
  \EndEnvir{textitem}%
  \hskip 0.5\baselineskip  \ignorespaces }
\Cdef {display}{\AddVspace{\DisplayPreSkip}
  \NewEnvir{display}{\begingroup}{\endgroup}%
  \advance \leftskip  by \DisplayIndent
  \advance \rightskip by \DisplayIndent
  \CurParSkip = \DisplayParSkip \ParIndent = 0pt \relax }
\Cdef {/display}{\AddVspace{\DisplayPostSkip}
  \EndEnvir{display}}
\newif \ifCodePar
\def \CodeSetup {\ifvmode \CodePartrue \AddVspace{\DisplayPreSkip}
    \else \CodeParfalse \fi
  \def\FontKind{T}\SelectFont
  \baselineskip = \CodeSkipN  \CurParSkip = 0pt  \ParIndent = 0pt
  \catcode`\< = 12  \frenchspacing   \obeylines  \obeyspaces }
\begingroup
  \catcode`\^^M = \active %
  \gdef\obeylines{\catcode`\^^M=\active \def^^M{\endgraf\leavevmode}}%
\endgroup
\begingroup
  \obeyspaces\gdef {\leavevmode\space}%
\endgroup
\def \CodeFinish {\ifCodePar
    \def \Next {\endgraf  \vskip -\baselineskip  \vskip \DisplayPostSkip
      \global\Indentfalse }%
  \else
    \let \Next = \relax
  \fi \Next }
\Cdef {code}{\NewEnvir{code}{\begingroup}{\endgroup}%
  \CodeSetup \ReadCode }
\begingroup
  \catcode `\< = 12
  \gdef \ReadCode #1</code>{#1\CodeFinish\EndEnvir{code}}%
\endgroup
\Cdef {codefile}{\IfNextChar{[}%
    {\ReadCodeFile}%
    {\Error{No code file name given;}%
      {the syntax is <codefile>[file name].}}}
\def \ReadCodeFile [#1]{\endgraf \begingroup
  \CodeSetup
  \IfFileExists{#1}{\input #1}%
    {\Error{Code file `#1' cound not be found.}{}}
  \CodeFinish \endgroup }
\Cdef {footnote}{\NewEnvir{footnote}%
                          {\global\advance \FootnoteCnt by 1
    \footnote{\FootnoteIm{\FootnoteCnt}}\bgroup
      \edef \CurDef {\the\FootnoteCnt}}%
    {\egroup}%
  \ResetFont \SetSize{S}}
\Cdef {/footnote}{\EndEnvir{footnote}}
\newcount \FootnoteCnt
\footline = {\ResetFont\SelectFont \hfil \folio \hfil}
\def \DisplayIndent    {\ListIndent}
\def \DisplayParSkip   {\ListParSkip}
\def \DisplayPostSkip  {5pt plus 2pt minus 1pt\relax}
\def \DisplayPreSkip   {5pt plus 2pt minus 1pt\relax}

\def \ListIndent       {25pt\relax}
\def \ListParSkip      {\ListSkip}
\def \ListSkip         {10pt plus 2pt minus 1pt\relax}
\def \SectIim {\the\SectI}
\def \SectIIim {\SectIim.\the\SectII}
\def \SectIIIim {\SectIIim.\the\SectIII}
\def \SectIVim {\SectIIIim.\the\SectIV}
\def \FootnoteIm #1{$^{\the #1}$}
\def \FigIm {\the\FigCnt}
\def \TabIm {\the\TabCnt}
\def \BulletItemFormat {$\bullet$\kern 6pt\relax}
\def \NumItemFormat  #1{\the#1.\kern 4pt\relax}
\def \E #1#2{\catcode#1 = \active
  \begingroup \uccode`\~ = #1\uppercase{\endgroup \def ~{#2}}}
\E{161}{\char189 } \E{163}{\char191 } \E{167}{\char159 }
\E{171}{\char19 }  \E{184}{\char11 }  \E{187}{\char20 }
\E{191}{\char190 } \E{223}{\char255 } \E{255}{\char184 }
\def \CC #1{{\def\FontAlt{A}\SelectFont \char#1}}
\E{162}{\CC{162}} \E{164}{\CC{164}} \E{165}{\CC{165}}
\E{166}{\CC{166}} \E{168}{\CC{168}} \E{169}{\CC{169}}
\E{170}{\CC{170}} \E{172}{\CC{172}} \E{174}{\CC{174}}
\E{175}{\CC{175}} \E{176}{\CC{176}} \E{180}{\CC{180}}
\E{182}{\CC{182}} \E{186}{\CC{186}}
\def \MC #1#2{\ifmmode #2 \else \CC{#1}\fi }
\E{177}{\MC{177}{\pm}}       \E{178}{\MC{178}{^2{}}}
\E{179}{\MC{179}{^3{}}}      \E{181}{\MC{181}{\mu}}
\E{183}{\MC{183}{\cdot}}     \E{185}{\MC{185}{^1{}}}
\E{188}{\MC{188}{{1\over4}}} \E{189}{\MC{189}{{1\over2}}}
\E{190}{\MC{190}{{3\over4}}} \E{215}{\MC{214}{\times}}
\E{247}{\MC{246}{\div}}
\E{160}{\penalty10000\ }
\E{173}{\-}
\def \AbstractName {Abstract}
\def \FigureName   {Figure}
\def \TableName    {Table}
\def \TimeSep      {:}

\Cdef {today}{\the\day\Th{\day} \Month\space\the\year}

\def \Month {\ifcase \month \or January\or February\or March\or
  April\or May\or June\or July\or August\or September\or
  October\or November\or December\fi }

\def \Th #1{% %% English date suffices:
  \ifnum #1=1 st\else\ifnum #1=21 st\else\ifnum #1=31 st\else
  \ifnum #1=2 nd\else\ifnum #1=22 nd\else
  \ifnum #1=3 rd\else\ifnum #1=23 rd\else th\fi\fi\fi\fi\fi\fi\fi }

\Cdef {now}{\Minutes = \time  \Hours = \Minutes
  \divide \Hours by 60  \Htemp = \Hours  \multiply \Htemp by -60
  \advance \Minutes by \Htemp
  \the\Hours \TimeSep \ifnum \Minutes > 9 \else 0\fi \the\Minutes }
\newcount \Minutes  \newcount \Hours  \newcount \Htemp
\mathcode`< = "8000

\Cdef {math}{\MathFonts \NewEnvir{math}{$}{$}}
\Cdef {/math}{\EndEnvir{math}}

\Cdef {displaymath}{\endgraf \MathFonts \NewEnvir{displaymath}{$$}{$$}}
\Cdef {/displaymath}{\EndEnvir{displaymath}}

\def \MSetFont #1#2{\font \NewMFont = \csname #2\endcsname
  #1 = \NewMFont }
\def \MathFonts {\if \FontSize \LastMathSize \else
    \MSetFont{\textfont0}{M-\FontSize N0}%
    \MSetFont{\scriptfont0}{M-\FontSize S0}%
    \MSetFont{\scriptscriptfont0}{M-\FontSize X0}%
    \MSetFont{\textfont1}{M-\FontSize N1}%
    \MSetFont{\scriptfont1}{M-\FontSize S1}%
    \MSetFont{\scriptscriptfont1}{M-\FontSize X1}%
    \MSetFont{\textfont2}{M-\FontSize N2}%
    \MSetFont{\scriptfont2}{M-\FontSize S2}%
    \MSetFont{\scriptscriptfont2}{M-\FontSize X2}%
    \MSetFont{\textfont3}{M-\FontSize N3}%
    \MSetFont{\scriptfont3}{M-\FontSize S3}%
    \MSetFont{\scriptscriptfont3}{M-\FontSize X3}%
    \MSetFont{\textfont4}{M-\FontSize N4}%
    \MSetFont{\scriptfont4}{M-\FontSize S4}%
    \MSetFont{\scriptscriptfont4}{M-\FontSize X4}%
    \MSetFont{\textfont5}{M-\FontSize N5}%
    \MSetFont{\scriptfont5}{M-\FontSize S5}%
    \MSetFont{\scriptscriptfont5}{M-\FontSize X5}%
    \let \LastMathSize = \FontSize
  \fi }
\def \LastMathSize {?}
\def \MCo #1{\mathcode"#1 = "05#1 \relax }
\MCo{C0}\MCo{C1}\MCo{C2}\MCo{C3}\MCo{C4}\MCo{C5}\MCo{C6}\MCo{C7}
\MCo{C8}\MCo{C9}\MCo{CA}\MCo{CB}\MCo{CC}\MCo{CD}\MCo{CE}\MCo{CF}
\MCo{D0}\MCo{D1}\MCo{D2}\MCo{D3}\MCo{D4}\MCo{D5}\MCo{D6}
\MCo{D8}\MCo{D9}\MCo{DA}\MCo{DB}\MCo{DC}\MCo{DD}\MCo{DE}\MCo{DF}
\MCo{E0}\MCo{E1}\MCo{E2}\MCo{E3}\MCo{E4}\MCo{E5}\MCo{E6}\MCo{E7}
\MCo{E8}\MCo{E9}\MCo{EA}\MCo{EB}\MCo{EC}\MCo{ED}\MCo{EE}\MCo{EF}
\MCo{F0}\MCo{F1}\MCo{F2}\MCo{F3}\MCo{F4}\MCo{F5}\MCo{F6}
\MCo{F8}\MCo{F9}\MCo{FA}\MCo{FB}\MCo{FC}\MCo{FD}\MCo{FE}\MCo{FF}
\def \MSy #1{\ifmmode #1\else $#1$\fi }
\def \MOp #1#2{\ifmmode \def \MNext {#2}\else
  \Error{Command <#1> is only allowed in math mode;}%
    {command ignored.}\let \MNext = \relax \fi
  \MNext }
\def \Mdef #1{\Cdef{#1}{\MSy{\csname #1\endcsname}}}
\def \Odef #1{\Cdef{#1}{\MOp{#1}{\csname #1\endcsname}}}
\Mdef{amalg} \Mdef{bigcirc} \Mdef{bigtriangleup}
\Mdef{bigtriangledown} \Mdef{bullet} \Mdef{cap} \Mdef{circ}
\Mdef{cup} \Mdef{dagger} \Mdef{ddagger} \Mdef{diamond} \Mdef{mp}
\Mdef{odot} \Mdef{ominus} \Mdef{oplus} \Mdef{oslash} \Mdef{otimes}
\Mdef{setminus} \Mdef{sqcap} \Mdef{sqcup} \Mdef{star}
\Mdef{triangleleft} \Mdef{triangleright} \Mdef{uplus} \Mdef{vee}
\Mdef{wedge} \Mdef{wr}
\Cdef{gt}{>} \Cdef{lt}{\ifmmode \mathchar"313C \else <\fi}
\Mdef{approx} \Mdef{asymp} \Mdef{bowtie} \Mdef{cong} \Mdef{doteq}
\Mdef{dashv} \Mdef{equiv} \Mdef{frown} \Mdef{geq} \Mdef{gg} \Mdef{in}
\Mdef{leq} \Mdef{ll} \Mdef{mid} \Mdef{models} \Mdef{neq} \Mdef{ni}
\Mdef{notin} \Mdef{parallel} \Mdef{perp} \Mdef{prec} \Mdef{preceq}
\Mdef{sim} \Mdef{simeq} \Mdef{smile} \Mdef{sqsubseteq} \Mdef{sqsupseteq}
\Mdef{subset} \Mdef{subseteq} \Mdef{supset} \Mdef{supseteq}
\Mdef{succ} \Mdef{succeq} \Mdef{vdash}
\Mdef{langle} \Mdef{lceil} \Mdef{lfloor} \Mdef{rangle}
\Mdef{rceil} \Mdef{rfloor}
\Mdef{leftarrow} \Mdef{rightarrow} \Mdef{leftrightarrow}
\Mdef{longleftarrow} \Mdef{longrightarrow} \Mdef{longleftrightarrow}
\Mdef{uparrow} \Mdef{downarrow}
\Mdef{updownarrow} \Mdef{nearrow} \Mdef{nwarrow} \Mdef{searrow}
\Mdef{swarrow} \Mdef{mapsto} \Mdef{longmapsto} \Mdef{hookleftarrow}
\Mdef{hookrightarrow} \Mdef{leftharpoonup} \Mdef{rightharpoonup}
\Mdef{leftharpoondown} \Mdef{rightharpoondown} \Mdef{rightleftharpoons}
\Cdef{doubleleftarrow}{\MSy{\Leftarrow}}
\Cdef{doublerightarrow}{\MSy{\Rightarrow}}
\Cdef{doubleleftrightarrow}{\MSy{\Leftrightarrow}}
\Cdef{doublelongleftarrow}{\MSy{\Longleftarrow}}
\Cdef{doublelongrightarrow}{\MSy{\Longrightarrow}}
\Cdef{doublelongleftrightarrow}{\MSy{\Longleftrightarrow}}
\Cdef{doubleuparrow}{\MSy{\Uparrow}}
\Cdef{doubledownarrow}{\MSy{\Downarrow}}
\Cdef{doubleupdownarrow}{\MSy{\Updownarrow}}
\Odef{bigcap} \Odef{bigcup} \Odef{bigodot} \Odef{bigoplus}
\Odef{bigotimes} \Odef{bigsqcup} \Odef{biguplus} \Odef{bigvee}
\Odef{bigwedge} \Odef{coprod} \Odef{int} \Odef{oint}
\Odef{prod} \Odef{sum}
\Cdef{pr}{\MSy{\Pr}}
\Mdef{arccos} \Mdef{arcsin} \Mdef{arctan} \Mdef{arg} \Mdef{cos}
\Mdef{cosh} \Mdef{cot} \Mdef{coth} \Mdef{csc} \Mdef{deg} \Mdef{det}
\Mdef{dim} \Mdef{exp} \Mdef{gcd} \Mdef{hom} \Mdef{inf} \Mdef{ker}
\Mdef{lg} \Mdef{lim} \Mdef{liminf} \Mdef{limsup} \Mdef{ln}
\Mdef{log} \Mdef{max} \Mdef{min} \Mdef{sec} \Mdef{sin} \Mdef{sinh}
\Mdef{sup} \Mdef{tan} \Mdef{tanh}
\Mdef{alpha} \Mdef{beta} \Mdef{gamma} \Mdef{delta} \Mdef{epsilon}
\Mdef{varepsilon} \Mdef{zeta} \Mdef{eta} \Mdef{theta} \Mdef{vartheta}
\Mdef{iota} \Mdef{kappa} \Mdef{lambda} \Mdef{mu} \Mdef{nu} \Mdef{xi}
\Cdef {omicron}{\MSy{o}} \Mdef{pi} \Mdef{varpi} \Mdef{rho} \Mdef{varrho}
\Mdef{sigma} \Mdef{varsigma} \Mdef{tau} \Mdef{upsilon} \Mdef{phi}
\Mdef{varphi} \Mdef{chi} \Mdef{psi} \Mdef{omega}
\Cdef{ucgamma}{\MSy{\Gamma}} \Cdef{ucdelta}{\MSy{\Delta}}
\Cdef{uctheta}{\MSy{\Theta}} \Cdef{uclambda}{\MSy{\Lambda}}
\Cdef{ucxi}{\MSy{\Xi}}       \Cdef{ucpi}{\MSy{\Pi}}
\Cdef{ucsigma}{\MSy{\Sigma}} \Cdef{ucupsilon}{\MSy{\Upsilon}}
\Cdef{ucphi}{\MSy{\Phi}}     \Cdef{ucpsi}{\MSy{\Psi}}
\Cdef{ucomega}{\MSy{\Omega}}
\def \MGr #1#2{\Cdef{#1}{\MSy{\mathchar"#2}}}
\MGr{ucalpha}{0041}   \MGr{ucbeta}{0042} \MGr{ucepsilon}{0045}
\MGr{uczeta}{005A}    \MGr{uceta}{0048}  \MGr{uciota}{0049}
\MGr{uckappa}{004B}   \MGr{ucmu}{004D}   \MGr{ucnu}{004E}
\MGr{ucomicron}{004F} \MGr{ucrho}{0050}  \MGr{uctau}{0054}
\MGr{ucchi}{0058}
\def \MCal #1{\Cdef{cal#1}{\uppercase{\MSy{\cal #1}}}}
\MCal{a} \MCal{b} \MCal{c} \MCal{d} \MCal{e} \MCal{f} \MCal{g}
\MCal{h} \MCal{i} \MCal{j} \MCal{k} \MCal{l} \MCal{m} \MCal{n}
\MCal{o} \MCal{p} \MCal{q} \MCal{r} \MCal{s} \MCal{t} \MCal{u}
\MCal{v} \MCal{w} \MCal{x} \MCal{y} \MCal{z}
\Mdef{aleph} \Mdef{angle} \Mdef{bot} \Mdef{ell} \Mdef{emptyset}
\Mdef{exists} \Mdef{forall} \Mdef{hbar}
\Mdef{nabla}\Mdef{neg}\Odef{not} \Mdef{partial} \Mdef{surd}
\Mdef{top} \Mdef{wp}
\Cdef{,}{{,}}
\Cdef{...}{\MSy{\ldots}\hskip 0.001pt \relax }
\Cdef{:}{\MSy{\vdots}}\Cdef{:::}{\MSy{\cdots}}
\Cdef{infinity}{\MSy{\infty}}\Cdef{im}{\MSy{\Im}}\Cdef{re}{\MSy{\Re}}
\Cdef {sub}{\MOp{sub}{\NewEnvir{sub}{_\bgroup}{\egroup}}}
\Cdef {/sub}{\MOp{/sub}{\EndEnvir{sub}}}
\Cdef {sup}{\MOp{sup}{\NewEnvir{sup}{^\bgroup}{\egroup}}}
\Cdef {/sup}{\MOp{/sup}{\EndEnvir{sup}}}
\Cdef {frac}{\MOp{frac}{\NewEnvir{frac}{\bgroup}{\egroup}%
    \NOver = 0\relax}}
\Cdef {over}{\MOp{over}{\FracOver}}
\Cdef {/frac}{\MOp{/frac}{\ifnum \NOver = 0
    \Error{No <over> in the <frac>...<over>...</frac> environment.}{}\fi
    \EndEnvir{frac}}}
\def \FracOver {\ifTextEqual{\CurEnv}{frac}%
    \ifnum \NOver = 0 \over
    \else \Error{Only one <over> may occur in each <frac>...</frac>
        environment.}{}%
    \fi  \advance \NOver by 1
  \else \Error{<over> only allowed in a
    <frac>...<over>...</frac> environment.}{}%
  \fi }
\newcount \NOver
\Cdef {sqrt}{\MOp{sqrt}{\NewEnvir{sqrt}{\sqrt\bgroup}{\egroup}}}
\Cdef {/sqrt}{\MOp{/sqrt}{\EndEnvir{sqrt}}}
\Cdef {psfig}{\if \State x \let \Next = \PSfig \else
  \let \Next = \PSfigError \fi
  \Next }
\Cdef {/psfig}{\AddVspace{6pt plus 1pt}
  \ifx \PSfile \relax \else
    \centerline{\epsfbox{\PSfile}}%
    \AddVspace{10pt plus 2pt minus 1pt}
  \fi
  \EndEnvir{psfig}}
\def \PSfig{\NewEnvir{psfig}{\topinsert}{\endinsert}
  \let \PSfile = \relax \let \State = p
  \IfNextChar{[}%
    {\PSfetch}%
    {\Error{No file name for PostScript figure;}%
      {the syntax is: <psfig>[file name]caption text</psfig>.}%
     \PScaption}}
\def \PSfigError {\endgraf
  \Error{Calls on <psfig> not allowed inside <psfig> or <table>;}%
     {the command was ignored.}%
  \NewEnvir{psfig}{\begingroup}{\endgroup}}
\input epsf.tex
\def \PSfetch [#1]{\IfFileExists{#1}%
    {\gdef \PSfile {#1}}%
    {\Error{PostScript file `#1' could not be found.}{}}%
    \PScaption }
\def \epsfsize #1#2{0pt \dimen1 = 0.8\hsize  \dimen2 = 0.4\vsize
  \floatdiv{\dimen2}{#1}{#2}%
  \ifdim \dimen1 < \divres \epsfxsize = 0.8\hsize
  \else \epsfysize = 0.4\vsize \fi }
\def \PScaption {\global\advance \FigCnt by 1
  \edef \CurDef {\the\FigCnt}
  \leftskip = 0.1\hsize  \rightskip = \leftskip
  \ResetFont \SetSize{S}\Indentfalse
  \FigureName~\FigIm: \ignorespaces }
\newcount \FigCnt
\Cdef {table}{\if \State x\let \Next = \Table \else
  \let \Next = \TableError \fi
  \Next }
\Cdef {/table}{\EndEnvir{table}}
\newbox \TableBox
\def \Table{\topinsert
  \NewEnvir{table}{\TableCaption}{\LastRow\endinsert}%
  \let \State = t}
\def \TableCaption {\global\advance \TabCnt by 1
  \edef \CurDef {\the\TabCnt}
  \leftskip = 0.1\hsize  \rightskip = \leftskip
  \ResetFont \SetSize{S}\Indentfalse
  \TableName~\TabIm: \ignorespaces }
\newcount \TabCnt
\def \TableError {\endgraf
  \Error{Calls on <table> not allowed inside <psfig>
    or <table>;}{the command was ignored.}%
  \NewEnvir{table}{\begingroup}{\endgroup}}
\Cdef {row}{\Row}
\def \Row {\if \State t\FirstRow\NewRow \else
   \if \State r\EndRow\NewRow   \else
   \Error{The <row> command is only allowed inside a
     <table>.}{The command was ignored.}\fi\fi }
\def \FirstRow {\endgraf \ResetFont \SelectFont \let \State = r%
  \setbox\TableBox = \hbox\bgroup \vbox\bgroup \offinterlineskip
    \halign\bgroup \vrule ##\strut&&
      \kern 6pt \hfil ##\unskip \hfil \kern 6pt \vrule \cr
      \noalign{\hrule}}
\def \NewRow {&}
\def \EndRow {\cr \noalign{\hrule}}
\def \LastRow {\if \State r\EndRow\PrintTable\fi}
\def \PrintTable {\egroup\egroup\egroup
  \AddVspace{6pt plus 2pt minus 1pt}
  \centerline{\box\TableBox}%
  \AddVspace{10pt plus 4pt minus 2pt}}
\Cdef {col}{\if \State r&\else
  \Error{The <col> command is only allowed after a <row>
    inside a <table>.}{The command was ignored.}\fi}
\newif \ifAuxOpen
\Cdef {label}{\IfNextChar{[}%
    {\begingroup \catcode`\< = 12 \NewLabel}%
    {\Error{No label given;}%
      {the syntax is <label>[your label].}}}
\def \NewLabel [#1]{\endgroup
  \ifAuxRead \else \ReadAuxFile \fi
  \ifAuxOpen \else
    \immediate\openout \NewAuxFile = \jobname.aux
    \global\AuxOpentrue \fi
  \expandafter\ifx \csname L]#1\endcsname \relax
    \expandafter\edef \csname L]#1\endcsname{\the\inputlineno}%
    {\let \the = 0\relax
      \edef \WriteCurDef {\write \NewAuxFile
        {\string\LabelDef
          ]#1]\the\pageno]\CurDef E-o-LabelDef\string\relax}}%
      \WriteCurDef }%
  \else
    \Error{Label `#1' already defined on line \csname L]#1\endcsname;}%
      {this definition is ignored.}%
  \fi }
\newwrite \NewAuxFile
\edef \CurDef {0}
\def \ReadAuxFile {\IfFileExists{\jobname.aux}%
    {\begingroup
       \def \LabelDef {\begingroup
          \catcode `\\ = 12\relax \FetchLabel }%
       \catcode `\< = 12 \catcode `\\ = 0\relax
       \input \jobname.aux
       \global\AuxReadtrue
     \endgroup }%
    {\global\Reruntrue}}
\def \FetchLabel ]#1]#2]#3E-o-LabelDef{%
    \expandafter\gdef \csname R]#1\endcsname {#3}%
    \expandafter\gdef \csname P]#1\endcsname {#2}%
  \endgroup }
\newif \ifAuxRead
\newif \ifRerun
\def \CheckAux {\immediate\closeout \NewAuxFile
  \begingroup
    \def \LabelDef {\begingroup
        \catcode `\\ = 12 \relax  \CheckLabel }%
    \catcode `\< = 12  \catcode `\\ = 0\relax
    \input \jobname.aux
  \endgroup }
\def \CheckLabel ]#1]#2]#3E-o-LabelDef{%
  \ifTextEqual{#2++#3}%
    {\csname P]#1\endcsname++\csname R]#1\endcsname}%
  \else
    \global\Reruntrue
  \fi \endgroup }
\Cdef {ref}{\IfNextChar{[}%
  {\begingroup \catcode `\< = 12 \relax \GiveRef }%
  {\Error{No label referenced;}{the syntax is <ref>[your label].}}}
\def \GiveRef [#1]{\ifAuxRead \else \ReadAuxFile \fi
  \expandafter\ifx \csname R]#1\endcsname \relax
    [label #1]%
    \Error{Label `#1' not defined.}{}\global\Reruntrue
  \else
    \RefFormat{\csname R]#1\endcsname}{\csname P]#1\endcsname}%
  \fi \endgroup }
\def \RefFormat #1#2{#1\ifTextEqual{#2}{\the\pageno}\else
    \space on page~#2\fi }
{\catcode`\~ = 12 \Cdef {~}{\penalty10000\ }}
\Cdef {}{\null}
\Cdef {-}{\-}
\Cdef {--}{--}
\Cdef {---}{---}
\Cdef {``}{``}
\Cdef {''}{''}
\Cdef {tex}{\TeX}
\Cdef {latex}{La\TeX}
\Cdef {startex}{Star\TeX}
\def \Error #1#2{%
  \message{^^J** StarTeX error detected on line \the\inputlineno:^^J}%
  \message{\space\space\space #1^^J}%
  \ifTextEqual{#2}{}\else \message{\space\space\space #2^^J}\fi}
\def \Warning #1#2{%
  \message{^^J** StarTeX warning:^^J}%
  \message{\space\space\space #1^^J}%
  \ifTextEqual{#2}{}\else \message{\space\space\space #2^^J}\fi}
\newlinechar = `^^J
\Cdef {comment}{\NewEnvir{comment}{\begingroup}{\endgroup}%
  \catcode `\< = 12 \SkipComment }
{\catcode `\< = 12
  \gdef \SkipComment #1</comment>{\EndEnvir{comment}}}
\def \ifTextEqual #1#2{\edef \TmpA {#1}\edef \TmpB {#2}%
  \ifx \TmpA\TmpB }
\def \IfNextChar #1#2#3{\def \TestChar {#1}%
  \def \AltA {#2}\def \AltB {#3}%
  \futurelet \NextChar \TestNextChar }
\def \TestNextChar {%
  \if \NextChar \TestChar \let\Next=\AltA \else \let\Next=\AltB \fi
  \Next }
\def \IfNextCharTwo #1#2#3#4{\def \TestChar {#1}\def \TestCharX {#2}%
  \def \AltA {#3}\def \AltB {#4}%
  \futurelet \NextChar \TestNextCharTwo }
\def \TestNextCharTwo {%
  \if \NextChar \TestChar  \let \Next = \AltA \else
  \if \NextChar \TestCharX \let \Next = \AltA \else
    \let \Next = \AltB
  \fi \fi
  \Next }
\def \floatdiv #1#2#3{\divtemp = #1\divide \divtemp by #3%
  \divres = #2\multiply \divres by \divtemp
  \multiply \divtemp by #3%
  \divrem = #1\advance \divrem by -\divtemp
  \divtemp = #2%
  \loop
    \multiply \divrem by 2  \divide \divtemp by 2
  \ifnum \divtemp > 0
    \ifnum \divrem < #3\else
      \advance \divrem by -#3\advance \divres by \divtemp
    \fi
  \repeat }
\newdimen \divrem   \newdimen \divres   \newdimen \divtemp
\def \IfFileExists #1#2#3{\openin\TestFile = #1
  \ifeof\TestFile \def \Next {#3}\else
  \closein\TestFile \def \Next {#2}\fi
  \Next }
\newread \TestFile
\Cdef {make-new-format}{\dump}
\Cdef {trace-on}{\tracingcommands = 1 \tracingmacros = 1
  \tracingrestores = 1 \tracingoutput = 1 \relax }
\Cdef {trace-off}{\tracingcommands = 0 \tracingmacros = 0
  \tracingrestores = 0 \tracingoutput = 0 \relax }
\input startex.lan
\ResetFont \SetSize{N}
\endinput \SpecialCatCodes
\endinput
%% 
%% End of file `startex.tex'.