\catcode`p=1
\catcode`q=2
\catcode`{=11
\catcode`}=11
\def\SimLeftCurlip{q
\def\SimRightCurlip}q
\catcode`{=1
\catcode`}=2
\catcode`p=11
\catcode`q=11

\catcode113=0
\catcode92=11
qdefqSimBackslash{\}
qcatcode92=0
\catcode113=11

\def\SimQuotes{"}

\catcode`&=11
\catcode`~=11
\catcode`$=11 %$
\catcode`"=13
\catcode`'=11
\catcode`_=11


\long\def\nl{^^J}
\newlinechar`^^J

\def\endEsc{
\def"{\SimQuotes}%
\def\\{\SimBackslash}%
\def\{{\SimLeftCurli}%
\def\}{\SimRightCurli}%
}
\endEsc