% SCREEN.STY is used to create a LaTeX document suitable for SCREENVIEWing.
%
\typeout{Document style option `Screen',   8 Apr 1993 MG/AS}
%
\def\baselinestretch{1}
\ifx\selectfont\undefined
  \def\rm{\protect\pdoc}
  \def\it{\protect\pdoc}
  \def\bf{\protect\pdoc}
  \def\sl{\protect\pdoc}
  \def\sf{\protect\pdoc}
  \def\sc{\protect\pdoc}
  \def\tt{\protect\pdoc}
  \newfam\docfam
  \def\pdoc{\@getfont\pdoc\docfam\@xpt{doc}}
  \xpt 
\else
   \new@fontshape{doc}{m}{n}{%
     <5>doc%
     <6>doc%
     <7>doc%
     <8>doc%
     <9>doc%
     <10>doc%
     <11>doc%
     <12>doc%
     <14>doc%
     <17>doc%
     <20>doc%
     <24>doc%
     <25>doc%
     <29>doc%
     <34>doc%
     <41>doc%
     }{}
  \fontfamily{doc}\let\fontfamily=\@gobble\let\family=\@gobble
  \fontseries{m}\let\fontseries=\@gobble\let\series=\@gobble
  \fontshape{n}\let\fontshape=\@gobble\let\shape=\@gobble
  \global\let\mathversion\@gobble
  \global\let\getanddefine@fonts\@gobbletwo
  \let\fontsize=\@gobbletwo
  \selectfont
  \def\selectfont{}
\fi
  \let\normalzise\relax
  \let\tiny\relax
  \let\scriptsize\relax
  \let\footnotesize\relax
  \let\small\relax
  \let\large\relax
  \let\Large\relax
  \let\LARGE\relax
  \let\huge\relax
  \let\Huge\relax
  \let\rm=\relax
  \let\it\relax
  \let\bf\relax
  \let\sl\relax
  \let\sf\relax
  \let\sc\relax
  \let\tt\relax
 
\let\xpt\relax
\let\xipt\relax
\let\xiipt\relax
\let\em=\relax \let\/=\relax
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%       This text translation quants
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\newdimen\hquant
\newdimen\vquant
\hquant=\the\fontdimen2\the\font % this width of the each letter of font
\ifcase \@ptsize
   \vquant=12pt            % this more usefull interline skip !!
\or
   \vquant=14pt
\or 
   \vquant=16pt
\fi
\spaceskip=\hquant% plus 3.25pt
\xspaceskip=\hquant% plus 3.25pt
\frenchspacing
\baselineskip=\vquant
\lineskip 0.7\vquant%                for sub/sup
%[AS] \lineskip=0pt 
\lineskiplimit=0pt
%
\normallineskip=\lineskip
\normallineskiplimit=\lineskiplimit
\normalbaselineskip=\baselineskip
%
\hyphenchar\the\font=`\-
\newcount\along@h
\newcount\along@v
\along@h=\hquant
\along@v=\vquant
% tell PosTeX for produce text output
\@ifundefined{screen@FF}{\def\screen@FF{F:}}{}
\special{textout: G:0  H:\the\along@h\space V:\the\along@v\space \screen@FF}
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%       Important style parameters
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  Define as quants or round all dimensions
%
\newcount\cc@tmp
\headheight\vquant
\headsep2\vquant
\footskip2\vquant
%
\cc@tmp = \textheight  \divide\cc@tmp  by \along@v \advance\cc@tmp by 1
\textheight = \cc@tmp\vquant
%
\topskip=1pt
\advance\textheight by \topskip
\topmargin=0pt
\raggedbottom
%
%
\cc@tmp = \textwidth  \divide\cc@tmp  by \along@h \advance\cc@tmp by 1
\ifnum\cc@tmp>74 \cc@tmp=74\fi
\textwidth = \cc@tmp\hquant
%
\columnsep 2\hquant
\columnseprule 0pt
\parindent=0pt
\parskip=\vquant
\partopsep=0pt
\voffset=0pt
\hoffset=0pt
\oddsidemargin=0pt
\evensidemargin=0pt
%
\headheight=\vquant
\headsep=\vquant
\footheight=\vquant
\footskip=2\vquant
\footnotesep \vquant
\skip\footins \vquant
% move footnote rule 6pt higher
%\def\footnoterule{\kern-9\p@
%  \hrule \@width 2in\kern 8.6\p@} % the \hrule is .4pt high
%
\@rightskip\@flushglue
\rightskip\@rightskip
%\raggedright
 
\let\onecolumn=\relax
\let\twocolumn=\relax
 
\let\smallskip=\bigskip
\let\medskip=\bigskip
 
\def\multicols#1{}
\def\endmulticols{}
\newcount\col@number
\col@number=1
 
\renewcommand{\arraystretch}{1.7}
\advance\jot by 5pt
\arraycolsep = 2\hquant
\tabcolsep = 2\hquant
\doublerulesep = 2\hquant
\arrayrulewidth = 1sp % as thick as possible
 
\floatsep \vquant
\textfloatsep \vquant
\intextsep \vquant
\@maxsep \vquant
\dblfloatsep \vquant
\dbltextfloatsep 2\vquant
\@dblmaxsep 3\vquant
\@fptop 0pt plus 1fil \@fpsep\vquant plus 2fil \@fpbot 0pt plus 1fil
\@dblfptop 0pt plus 1fil \@dblfpsep\vquant plus 2fil \@dblfpbot 0pt plus 1fil
\@lowpenalty 51 \@medpenalty 151 \@highpenalty 301
\@beginparpenalty -\@lowpenalty \@endparpenalty -\@lowpenalty \@itempenalty
-\@lowpenalty
%
\abovedisplayskip\vquant
\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@
\belowdisplayshortskip \z@
%
\topsep=0pt \partopsep=0pt \itemsep=0pt \parsep=0pt
\leftmargini    4\hquant
\leftmarginii   8\hquant
\leftmarginiii 12\hquant
\leftmarginiv  16\hquant
%
\labelsep \hquant
\labelwidth\leftmargini\advance\labelwidth-\labelsep
\def\@listI{\leftmargin\leftmargini}
\let\@listi\@listI
\@listi
\def\@listii{\leftmargin\leftmarginii
 \labelwidth\leftmarginii\advance\labelwidth-\labelsep}
\def\@listiii{\leftmargin\leftmarginiii
 \labelwidth\leftmarginii\advance\labelwidth-\labelsep}
\def\@listiv{\leftmargin\leftmarginiv
 \labelwidth\leftmarginii\advance\labelwidth-\labelsep}
\def\@listv{\leftmargin\leftmarginv
 \labelwidth\leftmarginii\advance\labelwidth-\labelsep}
%
\fboxsep =  1sp% ifdim\hquant>\vquant 0.70\hquant \else 0.70\vquant\fi
\fboxrule = 1sp%
%
% Logos
%
\def\LaTeX{LaTeX}
\def\TeX{TeX}
\def\SliTeX{SliTeX}
\def\SLiTeX{SLiTeX}
\def\BibTeX{BibTeX}
\def\AmS{AMS}
\def\AmSTeX{AMSTeX}
%
% some commands
\def\copyright{(C)}
\def\dots{...}
 
 
\def\@nnil{\@nil}
\def\@empty{}
\def\@fornoop#1\@@#2#3{}
 
\long\def\@sfor#1:=#2\do#3{\edef\@fortmp{#2}\ifx\@fortmp\@empty \else
    \expandafter\@sforloop#2 {\@nil} \@nil\@@#1{#3}\fi}
 
\long\def\@sforloop#1 #2 #3\@@#4#5{\def#4{#1}\ifx #4\@nnil \else
       #5\def#4{#2}\ifx #4\@nnil \else#5\@siforloop #3\@@#4{#5}\fi\fi}
 
\long\def\@siforloop#1 #2\@@#3#4{\def#3{#1}\ifx #3\@nnil
       \let\@nextwhile\@fornoop \else
      #4\relax\let\@nextwhile\@siforloop\fi\@nextwhile#2\@@#3{#4}}
 
\def\superunder#1{\edef\@tempa{}% initial saving
\@sfor \@qqq:=#1\do
{
%%%%%    \edef\@tempb{\@tempa\@qqq}%
    \setbox\@tempboxa=\hbox{\@tempa\@qqq}%
    \ifdim \wd\@tempboxa > 0.80\textwidth
     %\hspace*{7\hquant}%
     \mbox{~~~~~~~}~\mbox{\underline{\@tempa}}~\mbox{~~~~~~~}
     %\hspace*{7\hquant}
          \xdef\@tempa{\@qqq\space}%
    \else
    \xdef\@tempa{\@tempa\@qqq\space}%
    \fi%% \message{\@tempa}
}
    \mbox{\underline{\@tempa}}
}
\newdimen\@tempdimc
\def\underline#1{\ifmmode\@@underline{#1}\else
\setbox\@tempboxa\hbox{#1}%
\hbox{\@tempdima=\dp\@tempboxa%
      \ifdim\@tempdima < \vquant  \@tempdimc=\vquant%
                  \advance\@tempdimc  by -\@tempdima%
                  \@tempdima = \vquant%
        \else    \advance\@tempdima  by \fboxsep%
          \@tempdimc=\fboxsep   \fi
        \advance\@tempdima by \fboxrule%
       \@tempdimb = \wd\@tempboxa%
       \advance\@tempdimb by -1ex%
%      \message{depth= \the\dp\@tempboxa, vquant=\the\vquant}
%      \message{a,b,c = \the\@tempdima, \the\@tempdimb, \the\@tempdimc}
      \lower \@tempdima\hbox{\vbox{%
                                   \hbox{\copy\@tempboxa}%
                                   \kern \@tempdimc%
               \hrule \@height \fboxrule \@width \@tempdimb%
                                  }%
                            }%
     }%
\fi}%
 
