\def\uncatcodespecials{\def\do##1{\catcode`##1=12}\dospecials}%
{\catcode`\`=\active\gdef`{\relax\lq}}% this line inhibits Spanish 
                                      % ligatures ?` and !` of \tt font
\def\setupc@de % see TeX Book, p. 381
    {\tt %
     \spaceskip=0pt \xspaceskip=0pt % just in case...
     \catcode`\`=\active
     \uncatcodespecials \obeyspaces
     \catcode`\{=1\catcode`\}=2
    }%
\def\SETUPC@DE % see TeX Book, p. 381
    {\tt %
     \spaceskip=0pt \xspaceskip=0pt % just in case...
     \catcode`\`=\active
     \uncatcodespecials \obeyspaces
    }%

\def\d@code#1{#1\endgroup}%
\def\D@CODE#1{\def\next##1#1{##1\endgroup}\next}%

\def\code{\begingroup\setupc@de\d@code}%
\def\CODE{\begingroup\SETUPC@DE\D@CODE}%

