\oddsidemargin  0pt
\evensidemargin  0pt
\marginparwidth 0pt
\marginparsep 0pt
\topmargin   -0.4in
\textwidth   6.2in
\textheight  9.0in

\parskip=0.5\baselineskip \advance\parskip by 0pt plus 2pt
\parindent=\z@
\def\@listI{\leftmargin\leftmargini
   \topsep\z@ \parsep\parskip \itemsep\z@}
\let\@listi\@listI
\@listi
\def\@listii{\leftmargin\leftmarginii
   \labelwidth\leftmarginii\advance\labelwidth-\labelsep
   \topsep\z@ \parsep\parskip \itemsep\z@}
\def\@listiii{\leftmargin\leftmarginiii
    \labelwidth\leftmarginiii\advance\labelwidth-\labelsep
    \topsep\z@ \parsep\parskip \itemsep\z@}
     
% new environments source and rsource for S listings

\begingroup \catcode `|=0 \catcode `[= 1
\catcode`]=2 \catcode `\{=12 \catcode `\}=12
\catcode`\\=12 |gdef|@xsource#1\end{source}[#1|end[source]]
|gdef|@xrsource#1\end{rsource}[#1|end[rsource]]
|endgroup
\def\source{\@totalleftmargin 8mm\small\@verbatim \frenchspacing\@vobeyspaces \@xsource}
\let\endsource=\endtrivlist
\def\rsource{\penalty-\@highpenalty\brule\@totalleftmargin 8mm\small\@verbatim \frenchspacing\@vobeyspaces \@xrsource}
\def\endrsource{\endtrivlist\erule}
\def\brule{\vspace{6mm}\nopagebreak\hrule\nopagebreak}
\def\erule{\nopagebreak\vspace{4pt}\nopagebreak\hrule\nopagebreak\vspace{6mm}}

\def\s.{{\sf S}}
\def\sp{{\sf S-PLUS}}
% for S objects in text
\def\sfn#1{\hskip\mathsurround{\tt #1}{\hskip\mathsurround}}

\mathsurround=1.5pt
