\makeatletter
\newdimen\oldparindent
\newif\ifeigenk@pf
\eigenk@pftrue

\def\ps@brief{%
\let\@mkboth\@gobbletwo
\def\@oddhead{\small\sc Proze{\ss}rechner CYBER 815 \hrulefill\ \heute}
\def\@oddfoot{\hfill\small\sc Seite \the\count0\hfill}
\def\@evenhead{\small\sc \heute\ \hrulefill\ Proze{\ss}rechner CYBER 815}
\def\@evenfoot{\hfill\small\sc Seite \the\count0\hfill}
\def\sectionmark##1{}\def\subsectionmark##1{}
}


\def\Briefkopf{\global\eigenk@pffalse}
\def\keinBriefkopf{\global\eigenk@pftrue}
\let\briefkopf=\Briefkopf
\let\keinbriefkopf=\keinBriefkopf

\def\nullpunktskip{%
\noindent\null\vskip-\topskip
\vskip-\headsep
\vskip-\headheight
\vskip-\topmargin
\vskip-1cm % warum dies?
\hskip-.5cm % warum jenes?
\hskip-\oddsidemargin % jetzt bin ich auf (2.5,2.5) inch
}

\def\adressenpl@tz{%
\vbox to0pt{%
\vskip2cm%
\noindent\vtop{\hsize=7.5cm
 \tt \ttraggedright
 \noindent \Adr@sse}\vss}%
}

\def\strichpl@tz{%
\vbox to0pt{%
 \vskip7.2cm%
 \noindent\hbox to0pt{\hskip-2.5cm \null\vrule height.3pt width.5cm \hss}%
\vss}%
}

