% (find-fline "~/ZHTML/escripts/tex.e")
% p.189=198 (find-lsrcfile "base/ltfntcmd.dtx" "{Introduction}")
% p.206=215 (find-lsrcfile "base/ltmiscen.dtx" "n{Environments}")
% p.212=221 (find-lsrcfile "base/ltmiscen.dtx" "subsection{Verbatim}")
% p.210=219 (find-lsrcfile "base/ltmiscen.dtx" "\\def\\begin")
%           (find-lsrcfile "base/inputenc.dtx" "")
% (setq tex-open-quote "\"" tex-close-quote "\"")
%
% Basic definitions for vgatim, my version for the verbatim
% environment.
%
% Edrx, 98apr13
%
\def\vgacatcodes{%
\catcode"080=12\catcode"081=12\catcode"082=12\catcode"083=12%
\catcode"084=12\catcode"085=12\catcode"086=12\catcode"087=12%
\catcode"088=12\catcode"089=12\catcode"08A=12\catcode"08B=12%
\catcode"08C=12\catcode"08D=12\catcode"08E=12\catcode"08F=12%
\catcode"090=12\catcode"091=12\catcode"092=12\catcode"093=12%
\catcode"094=12\catcode"095=12\catcode"096=12\catcode"097=12%
\catcode"098=12\catcode"099=12\catcode"09A=12\catcode"09B=12%
\catcode"09C=12\catcode"09D=12\catcode"09E=12\catcode"09F=12%
\catcode"0A0=12\catcode"0A1=12\catcode"0A2=12\catcode"0A3=12%
\catcode"0A4=12\catcode"0A5=12\catcode"0A6=12\catcode"0A7=12%
\catcode"0A8=12\catcode"0A9=12\catcode"0AA=12\catcode"0AB=12%
\catcode"0AC=12\catcode"0AD=12\catcode"0AE=12\catcode"0AF=12%
\catcode"0B0=12\catcode"0B1=12\catcode"0B2=12\catcode"0B3=12%
\catcode"0B4=12\catcode"0B5=12\catcode"0B6=12\catcode"0B7=12%
\catcode"0B8=12\catcode"0B9=12\catcode"0BA=12\catcode"0BB=12%
\catcode"0BC=12\catcode"0BD=12\catcode"0BE=12\catcode"0BF=12%
\catcode"0C0=12\catcode"0C1=12\catcode"0C2=12\catcode"0C3=12%
\catcode"0C4=12\catcode"0C5=12\catcode"0C6=12\catcode"0C7=12%
\catcode"0C8=12\catcode"0C9=12\catcode"0CA=12\catcode"0CB=12%
\catcode"0CC=12\catcode"0CD=12\catcode"0CE=12\catcode"0CF=12%
\catcode"0D0=12\catcode"0D1=12\catcode"0D2=12\catcode"0D3=12%
\catcode"0D4=12\catcode"0D5=12\catcode"0D6=12\catcode"0D7=12%
\catcode"0D8=12\catcode"0D9=12\catcode"0DA=12\catcode"0DB=12%
\catcode"0DC=12\catcode"0DD=12\catcode"0DE=12\catcode"0DF=12%
\catcode"0E0=12\catcode"0E1=12\catcode"0E2=12\catcode"0E3=12%
\catcode"0E4=12\catcode"0E5=12\catcode"0E6=12\catcode"0E7=12%
\catcode"0E8=12\catcode"0E9=12\catcode"0EA=12\catcode"0EB=12%
\catcode"0EC=12\catcode"0ED=12\catcode"0EE=12\catcode"0EF=12%
\catcode"0F0=12\catcode"0F1=12\catcode"0F2=12\catcode"0F3=12%
\catcode"0F4=12\catcode"0F5=12\catcode"0F6=12\catcode"0F7=12%
\catcode"0F8=12\catcode"0F9=12\catcode"0FA=12\catcode"0FB=12%
\catcode"0FC=12\catcode"0FD=12\catcode"0FE=12\catcode"0FF=12%
}
\font\vgafont=vga850
% (find-fline "vga850.mf")

%\def\mydef#1#2{\edef\foo{\def\csname#1\endcsname{#2}}\foo}
%\mydef{Foo}{Bar}

% p.37=48 (find-fline "$CTAN/systems/knuth/tex/texbook.tex" "0&Escape")
%
\begingroup
\catcode`|=0
\catcode`[=1
\catcode`]=2
\catcode`@=11
\catcode`\{=12
\catcode`\}=12
\catcode`\\=12
%|gdef|xvgatim#1\end{vgatim}[#1|end[vgatim]]
|gdef|myxdef#1#2[%
  |edef|foo[%
    |def|csname#1|endcsname####1\end{#2}[####1|noexpand|end[#2]]]%
  |foo]
|endgroup

\myxdef{xvgatim}{vgatim}

% p.212=221 (find-lsrcfile "base/ltmiscen.dtx" "subsection{Verbatim}")
% p.36=45   (find-lsrcfile "base/ltdefns.dtx" "def\\makeatletter")
% p.37=46   (find-lsrcfile "base/ltdefns.dtx" "def\\@sanitize")
%
\makeatletter
\def\vgatim{\def\verbatim@font{\normalfont\vgafont}%
            \@verbatim\frenchspacing\@vobeyspaces\vgacatcodes%
            %\baselineskip=0pt
            \xvgatim}
\def\endvgatim{\if@newlist \leavevmode\fi\endtrivlist}
\makeatother
\endinput