🚀 go-pugleaf

We have one which I almost don't want to post.  (It's that ugly...)
It verbatims all text from "\begincf" until the string "`@" (without
the double quotes).  Here it is; don't forget to delete the .signature:

% fonts
\font\bigtt=amtt10 scaled 1200
\font\bigrm=amr10 scaled 1200
\font\bigbf=ambx10 scaled 1200
\font\bigtitle=amssbx10 scaled 1200

\footline={} % no page numbers
\chardef\backquote=`\` % a backquote (`)
{\obeyspaces \gdef {\ }} % spaces are REALLY spaces
{\catcode`\`=13\gdef`{\testendcf}} % make active ` invoke \testendcf

% make RETURN break lines, when it's active
\def\creturn{\futurelet\next\checkline}
{\catcode13=\active% these lines must end with %
  \gdef\checkline{\ifx\next^^M\let\next=\blankstuff\else\let\next=\endgraf\fi%
    \next}%
  \gdef^^M{\creturn}}
\def\blankstuff{\endgraf\vskip0.0pt\leavevmode}

% stuff for magic cf text
\def\midcf{\begingroup
  \catcode`\\=12
  \catcode`\{=12
  \catcode`\}=12
  \catcode`\$=12
  \catcode`\&=12
  \catcode`\#=12
  \catcode`\%=12
  \catcode`\~=12
  \catcode`\_=12
  \catcode`\^=12
  \obeyspaces
  \bigtt}

\def\mypar{\endgraf\message{How did I get here?}}
% \def\mypar{\message{HI}\endgraf\vskip\baselineskip\leavevmode}
\outer\def\begincf{\midcf\let\par=\mypar
  \parskip=0.0pt\parindent=0.0pt
  \catcode`\`=\active\catcode13=\active}
\def\testendcf{\futurelet\next\testendtu}
\def\testendtu{\ifx\next@\let\next=\endcf\else\let\next=\relax\backquote\fi
  \next}
\def\endcf@{\endgroup}
% that's all...
-- 
(This line accidently left nonblank.)

In-Real-Life: Chris Torek, Univ of MD Comp Sci Dept (+1 301 454 7690)
UUCP:	{seismo,allegra,brl-bmd}!umcp-cs!chris
CSNet:	chris@umcp-cs		ARPA:	chris@maryland