\def\kopfadressenpl@tz{%
\vbox to0pt{%
\vskip-0.7cm%
\noindent\hbox to0pt{%
             \hskip-0.5cm%
             \vbox{\noindent\Large\bf Proze{\ss}rechner CYBER 815\\%
                \normalsize Rheinisch-Westf\"alische Technische
                       Hochschule Aachen\endgraf
                \vskip.5cm
                \noindent\underbar{\tiny Proze{\ss}rechner CYBER 815 --
                    RWTH Aachen -- W\"ullnerstra{\ss}e 7 -- 5100 Aachen}}%
                    \hss}%
   \vss}%
}

\def\kopfdatenpl@tz{%
\vbox to0pt{%
\vskip6.2cm%
\noindent\hbox to0pt{\hskip-0.5cm%
              \vbox{\hsize=5cm\noindent\scriptsize Datum und Zeichen\\Ihres Schreibens}%
              \vbox{\hsize=4.9cm\noindent\scriptsize Bei Antwort angeben\\Mein Zeichen}%
              \vbox{\hsize=4.5cm\noindent\scriptsize Durchwahl\\(0241) 80-}%
              \vbox{\hsize=1cm\noindent\scriptsize Datum\\ \phantom{X}}%
              \hss}%
 \vss}%
}

\def\datenpl@tz{%
\vbox to0pt{%
\vskip7cm%
\noindent\hbox to0pt{\hskip-0.5cm%
              \hbox to5cm{\ihrSchr@iben\hfill}%
              \hbox to4.9cm{\meinZ@ichen\hfill}%
              \hbox to4.5cm{\Durchw@hl\hfill}%
              \heute\hss}%
 \vss}%
}

\def\briefpl@tz{%
\vskip10cm%
\noindent
}

\def\betrifftpl@tz{%
\vbox to0pt{%
\vskip-2cm%
\noindent\hbox to0pt{\hbox{\Betr@fft}\hss}%
\vss}%
}

\def\Adr@sse{???\message{Keine Adresse?}}
\def\ihrSchr@iben{}
\def\meinZ@ichen{Hf/H\"o}
\def\Durchw@hl{4363}
\def\heute{%
\the\day.\ \ifcase\month\or Januar\or Februar\or M\"arz\or April\or
Mai\or Juni\or Juli\or August\or September\or Oktober\or Dezember\fi%
\ \the\year}
\def\Betr@fft{}

\def\Adresse#1{\gdef\Adr@sse{#1}}
\def\IhrSchreiben#1{\gdef\ihrSchr@iben{#1}}
\def\MeinZeichen#1{\gdef\meinZ@ichen{#1}}
\def\Durchwahl#1{\gdef\Durchw@hl{#1}}
\def\Datum#1{\gdef\heute{#1}}
\def\Betrifft#1{\gdef\Betr@fft{\underbar{Betr.:} #1}}

\long\def\Anrede#1{%
\noindent #1\endgraf
\vskip0.5cm
\oldparindent=\parindent
\parindent=0pt
\def\par{\ifvmode
          \else
           \endgraf
           \let\par=\endgraf
           \parindent=\oldparindent
          \fi}%
\ignorespaces
}

\def\Unterschrift{%
\endgraf\nobreak
\vbox{%
\null\vskip1cm
\noindent Mit freundlichen Gr\"u{\ss}en\endgraf
\medskip
\noindent Proze{\ss}rechner CYBER~815\endgraf
\vskip2cm
\noindent (Dipl.-Math.\ J.\ Hoffmann)}%
}

\long\def\neueUnterschrift#1#2{%
\endgraf\nobreak
\vbox{%
\null\vskip1cm
\noindent Mit freundlichen Gr\"u{\ss}en\endgraf
\medskip
\noindent #1\endgraf
\vskip2cm
\noindent #2}%
}

\def\Briefende{%
\newpage
\def\Adr@sse{???}
\def\ihrSchr@iben{}
\def\Betr@fft{}
}

\def\neuerBrief{%
\global\count0=1
\thispagestyle{empty}%
\nullpunktskip
\hbox to0pt{\adressenpl@tz\hss}%
\ifeigenk@pf
\else
 \hbox to0pt{\kopfadressenpl@tz\hss}%
\fi
\ifeigenk@pf
\else
 \hbox to0pt{\strichpl@tz\hss}%
\fi
\hbox to0pt{\datenpl@tz\hss}%
\ifeigenk@pf
\else
 \hbox to0pt{\kopfdatenpl@tz\hss}%
\fi
\briefpl@tz
\hbox to0pt{\betrifftpl@tz\hss}%
}

\let\adresse=\Adresse
\let\ihrSchreiben=\IhrSchreiben
\let\ihrschreiben=\IhrSchreiben
\let\meinZeichen=\MeinZeichen
\let\meinzeichen=\MeinZeichen
\let\durchwahl=\Durchwahl
\let\datum=\Datum
\let\betrifft=\Betrifft
\let\anrede=\Anrede
\let\unterschrift=\Unterschrift
\let\neueunterschrift=\neueUnterschrift
\let\briefende=\Briefende
\let\neuerbrief=\neuerBrief

\let\DOCUment=\document
\gdef\document{%
\oddsidemargin=\evensidemargin
\DOCUment
\pagestyle{brief}%
\thispagestyle{empty}%
\nullpunktskip
\hbox to0pt{\adressenpl@tz\hss}%
\ifeigenk@pf
\else
 \hbox to0pt{\kopfadressenpl@tz\hss}%
\fi
\ifeigenk@pf
\else
 \hbox to0pt{\strichpl@tz\hss}%
\fi
\hbox to0pt{\datenpl@tz\hss}%
\ifeigenk@pf
\else
 \hbox to0pt{\kopfdatenpl@tz\hss}%
\fi
\briefpl@tz
\hbox to0pt{\betrifftpl@tz\hss}%
}

\global\parskip=7pt plus2pt minus1pt
\oddsidemargin=0cm
\topmargin=0pt
\headheight=0.5cm
\headsep=1cm
\textheight=21cm
\textwidth=14cm
\footskip=1.5cm
\footheight=.7cm
\makeatother