% This macro source file is from the four volume series
% "TeX in Practice" by Stephan von Bechtolsheim, published
% 1993 by Springer-Verlag, New York.
% Copyright 1993 Stephan von Bechtolsheim.
% No warranty or liability is assumed.
% This macro may be copied freely if no fees other than
% media cost or shipping charges are charged and as long
% as this copyright and the following source code itself
% is not changed. Please see the series for further information.
%
% Version: 1.0
% Date: May 1, 1993
%
%
% This source code is documented in 18.3.1, p. III-27.
% Original source in file "tokens1.TEX", starting line 1625.
\wlog{L: "verb-bas.tip" ["tokens1.TEX," l. 1625, p. III-27]}%
% This file DOES belong to format "texip."
\catcode`\@ = 11
\def\MakeOther #1{\catcode `#1 = 12 }
\def\MakeActive #1{\catcode `#1 = \active\relax}
\def\MakeEolActive{\MakeActive{\^^M}}
\def\MakeTabActive{\MakeActive{\^^I}}
\def\MkOthersNoCB{%
    \MakeOther{\ }%
    \MakeOther{\\}%
    \MakeOther{\$}%
    \MakeOther{\&}%
    \MakeOther{\#}%
    \MakeOther{\^}\MakeOther{\^^K}%
    \MakeOther{\_}\MakeOther{\^^A}%
    \MakeOther{\%}%
    \MakeOther{\~}%
}
\def\MkOthers{%
    \MakeOther{\{}%
    \MakeOther{\}}%
    \MkOthersNoCB
}
{\catcode`\^^I = 11
\gdef\@TabAsLiteral{^^I}% 
}
\catcode`\[ = 1
\catcode`\] = 2
[
    \catcode`\{ = 12
    \catcode`\} = 12
    \gdef\LeftBraceText[{]
    \gdef\RightBraceText[}]
]
\catcode`\[ = 12
\catcode`\] = 12
\def\AcuteAccentText{\'{}}
\def\AcuteAccentTt{{\tt\AcuteAccentText}}
\def\AmpersandText{\char`\&}
\def\AmpersandTt{{\tt\AmpersandText}}
\def\ApostropheText{'{}}
\def\ApostropheTt{{\tt\ApostropheText}}
\def\AtSignText{@}
\def\AtSignTt{{\tt\AtSignText}}
{% 
    \catcode`| = 0
    |catcode`\\ = 12
    |gdef|Backslash{\}
}
\def\BackslashTt{{\tt\char`\\}}
\def\CaretText{\char`\^{}}
\def\CaretTt{{\tt\CaretText}}
\def\DollarSignText{\$}
\def\DollarSignTt{{\tt\DollarSignText}}
{
    \catcode`\# = 12
    \gdef\PoundSign{#}
}
\def\pounds{{\it\char'44 }}
\def\DoubleQuoteTt{{\tt"}}
\def\EmDashText{{}---{}}
\def\EmDashTt{{\tt\EmDashText}}
\def\EnDashText{{}--{}}
\def\EnDashTt{{\tt\EnDashText}}
\def\ExclamationPointText{!}
\def\ExclamationPointTt{{\tt\ExclamationPointText}}
\def\GreaterThanSign{>}
\def\GreaterThanSignTt{{\tt\GreaterThanSign}}
\def\HyphenText{-}
\def\HyphenTt{{\tt\HyphenText}}
\def\OpenExclamationText{>}
\def\OpenExclamationTt{{\tt\OpenExclamationText}}
\def\LeftBraceTt{{\tt\LeftBraceText}}
\def\LeftBracketText{[}
\def\LeftBracketTt{{\tt\LeftBracketText}}
\def\LeftParenthesisText{(}
\def\LeftParenthesisTt{{\tt\LeftParenthesisText}}
\def\LeftQuoteText{`{}}
\def\LeftQuoteTt{{\tt\LeftQuoteText}}
\def\LessThanSign{<}
\def\LessThanSignTt{{\tt\LessThanSign}}
\def\MinusSignText{-}
\def\MinusSignTt{{\tt\MinusSignText}}
\def\OpenQuestionText{<}
\def\OpenQuestionTt{{\tt\OpenQuestionText}}
\def\PlusSignText{+}
\def\PlusSignTt{{\tt\PlusSignText}}
\def\PercentSignText{\%}
\def\PercentSignTt{{\tt\PercentSignText}}
{
    \catcode`\% = 12
    \gdef\PercentSignPure{%}
}
\def\PeriodText{.}
\def\PeriodTt{{\tt\PeriodText}}
\def\PoundSignText{\#}
\def\PoundSignTt{{\tt\PoundSignText}}
\def\QuestionMarkText{?}
\def\QuestionMarkTt{{\tt\QuestionMarkText}}
\def\RightBraceTt{{\tt\RightBraceText}}
\def\RightBracketText{]}
\def\RightBracketTt{{\tt\RightBracketText}}
\def\RightQuoteText{'{}}
\def\RightQuoteTt{{\tt\RightQuoteText}}
\def\RightParenthesisText{)}
\def\RightParenthesisTt{{\tt\RightParenthesisText}}
\def\SpaceText{ }
\def\VisibleSpaceTt{{\tt\char"20}}
\def\TildeText{\char`\~{}}
\def\TildeTt{{\tt\TildeText}}
\def\UnderscoreText{\char`\_}
\def\UnderscoreTt{{\tt\UnderscoreText}}
\def\VerbControlSpace{\ }
\catcode`\@ = 12