\relax
% ======================================================================
% T h e T e X - R e d u c e - I n t e r f a c e: TeX-Module
% ======================================================================
% (C) 1987 by Rechenzentrum der Universitaet zu Koeln
% (University of Cologne Computer Center)
% Abt. Anwendungssoftware
% (Application Software Department)
% Robert-Koch-Str. 10
% 5000 Koeln 41
% Federal Republic of Germany
% e-mail: reduce@dk0rrzk0.bitnet
% All rights reserved. Permission to copy without fee all or part of
% this software product is hereby granted provided that the copies are
% not made or distributed for direct commercial advantage, this copy-
% right notice and its date appear, and notice is given that copying is
% by permission of the authors. To copy otherwise requires a fee and/or
% specific permission.
% ======================================================================
% 25-Jul-89 Author: Werner Antweiler Version 0.10
% ======================================================================
%
\def\frac#1#2{{#1\over#2}}
\def\CO{,}\def\<{\langle}\def\>{\rangle}\def\d{\hbox{\rm d}}
\newcount\parenthesis \parenthesis=0 \newcount\n
\def\({\global\advance\parenthesis by1\left(}
\def\){\global\advance\parenthesis by-1\right)}
\def\{{\global\advance\parenthesis by1\left\lbrace}
\def\}{\global\advance\parenthesis by-1\right\rbrace}
\def\[{\relax} % dummy parenthesis
\def\]{\relax} % dummy parenthesis
\def\Loop#1\Repeat{\global\n=0\global\let\body=#1\iterate}
\def\iterate{\body\let\next=\iterate\else\let\next=\relax\fi\next}
\def\ldd{\ifnum\n<\parenthesis\global\advance\n by1
\left.\nulldelimiterspace=0pt\mathsurround=0pt}
\def\rdd{\ifnum\n<\parenthesis\global\advance\n by1
\right.\nulldelimiterspace=0pt\mathsurround=0pt}
\def\nl{\Loop\rdd\Repeat\hfill\cr\qdd\Loop\ldd\Repeat{}}
\def\OFF#1{\hskip#1sp\relax}
\def\off#1{\hskip#1sp\relax}
\def\Nl{\hfill\cr}
\def\qdd{\quad\quad}
% ---------------- special code for TRI examples --------------
\newcount\exacount\exacount=0\font\caps=cmcsc10
\def\Istrut{\vrule height11pt depth4pt width0pt}
\def\TRIexa#1#2#3#4{\global\advance\exacount by1\par\filbreak
{\offinterlineskip
\vbox{\hrule\hbox to\hsize{\Istrut\vrule
\hbox to 8mm{\hfil\caps\the\exacount\hfil}\vrule
\quad\rm#1\hfill\vrule
\hbox to 32mm{\hfill{\caps Mode: }{\tt #2}\hfill}\vrule
\hbox to 32mm{\hfill{\caps Tolerance: }{\tt #3}\hfill}\vrule}
\hrule\hbox to\hsize{\Istrut\vrule\hfill#4\hfill\vrule}\hrule}
}\nobreak}
% End.