%% (Extra space removed 21 Jun 1991)
\long\def\qbox#1{\leavevmode\setbox\@tempboxa\hbox{#1}\@tempdima\fboxrule
    \advance\@tempdima \fboxsep \advance\@tempdima \dp\@tempboxa
   \hbox{\lower \@tempdima\hbox
  {\vbox{\hrule \@height \fboxrule
          \hbox{\vrule \@width \fboxrule \hskip\hquant
          \vbox{\vskip\fboxsep\@tempboxa\vskip\fboxsep}\hskip \hquant
                 \vrule \@width \fboxrule}%
                 \hrule \@height \fboxrule}}}}
 
 
%
% from dvidoc
%
\count@=16
\loop
 \ifnum\count@ >0
  \advance\count@ by-1
  \global\textfont\count@=\the\font
  \global\scriptfont\count@=\the\font
  \global\scriptscriptfont\count@=\the\font
 \repeat
 
\mathcode`\*="612A
\mathcode`\-="612D
\mathcode`\\="015C
\mathcode`\/="612F
\mathcode`\.="612E
\mathcode`\,="612C
\mathcode`\{="417B
\mathcode`\|="417C
\mathcode`\}="417D
\mathcode`\'="0127
\mathcode`\<="013C
\mathcode`\>="013E
 
