\input verbatim
\shewembeddedspacesfalse
\let \canonicalverbatim = \verbatim
\let \canonicalmitabrev = \mitabrev
\def \verbatim
    {\begingroup \vskip \parskip \everypar = {}\canonicalverbatim}
\def \mitabrev {\canonicalmitabrev \endgroup}

%--------------
\hsize = 210 mm
\vsize = 297 mm
\hoffset = 2 cm
\voffset = 2 cm
\advance \hsize by -2 \hoffset
\advance \vsize by -2 \voffset
%--------------

\newif \iffinalrun

\def \finalrun
    {\finalruntrue
     \font \Textfont = cmss17
     \font \smc = cmtcsc10 at 17pt
     \baselineskip = 20pt
     \medskipamount = 5pt
     \font \inlineverbatimfont = cmtt12 at 17pt
     \font \displayverbatimfont = cmtt12 at 15pt
     \font \footlinefont = cmvtt10
     \font \msam = msam10 at 8pt
     \Textfont}

\def \checkrun
    {\finalrunfalse
     \font \Textfont = cmss10
     \font \smc = cmtcsc10 at 10pt
     \baselineskip = 12pt
     \medskipamount = 3pt
     \font \inlineverbatimfont = cmtt10
     \font \displayverbatimfont = cmtt8
     \font \footlinefont = cmvtt10
     \font \msam = msam10 at 6pt
     \Textfont}

\def \square {\raise 0,2ex\hbox{\msam\char'4}}

\let \FilBreak = \filbreak
\def \filbreak {\nobreak \line {}\FilBreak}

\newtoks \runningfootline
\footline = {\rightline {\footlinefont \the \runningfootline}}

\def \eg {e.g., \ignorespaces}
\def \ie {i.e., \ignorespaces}
\def \cm {\unskip \thinspace cm}
\def \stress #1{#1\/}

\let \canonicalshipout = \shipout
\def \shipout 
    {\advance \hoffset by -0.75 true in
     \advance \voffset by -1.5 true in
     \canonicalshipout}

\newbox \linebox
\newbox \slidebox
\def \slide {\afterassignment \setslide \setbox \slidebox = \hbox}
\def \setslide 
    {\aftergroup \reallysetslide
     \iffinalrun
        \font \thisfont = cmssbx10 at 15pt
        \font \inlineverbatimfont = cmtt12 at 15pt%
     \else
        \font \thisfont = cmssbx10
        \font \inlineverbatimfont = cmtt10%
     \fi
     \thisfont}
\def \reallysetslide
    {\filbreak
     \line {}
     \vfill
     \vskip -\baselineskip
    {\offinterlineskip
     \everypar = {}\noindent
     \copy \slidebox
     \vskip -0.5ex
     \noindent
     \leaders \hrule depth 0.125ex height 0pt\hskip \wd\slidebox\hbox{}
     \iffinalrun
        \vskip -0.625ex
     \else
        \vskip -1ex
     \fi
     \noindent\kern0.5in
     \leaders \hrule height 0.5ex\hskip 2in\hbox{}
     \medskip}
    }

\parindent = 0pt
\parskip = 1ex

\everypar = {\hangindent = 1em
             \hangafter = 1 
             \pretolerance = 9999
             \rightskip = 0pt plus 0.2\hsize
             \parfillskip = 0pt plus 0.8\hsize
             \linepenalty = 10000
             \hbox to \hangindent {\square\hfil}%
            }

%%% defs

\def \TuG {{\smc TUG}\spacefactor = 1000 }
\def \gust
    {{\smc GUST}\spacefactor = 1000 }

%%% now active punctuation is defined

\catcode `\^^M = \active %
\def ^^M{ }
\def \next {\let \spacechar = }
{\aftergroup \next} %

\def \activepunctuation #1%
    {\catcode `#1 = \active
     \lccode `\^^M = `#1
     \long \def \analysenextchar %
               {\afterassignment \analysechar \let \nextchar = }
     \lowercase {\global \def ^^M}{#1\analysenextchar}
     \def \analysechar %
         {\ifx \nextchar \spacechar %
              \def \next { \analysenextchar}%
          \else \ifx \nextchar ^^M%
                   \let \next = \par %
                \else %
                   \let \next = \nextchar %
                \fi %
          \fi %
          \next %
         }
    }

\activepunctuation :
\activepunctuation ;
\activepunctuation .
\activepunctuation ?
\activepunctuation !

\def \LP {L\kern-0,1emP}
\runningfootline {TUG\thinspace '95 / \folio}

\endinput