%
%                          CRL Extensions to LaTeX
%
\typeout{CRL Extensions to LaTeX.  V01.0 by RL Aurbach, 13-Apr-1986}
%
%******************************************************************************
%                       Define the Outline Environment
%
%               Syntax:  \begin{outline}  text   \end{outline}
%
%   		Note:    The outline environment is an Enumerate 
%   		         Environment with a different style of numbering.
%******************************************************************************
%
\@definecounter{outlni} \@definecounter{outlnii} \@definecounter{outlniii}
\@definecounter{outlniv} \@definecounter{outlnv}
\newcount\@outlndepth  \@outlndepth =0

\def\outline{\ifnum \@outlndepth >4 \@toodeep \else \advance\@outlndepth\@ne
  \edef\@outlnctr{outln\romannumeral\the\@outlndepth}\list
  {\csname label\@outlnctr\endcsname}{\usecounter{\@outlnctr}
  \def\makelabel##1{\hss\llap{##1}}}\fi}
\let\endoutline =\endlist

\def\labeloutlni{\Roman{outlni}.}       \def\theoutlni{\Roman{outlni}}
\def\labeloutlnii{\Alph{outlnii}.}      \def\theoutlnii{\Alph{outlnii}}
\def\labeloutlniii{\arabic{outlniii}.}  \def\theoutlniii{\arabic{outlniii}}
\def\labeloutlniv{\alph{outlniv}.}      \def\theoutlniv{\alph{outlniv}}
\def\labeloutlnv{(\roman{outlnv})}      \def\theoutlnv{\roman{outlnv}}
\def\p@outlnii{\theoutlni.}             \def\p@outlniii{\p@outlnii\theoutlnii.}
\def\p@outlniv{\p@outlniii\theoutlniii.}\def\p@outlnv{\p@outlniv\theoutlniv.}

%
%******************************************************************************
%                            InfoMap Environment
%
%        Syntax:  \begin{infomap}   \item[LABEL] text  \end{infomap}
%
%   	 Where:   LABEL is the text to be placed in the Information
%   	          Mapping SignPost at the current left margin.
%
%   	 Note:    This environment is equivalent to a Description
%   	          Environment with a different visual format.
%*****************************************************************************
%
\newdimen\infomapmargin
\newdimen\infomapwidth

\infomapmargin 115pt
\infomapwidth 103pt
\def\infomaplabel#1{\raisebox{0pt}[1em][0pt]{\makebox[\labelwidth][l]
    {\parbox[t]{\infomapwidth}{\bf #1}}}}
\def\infomap{\list{}{\leftmargin\infomapmargin
    \labelwidth\leftmargin\advance\labelwidth-\labelsep
    \let\makelabel\infomaplabel}}
\let\endinfomap\endlist
\def\ttitem[#1]{\item[{\tt #1}]}
%
%******************************************************************************
%                              Note Environment
%
%              Syntax:  \begin{note}[TITLE]   text   \end{note}
%
%   	       Where:   TITLE is the optional title for the note.
%     			      if blank, "Note" will be used.
%
%   	       Note:    This environment is conceptually similar
%   			to a Quote environment with a heading.
%******************************************************************************
%
\def\note{\@ifnextchar [{\@note}{\@note[Note]}}
\def\@note[#1]{\par \vspace{1em} \begin{center} \bf #1 \end{center} 
  \nopagebreak[4]  \list{}{\leftmargin 2em \rightmargin\leftmargin }\item[]}
\let\endnote\endlist

%
%******************************************************************************
%                                Ctl Command
%
%                             Syntax:   \ctl{CH}
%
%                     Where:   CH is the character to be
%   			       represented as a Control
%   			       Character (i.e., as ^CH)
%******************************************************************************
%
\def\ctl#1{{\tt $^\wedge$#1}}
%
%******************************************************************************
%                             TradeMark Command
%                         Supplied by Kent McPherson
%
%                            Syntax:  \trademark
%******************************************************************************
%
\def\trademark{{\ooalign
   {\tiny \hfill \raise .085ex\hbox{R}\hfill \crcr
    \scriptsize \mathhexbox20D}}}
%
%******************************************************************************
%                               ULine Command
%                         Supplied by Kent McPherson
%
%              Syntax:	\uline{TEXT-TO-BE-UNDERLINED}{THICKNESS}
%
%   	       Where:	TEXT-TO-BE-UNDERLINED is the text which
%   			will be underlined.
%
%   	        	THICKNESS is the height of the underline
%   			rule.  A typical value might be .5pt.
%******************************************************************************
%
\newlength{\ulength}
\newcommand{\uline}[2]{\settowidth{\ulength}{#1}
    \parbox{\ulength}{{#1} \\[-.75\baselineskip] \rule{\ulength}{#2}}}

%
%******************************************************************************
%           Redefine the \CLEARDOUBLEPAGE command so that it uses
%           the empty page style for the blank page it may throw.
%******************************************************************************
%
\def\cleardoublepage{\clearpage\if@twoside \ifodd\c@page\else
  \if@twocolumn\hbox{}\newpage\fi\hbox{}\thispagestyle{empty}\newpage\fi\fi}
%
%******************************************************************************
%          Redefine the \input command to allow for a missing file.
%
%  ** NOTE:       This command only allows missing files if
%                       the \input{file} form is used.
%******************************************************************************
%
\def\input{\@ifnextchar \bgroup{\@input}{\@@input }}
%
%******************************************************************************
%                             Coverstyle Command
%
%                         Syntax:  \coverstyle{NAME}
%
%   		Where:   NAME is the name of a cover style.
%
%   		Note:    The command will cause the file
%   			 NAME.sty to be read in.
%******************************************************************************
%
\def\coverstyle#1{\def\@coverstyle{#1} 
  \makeatletter \input \@coverstyle.cvrsty \relax \makeatother}
%
%******************************************************************************
%                            ScreenPix Environment
%
%        Syntax:  \begin{screenpix}
%		  \begin{verbatim}
%		   lines of verbatim screen-image text
%		  \end{verbatim}
%		  \end{screenpix}
%
%   	 Where:   the lines of verbatim text may be up to 80 characters long,
%                 not counting a REQUIRED leading space on each line.
%*****************************************************************************
%
\def\screenpix{\small \setlength{\unitlength}{1in} \thicklines
    \begin{picture}(6,.35) \put(3,0){\oval(6,.7)[t]} \end{picture}\par
    \vspace*{-3\parskip}}
\def\endscreenpix{\vspace*{-3\parskip}
    \begin{picture}(6,.35) \put(3,.35){\oval(6,.7)[b]} \end{picture}}