\def\alpha{{\tt alpha}}
\def\beta{{\tt beta}}
\def\gamma{{\tt gamma}}
\def\delta{{\tt delta}}
\def\epsilon{{\tt epsilon}}
\def\zeta{{\tt zeta}}
\def\eta{{\tt eta}}
\def\theta{{\tt theta}}
\def\iota{{\tt iota}}
\def\kappa{{\tt kappa}}
\def\lambda{{\tt lambda}}
\def\mu{{\tt mu}}
\def\nu{{\tt nu}}
\def\xi{{\tt xi}}
\def\pi{{\tt pi}}
\def\rho{{\tt rho}}
\def\sigma{{\tt sigma}}
\def\tau{{\tt tau}}
\def\upsilon{{\tt upsilon}}
\def\phi{{\tt phi}}
\def\chi{{\tt chi}}
\def\psi{{\tt psi}}
\def\omega{{\tt omega}}
\def\varepsilon{{\tt varepsilon}}
\def\vartheta{{\tt vartheta}}
\def\varpi{{\tt varpi}}
\def\varrho{{\tt varrho}}
\def\varsigma{{\tt varsigma}}
\def\varphi{{\tt varphi}}
\def\Gamma{{\tt Gamma}}
\def\Delta{{\tt Delta}}
\def\Theta{{\tt Theta}}
\def\Lambda{{\tt Lambda}}
\def\Xi{{\tt Xi}}
\def\Pi{{\tt Pi}}
\def\Sigma{{\tt Sigma}}
\def\Upsilon{{\tt Upsilon}}
\def\Phi{{\tt Phi}}
\def\Psi{{\tt Psi}}
\def\Omega{{\tt Omega}}
\def\aleph{{\tt aleph}}
\def\ell{{\tt l}}
\def\Re{{\tt re}}
\def\Im{{\tt Im}}
\def\partial{{\tt partial\ }}
 
\mathchardef\times="2178
 
\mathchardef\lbrace="417B %\let\{=\lbrace
\mathchardef\rbrace="417D %\let\}=\rbrace
\mathchardef\langle="413C
\mathchardef\rangle="413E
\mathchardef\ldotp="612E % ldot as a punctuation mark
\mathchardef\cdotp="622E % cdot as a punctuation mark
\mathchardef\colon="603A % colon as a punctuation mark
\mathchardef\not="6021 % \not is ! mark, as in `C'
 
\def\rightarrow{{\tt ->}}
\def\leftarrow{{\tt <-}}
\def\Longleftrightarrow{{\tt <=>}}
\let\Longrightarrow\rightarrow
\let\Longleftarrow\leftarrow
\def\gg{{\tt >>}}
\def\ll{{\tt <<}}
\def\leq{{\tt <=}} \let\le=\leq
\def\geq{{\tt >=}} \let\ge=\geq
\def\equiv{{\tt ==}}
\def\lnot{{\tt not }}
 
\def\frac#1#2{((#1)/(#2))}
 
\def\"#1{\ifx #1aae\else
         \ifx #1ooe\else
         \ifx #1uue\else
         \ifx #1AAe\else
         \ifx #1OOe\else
         \ifx #1UUe\fi\fi\fi\fi\fi\fi}
%
\def\`#1{`#1}
\def\'#1{'#1}
\def\^#1{^#1}
\def\~#1{~#1}
\def\=#1{#1}
\def\.#1{#1}
\def\u#1{#1}
\def\v#1{#1}
\def\H#1{#1}
\def\c#1{#1}
\def\t#1{#1}
\def\d#1{#1}
\def\b#1{#1}
%
\def\oe{oe}
\def\OE{OE}
\def\ae{ae}
\def\AE{AE}
\def\AA{A}
\def\aa{a}
\def\o{o}
\def\O{o}
\def\l{l}
\def\L{L}
\def\ss{ss}
\def\dag{+}
\def\ddag{++}
\def\S{S}
\def\P{P}
%
\def\sqrt#1{sqrt(#1)}
\def\int{\mathop{\hbox{\rm int }}\limits}
\let\left\empty
\let\right\empty
\def\sum{\mathop{\hbox{\rm sum }}\limits}
\def\prod{\mathop{\hbox{\rm prod }}\limits}
\def\log{\mathop{\hbox{\rm log }}}
\def\exp{\mathop{\hbox{\rm exp }}}
\def\tan{\mathop{\hbox{\rm tan }}}
 
\let\bullet=*
 
\def\to{{\tt ->}}
\def\circ{{\tt\ o }}
\def\mid{{\tt |}}
\def\parallel{{\tt ||}}
\def\overline#1{#1-bar}


