\ifx\dateiende\undefiniert\message{ ***}\else\Xunterteil\endinput\fi
%
%
%-------------------------------------------------------------------------
%          rwpDOK.TEX      Makro f�r Doktorarbeiten
%-------------------------------------------------------------------------
%
\message{rwpDOK-Makro 1.99, vom 2.11.1998 (rwp)}

%---------------Font Makropaket Grundeinstellungen-------------------
%\catcode`\_=11%
\def\macro#1{\csname#1\endcsname}%
\def\defQmacro#1{\expandafter\def\csname#1\endcsname}%
%-------------------------Laden der Schriften------------------------
\def\fiveQinit{%
    \def\fiveQrm{\fiverm}%
    \def\fiveQit{\sevenQit}%
    \def\fiveQmi{\fivei}%
    \def\fiveQbf{\fivebf}%
    \def\fiveQsf{\eightQsf}%
    \def\fiveQsl{\eightQsl}%
    \def\fiveQsy{\fivesy}%
    \def\fiveQex{\tenex}%
    \font\fiveQtt=cmtt10 scaled 500}%
\def\sixQinit{%
    \def\sixQrm{\sevenrm}%
    \def\sixQit{\sevenQit}%
    \def\sixQmi{\seveni}%
    \def\sixQbf{\sevenbf}%
    \def\sixQsf{\eightQsf}%
    \def\sixQsl{\eightQsl}%
    \def\sixQsy{\sevensy}%
    \def\sixQex{\tenex}%
    \font\sixQtt=cmtt10 scaled 600}%
\def\sevenQinit{%
    \def\sevenQrm{\sevenrm}%
    \font\sevenQit=cmti7%
    \def\sevenQmi{\seveni}%
    \def\sevenQbf{\sevenbf}%
    \def\sevenQsf{\sevenQsf}%
    \def\sevenQsl{\eightQsl}%
    \def\sevenQsy{\sevensy}%
    \def\sevenQex{\tenex}%
    \font\sevenQtt=cmtt10 scaled 700}%
\def\eightQinit{%
    \font\eightQrm=cmr8%
    \font\eightQit=cmti8%
    \font\eightQmi=cmmi8%
    \font\eightQbf=cmbx8%
    \font\eightQsf=cmss8%
    \font\eightQsl=cmsl8%
    \font\eightQsy=cmsy8%
    \def\eightQex{\tenex}%
    \font\nineQtt=cmtt8}%
\def\nineQinit{%
    \font\nineQrm=cmr9%
    \font\nineQit=cmti9%
    \font\nineQmi=cmmi9%
    \font\nineQbf=cmbx9%
    \font\nineQsf=cmss9%
    \font\nineQsl=cmsl9%
    \font\nineQsy=cmsy9%
    \def\nineQex{\tenex}
    \font\nineQtt=cmtt9}%
\def\tenQinit{%
    \def\tenQrm{\tenrm}%
    \def\tenQit{\tenit}%
    \def\tenQmi{\teni}%
    \def\tenQbf{\tenbf}%
    \font\tenQsf=cmss10%
    \def\tenQsl{\tensl}%
    \def\tenQsy{\tensy}%
    \def\tenQex{\tenex}%
    \font\tenQtt=cmtt10}%
\def\elevenQinit{%
    \font\elevenQrm=cmr10 scaled \magstephalf%
    \font\elevenQit=cmti10 scaled \magstephalf%
    \font\elevenQmi=cmmi10 scaled \magstephalf%
    \font\elevenQbf=cmbx10 scaled \magstephalf%
    \font\elevenQsf=cmss10 scaled \magstephalf%
    \font\elevenQsl=cmsl10 scaled \magstephalf%
    \font\elevenQsy=cmsy10 scaled \magstephalf%
    \font\elevenQex=cmex10 scaled \magstephalf%
    \font\elevenQtt=cmtt10 scaled \magstephalf}%
\def\twelveQinit{%
    \font\twelveQrm=cmr12%
    \font\twelveQit=cmti12%
    \font\twelveQmi=cmmi12%
    \font\twelveQbf=cmbx12%
    \font\twelveQsf=cmss12%
    \font\twelveQsl=cmsl10 scaled \magstep1%
    \font\twelveQsy=cmsy10 scaled \magstep1%
    \font\twelveQex=cmex10 scaled \magstep1%
    \font\twelveQtt=cmtt12}%
\def\fourteenQinit{%
    \font\fourteenQrm=cmr12 scaled \magstep1%
    \font\fourteenQit=cmti12 scaled \magstep1%
    \font\fourteenQmi=cmmi12 scaled \magstep1%
    \font\fourteenQbf=cmbx12 scaled \magstep1%
    \font\fourteenQsf=cmss12 scaled \magstep1%
    \font\fourteenQsl=cmsl10 scaled \magstep2%
    \font\fourteenQsy=cmsy10 scaled \magstep2%
    \font\fourteenQex=cmex10 scaled \magstep2%
    \font\fourteenQtt=cmtt12 scaled \magstep1}%
\def\seventeenQinit{%
    \font\seventeenQrm=cmr17%
    \font\seventeenQit=cmti12 scaled \magstep2%
    \font\seventeenQmi=cmmi12 scaled \magstep2%
    \font\seventeenQbf=cmbx12 scaled \magstep2%
    \font\seventeenQsf=cmss12 scaled \magstep2%
    \font\seventeenQsl=cmsl10 scaled \magstep3%
    \font\seventeenQsy=cmsy10 scaled \magstep3%
    \font\seventeenQex=cmex10 scaled \magstep3%
    \font\seventeenQtt=cmtt12 scaled \magstep2}%
\def\twentyQinit{%
   \font\twentyQrm=cmr17 scaled \magstep1%
   \font\twentyQit=cmti12 scaled \magstep3%
   \font\twentyQmi=cmmi12 scaled \magstep3%
   \font\twentyQbf=cmbx12 scaled \magstep3%
   \font\twentyQsf=cmss12 scaled \magstep3%
   \font\twentyQsl=cmsl10 scaled \magstep4%
   \font\twentyQsy=cmsy10 scaled \magstep4%
   \font\twentyQex=cmex10 scaled \magstep4%
   \font\twentyQtt=cmtt12 scaled \magstep3}%
\def\twentyfiveQinit{%
   \font\twentyfiveQrm=cmr17 scaled \magstep2%
   \font\twentyfiveQit=cmti12 scaled \magstep4%
   \font\twentyfiveQmi=cmmi12 scaled \magstep4%
   \font\twentyfiveQbf=cmbx12 scaled \magstep4%
   \font\twentyfiveQsf=cmss12 scaled \magstep4%
   \font\twentyfiveQsl=cmsl10 scaled \magstep5%
   \font\twentyfiveQsy=cmsy10 scaled \magstep5%
   \font\twentyfiveQex=cmex10 scaled \magstep5%
   \font\twentyfiveQtt=cmtt12 scaled \magstep4}%
%---------------------------Schriftfamilien--------------------------
\newfam\sffam%
\newtoks\fontQstyle%
\def\setQfamilies#1#2#3{%
    \textfont0=\macro{#1Qrm}\scriptfont0=\macro{#2Qrm}%
         \scriptscriptfont0=\macro{#3Qrm}%
    \textfont1=\macro{#1Qmi}\scriptfont1=\macro{#2Qmi}%
         \scriptscriptfont1=\macro{#3Qmi}%
    \textfont2=\macro{#1Qsy}\scriptfont2=\macro{#2Qsy}%
         \scriptscriptfont2=\macro{#3Qsy}%
    \textfont3=\macro{#1Qex}\scriptfont3=\macro{#2Qex}%
         \scriptscriptfont3=\macro{#3Qex}%
    \textfont\itfam=\macro{#1Qit}%
    \textfont\bffam=\macro{#1Qbf}%
    \textfont\sffam=\macro{#1Qsf}%
    \textfont\slfam=\macro{#1Qsl}%
    \textfont\ttfam=\macro{#1Qtt}}%
\def\setQstyles#1{%
    \def\rm{\macro{#1Qrm}\fam0\fontQstyle={rm}}%
    \def\it{\macro{#1Qit}\fam\itfam\fontQstyle={it}}%
    \def\bf{\macro{#1Qbf}\fam\bffam\fontQstyle={bf}}%
    \def\sf{\macro{#1Qsf}\fam\sffam\fontQstyle={sf}}%
    \def\sl{\macro{#1Qsl}\fam\slfam\fontQstyle={sl}}%
    \def\tt{\macro{#1Qtt}\fam\ttfam\fontQstyle={tt}}}%
\def\loadQfonts#1#2#3{\macro{#1Qinit}\macro{#2Qinit}\macro{#3Qinit}}%
%----------------------------Schriftgr\"ossen--------------------------
\def\EightPoint{%
    \loadQfonts{eight}{six}{five}%
    \setQstyles{eight}%
    \setQfamilies{eight}{six}{five}%
    \macro{\the\fontQstyle}}%
\def\NinePoint{%
    \loadQfonts{nine}{seven}{five}%
    \setQstyles{nine}%
    \setQfamilies{nine}{seven}{five}%
    \macro{\the\fontQstyle}}%
\def\TenPoint{%
    \loadQfonts{ten}{seven}{five}%
    \setQstyles{ten}%
    \setQfamilies{ten}{seven}{five}%
    \macro{\the\fontQstyle}}%
\def\ElevenPoint{%
    \loadQfonts{eleven}{eight}{six}%
    \setQstyles{eleven}%
    \setQfamilies{eleven}{eight}{six}%
    \macro{\the\fontQstyle}}%
\def\TwelvePoint{%
    \loadQfonts{twelve}{nine}{seven}%
    \setQstyles{twelve}%
    \setQfamilies{twelve}{nine}{seven}%
    \macro{\the\fontQstyle}}%
\def\FourteenPoint{%
    \loadQfonts{fourteen}{ten}{eight}%
    \setQstyles{fourteen}%
    \setQfamilies{fourteen}{ten}{eight}%
    \macro{\the\fontQstyle}}%
\def\SeventeenPoint{%
    \loadQfonts{seventeen}{twelve}{ten}%
    \setQstyles{seventeen}%
    \setQfamilies{seventeen}{twelve}{ten}%
    \macro{\the\fontQstyle}}%
\def\TwentyPoint{%
   \loadQfonts{twenty}{fourteen}{twelve}%
   \setQstyles{twenty}%
   \setQfamilies{twenty}{fourteen}{twelve}%
   \macro{\the\fontQstyle}}%
\def\TwentyfivePoint{%
   \loadQfonts{twentyfive}{seventeen}{twelve}%
   \setQstyles{twentyfive}%
   \setQfamilies{twentyfive}{seventeen}{twelve}%
   \macro{\the\fontQstyle}}%
%\catcode`\_=8%
% -----------------------------
%  Kurznamen f�r Schriftgr��en
% -----------------------------
\let\eight=\EightPoint%
\let\nine=\NinePoint%
\let\ten=\TenPoint%
\let\eleven=\ElevenPoint%
\let\twelve=\TwelvePoint%
\let\fourteen=\FourteenPoint%
\let\seventeen=\SeventeenPoint%
\let\twenty=\TwentyPoint%
\let\twentyfive=\TwentyfivePoint%

% ----------------------------------------
%  Gro�e griechische Buchstaben in italic
% ----------------------------------------

\mathchardef\iGamma  ="0100
\mathchardef\iDelta  ="0101
\mathchardef\iTheta  ="0102
\mathchardef\iLambda ="0103
\mathchardef\iXi     ="0104
\mathchardef\iPi     ="0105
\mathchardef\iSigma  ="0106
\mathchardef\iUpsilon="0107
\mathchardef\iPhi    ="0108
\mathchardef\iPsi    ="0109
\mathchardef\iOmega  ="010A

% -------------------
% Zus�tze (aus LaTeX)
% -------------------

\catcode`@=11     %  @ ist jetzt ein Buchstabe, und es k�nnen damit auch
                  %  Makros benannt werden

\long\def\@ifundefined#1#2#3{\expandafter\ifx\csname #1\endcsname%
\relax#2\else#3\fi}

\newwrite\@unused
\def\@warning#1{{\let\protect\string\immediate\write\@unused{WARNUNG: #1}}}
\def\@namedef#1{\expandafter\xdef\csname #1\endcsname}
\def\@nameuse#1{\csname #1\endcsname}

\newread\@inputcheck
\def\@input#1{\openin\@inputcheck #1 %
\ifeof\@inputcheck \@warning{Datei (#1) nicht gefunden!}%
\else\closein\@inputcheck\relax\input #1\fi}

% Das eigentliche TeX-\end muss nat�rlich gerettet werden...
\let\@end@=\end

% --------------------------------------
%  Z�hler f�r automatische Querverweise
% --------------------------------------

\newcount\Cchapter%
\newcount\Csubchapter%
\newcount\Csection%
\newcount\Csubsection%
\newcount\Cfigure%
\newcount\Ctable%
\newcount\Cequation%
\Cchapter=0%
\Csubchapter=0%
\Csection=0%
\Csubsection=0%
\Cfigure=0%
\Ctable=0%
\Cequation=0%
\def\incr#1{\global\advance#1 by 1}%
\def\decr#1{\global\advance#1 by -1}%

% ------------------------------------
%  Setzen und Lesen von Querverweisen
% ------------------------------------

\def\set@Label#1#2{\edef\@tempa{\@nameuse{r@#1}}\edef\@tempb{#2}%
\@ifundefined{r@#1}{}%
{\ifx\@tempa\@tempb \else\@warning{Verweis `#1' ist mehrfach definiert!}\fi}%
\global\@namedef{r@#1}{#2}}

\def\s@tLabel#1#2{%
\edef\@tempa{\@nameuse{r@#1}}\edef\@tempb{#2}%
\@ifundefined{r@#1}{}%
{\ifx\@tempa\@tempb \else%
\@warning{Verweis `#1' (Seite \the\pageno) ist mehrfach definiert!}\fi}%
\global\@namedef{r@#1}{#2}%
\immediate\write\@currlab{\string\set@Label{#1}{#2}}}

\def\g@tLabel#1{%
\@ifundefined{r@#1}%
{{\bf #1}\@warning{Bezug `#1' (Seite \the\pageno) ist nicht definiert!}}%
{\ifdraftmode{\bf #1}\else\@nameuse{r@#1}\fi}}%

\newif\ifdraftmode
\draftmodefalse
\def\draft{\draftmodetrue\immediate\write\@unused{ }
\immediate\write\@unused{ ACHTUNG : Labels werden NICHT durch Zahlen
ersetzt !!}\immediate\write\@unused{ }}

% -------------------------------------------------------------------------
%  Setzen der Verweise auf Teil,Kapitel,Abschnitt,Formel,Abbildung,Tabelle
% -------------------------------------------------------------------------

\newif\ifAnhang\Anhangfalse%
\def\AnhangName{A}\def\Anhangshort{A}\def\Adoppelpunkt{:}%
\newif\ifSNUM%
\def\CHNum{\ifAnhang{\Anhangshort}\else\the\Cchapter\fi}
\def\shortnumber{\SNUMtrue}%
\def\longnumber{\SNUMfalse}%
\def\Klab#1{\s@tLabel{Kap#1}{\the\Cchapter}}
\def\Abs@hilf{unbekannt}
\def\Abslab#1{\s@tLabel{S#1}{\Abs@hilf}}
\def\Flab#1{\incr{\Cequation}%
\s@tLabel{F#1}{\ifSNUM\else\CHNum.\fi\the\Cequation}%
\ifdraftmode(\g@tLabel{F#1})%
\else(\ifSNUM\else\CHNum.\fi\the\Cequation)\fi}%
\def\Alab#1{\incr{\Cfigure}%
\s@tLabel{A#1}{\ifSNUM\else\CHNum.\fi\the\Cfigure}}%
\def\Tlab#1{\incr{\Ctable}%
\s@tLabel{T#1}{\ifSNUM\else\CHNum.\fi\the\Ctable}}%
\def\pagelab#1{\s@tLabel{P#1}{\the\pageno}}%

% --------------------------------
%  Referenzieren auf Querverweise
% --------------------------------

\def\Kapitel#1{Kapitel~\g@tLabel{Kap#1}}%
\def\Kref#1{\g@tLabel{Kap#1}}%
\def\Absref#1{\g@tLabel{S#1}}%
\def\Fref#1{(\g@tLabel{F#1})}%
\def\Aref#1{\g@tLabel{A#1}}%
\def\Tref#1{\g@tLabel{T#1}}%
\def\pageref#1{\g@tLabel{P#1}}%

%--------------------------------------------------------------------------
%              Erzeugung eines Inhaltsverzeichnisses
%--------------------------------------------------------------------------

\newif\if@refer\@referfalse%
\newif\ifwriteinhalt\writeinhalttrue

\def\@Balken{\vrule height 0.9cm width 0pt depth 0.25cm\relax}%
\def\CHAPdo{\@Balken\fourteen\bf{}}%
\def\SUPCHAPdo{\smallskip\twelve\bf \hglue 0.4 cm}%
\def\SECTdo{\twelve\rm \hglue 0.8 cm}%
\def\SUBSECTdo{\twelve\rm \hglue 0.8 cm}%
\def\CHAPnu#1{\hbox to 1.6cm{#1\hfil}}
\def\CHAPAnu#1{\hbox to 3cm{#1\hfil}}
\def\setCnum{\ifAnhang\xdef\Cnum{\Anhangshort.}%
\else\xdef\Cnum{\the\Cchapter.}\fi}
\def\setUnum{\xdef\Unum{\Cnum\the\Csubchapter.}}
\def\setUUnum{\xdef\UUnum{\Cnum\the\Csubchapter.\the\Csection.}}
\def\setUUUnum{\xdef\UUUnum{\Cnum\the\Csubchapter.%
\the\Csection.\the\Csubsection.}}

\def\SECTtext#1{{\advance\hsize by -4.5cm%
    \vtop{\noindent #1\vrule height 0cm width 0pt depth 0.25cm\par}}}
\def\SUBCHAPtext#1{{\advance\hsize by -4cm%
    \vtop{\noindent #1\vrule height 0cm width 0pt depth 0.25cm\par}}}
\def\CHAPtext#1{{\advance\hsize by -3.3cm%
    \vtop{\noindent #1\vrule height 0cm width 0pt depth 0.25cm\par}}}
\def\CHAPAtext#1{{\advance\hsize by -4.5cm%
    \vtop{\noindent #1\vrule height 0cm width 0pt depth 0.25cm\par}}}


\newdimen\textlen
\def\SabSt{\vrule height 0cm width 0pt depth 0.25cm}

\def\XCHAPdo{\bigskip\smallskip\fourteen\bf{}}%
\def\XSUBCHAPdo{\medskip\twelve\bf}%
\def\XSECTdo{\smallskip\twelve\rm}%

%\def\punkt{\hbox{$\m@th\mkern 1.2mu.\mkern 1mu$}}
\def\punkt{\hbox{$.$}}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  Kapiteleintrag

\def\Xpredefines{%
\global\textlen=\hsize%
\global\advance\textlen by -12mm%
\seitolerant%
\raggedright%
}

\long\def\XCHAPtext#1#2#3{{\Xpredefines%
\XCHAPdo%
\hbox{%
%
\vbox{%
\hsize=\textlen\noindent\hangafter=1\hangindent=2.5cm%
\hbox to 2.5cm{\hfill \CHAPnu{#1}\SabSt\ }%
#2\SabSt\ \hfill\par}%
%
\vbox{\hsize 12mm\noindent\hfill{#3}\par}%
}%  hbox
}}

\long\def\XSUBCHAPtext#1#2#3{{\Xpredefines%
\XSUBCHAPdo%
\hbox{%
%
\vbox{%
\hsize=\textlen\noindent\hangafter=1\hangindent=2.5cm%
\hbox to 2.5cm{\hfill \CHAPnu{#1}\SabSt\ }%
#2\SabSt\ \dotfill\punkt\par}%
%
\vbox{\hsize 12mm\noindent\dotfill{#3}\par}%
}%  hbox
}}

\long\def\XSECTtext#1#2#3{{\Xpredefines%
\XSECTdo%
\hbox{%
%
\vbox{%
\hsize=\textlen\noindent\hangafter=1\hangindent=2.5cm%
\hbox to 2.5cm{\hfill \CHAPnu{#1}\SabSt\ }%
#2\SabSt\ \dotfill\punkt\par}%
%
\vbox{\hsize 12mm\noindent\dotfill{#3}\par}%
}%  hbox
}}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%




\newwrite\Inhalt%

\let\next\relax

\def\vx1{\v}
\def\cx1{\c}

\edef\komma{,}
\catcode`\,=\active
\catcode`\?=\active
\catcode`\!=\active
\def?{\char"3F{\kern0pt}}
\def!{\char"21{\kern0pt}}
\def,{\komma\futurelet\next\commatest}
\def\commatest{\ifmmode\else\ifx\next,\kern-.11em\fi\fi}
\def\Umlaute{\string\"}
\def\stringv{\string\vx1}
\def\stringc{\string\cx1}
\def\akzenta{\string\'}
\def\akzentb{\string\`}
\def\akzentc{\string\^}
\def\stringbf{\string\bf{}}
\def\stringss{\string\ss{}}
\def\stringit{\string\it{}}
\def\stringrm{\string\rm{}}
\def\stringsf{\string\sf{}}
\def\stringkomma{\string,}
\def\stringfrage{\string?}
\def\stringausr{\string!}
\def\stringx{\string\x{}}
\def\strKapitel{\string\Kapitel}%
%\def\strAnhang{\string\Anhang}%
\def\strKref{\string\Kref}%
\def\strAbsref{\string\Absref}%
\def\strFref{\string\Fref}%
\def\strAref{\string\Aref}%
\def\strTref{\string\Tref}%
\def\strpageref{\string\pageref}%
\def\Schreibschutz{}
\def\einsweg#1{}
\def\defsFuersSchreiben{\let\"=\Umlaute\let\bf=\stringbf\let\it=\stringit%
\let\rm=\stringrm\let\sf=\stringsf\let,\stringkomma%
\let\ss=\stringss\let\v=\stringv\let\c=\stringc%
\let\'=\akzenta\let\`=\akzentb\let\^=\akzentc%
\let?=\stringfrage\let!=\stringausr\let\x=\stringx%
%\let\Anhang\=\strAnhang%
\let\Notemark=\relax\let\Note=\einsweg%
\let\Kapitel=\strKapitel\let\Kref=\strKref\let\Absref=\strAbsref%
\let\Fref=\strFref\let\Aref=\strAref\let\Tref=\strTref\let\pageref=\strpageref%
\Schreibschutz}

\long\def\schreibInhaltCHAP#1{%
\bgroup\@refertrue\defsFuersSchreiben%
\edef\writeToInhalt{\write\Inhalt{%
%\string\CHAPdo\string\CHAPnu{\Cnum}\string\CHAPtext{#1}%
%\string\ \string\hfill\string\ \noexpand\folio\noexpand\par}}%
\string\XCHAPtext{\Cnum}{#1}{\noexpand\folio}\noexpand\par}}
\writeToInhalt%
\@referfalse\egroup}

\long\def\schreibInhaltSUBCHAP#1{%
\bgroup\@refertrue\defsFuersSchreiben
\edef\writeToInhalt{\write\Inhalt{%
%\string\SUPCHAPdo\string\CHAPnu{\Unum}\string\SUBCHAPtext{#1}\string\ \string\dotfill%
%\string\ \noexpand\folio\noexpand\par}}
\string\XSUBCHAPtext{\Unum}{#1}{\noexpand\folio}\noexpand\par}}
\writeToInhalt
\@referfalse\egroup}

\long\def\schreibInhaltSECT#1{%
\bgroup\@refertrue\defsFuersSchreiben
\edef\writeToInhalt{\write\Inhalt{%
\string\XSECTtext{\UUnum}{#1}{\noexpand\folio}\noexpand\par}}
\writeToInhalt
\@referfalse\egroup}

\long\def\schreibInhaltSUBSECT#1{%
\bgroup\@refertrue\defsFuersSchreiben
\edef\writeToInhalt{\write\Inhalt{%
\string\SUBSECTdo\string\CHAPnu{\UUUnum}{#1}\string\ \string\dotfill%
\string\ \noexpand\folio\noexpand\par}}
\writeToInhalt
\@referfalse\egroup}

\long\def\schreibInhaltANHANG#1{%
\bgroup\@refertrue\defsFuersSchreiben
\edef\writeToInhalt{\write\Inhalt{%
\string\CHAPdo\string\CHAPAnu{\Appendix\ \AnhangName\Adoppelpunkt}%
\string\CHAPAtext{#1}%
\string\ \string\hfill\string\ \noexpand\folio\noexpand\par}}
\writeToInhalt
\@referfalse\egroup}

%
% -----------------------------------------
%  Aufrufe von \kap   (Kapitel)
%              \ukap  (Unterkapitel)
%          und \uukap (Unterunterkapitel)
% und jetzt auch \uuukap (Unterunterkapitel)
% -----------------------------------------

% Schriftarten f�r Kapitel, Unterkapitel und Unterunterkapitel
\font\kap@font=cmb10 scaled \magstep3
\font\ukap@font=cmb10 scaled \magstep2
\font\uukap@font=cmb10 scaled \magstep1
\font\uuukap@font=cmb10 scaled \magstep1

\newif\ifKnum
\Knumtrue
\newif\ifrechteseite\rechteseitetrue
\def\RechteSeite{\global\rechteseitetrue}
\def\AlleSeiten{\global\rechteseitefalse}
\def\startpage{\vfill\supereject%
\ifrechteseite\ifodd\pageno\else\ \vfill\supereject\fi\fi}%
\def\nonumber{\global\Knumfalse}

\newcount\chappageno\chappageno=0
\newif\ifchapindent
\newif\ifevparchanged
\evparchangedfalse
\newdimen\stdparindent
\def\kein@Einzug{\ifchapindent\else%
 \ifevparchanged\else
 \stdparindent=\parindent \parindent=0pt\relax%
 \everypar={\global\parindent=\stdparindent\penalty\z@\global\everypar={}%
 \global\evparchangedfalse}\global\evparchangedtrue\fi\fi}

\newskip\ChapSkip\global\ChapSkip=1cm
\newdimen\KapNumBreite\global\KapNumBreite 0.9cm
\newdimen\UKapNumBreite\global\UKapNumBreite 1.1cm
\newdimen\UUKapNumBreite\global\UUKapNumBreite 1.4cm
\newdimen\UUUKapNumBreite\global\UUUKapNumBreite 1.6cm

\newif\ifontheplace\ontheplacefalse%

\def\kap#1#2{\Anhangfalse%
\startpage%
%
%  Z�hler auf den richtigen Wert setzen
\ifKnum\global\Cchapter=#1\xdef\Abs@hilf{\the\Cchapter}%
\ifSNUM\else\global\Cfigure=0\global\Cequation=0\global\Ctable=0\fi%
\global\Csubchapter=0\global\Csubsection=0\global\Csection=0%
\global\Cfootnote=0\fi%
\setCnum%
%
% Ausgabe der Bilder des vorigen Kapitels und Titelzeile:
\vglue \ChapSkip%
\ontheplacetrue%
\line{\kap@font\ifKnum\hbox to \KapNumBreite{{\Cnum}\hfil}\fi
{\advance\hsize by -\KapNumBreite\baselineskip 20pt%
\vtop{\noindent #2\par}}\hfil}%
\nobreak\bigskip\nobreak\kein@Einzug%
\ontheplacefalse%
%
%  Z�hler f�r Literaturangaben korrigieren
\ifKnum\@ifundefined{r@CrC#1}{}{\ifsubprocess\else\@nameuse{r@CrC#1}\fi}%
\immediate\write\@currlab{\string\set@Label{CrC#1}%
{\string\global\string\Creference=\the\Creference}}%
\ifKnum\ifRefKapitel\global\Creference=0\fi\fi\fi%
%
% Seitenkopf:
\chappageno=\pageno%
\xdef\rtitel{\ifKnum\Cnum\ \ \fi #2}%
\xdef\ltitel{\ifKnum\Cnum\ \ \fi #2}%
\HX%
\ifwriteinhalt\ifKnum\ifsubprocess\schreibInhaltCHAP{#2}\fi\fi\fi%
\global\Knumtrue}%

%---------------------------------------------
\def\kapX#1#2#3{\bgroup\ChapSkip #2cm\kap{#1}{#3}\egroup}

\long\def\ukap#1{\ifKnum\incr{\Csubchapter}\global\Csection=0\global\Csubsection=0%
\setUnum\global\edef\Abs@hilf{\Unum}\else\xdef\Unum{}\fi%
\goodbreak\bigskip\goodbreak%
% Titelzeile:
\ontheplacetrue%
%-------------nummeriert
\ifKnum\line{\ukap@font\hbox to \UKapNumBreite{\Unum\hfil}%
{\advance\hsize by -\UKapNumBreite\vtop{\noindent #1\par}}\hfill}%
%-------------oder ohne Nummer
\else\line{\ukap@font\vtop{\noindent #1\par}\hfill}\fi%
%-----------------------------
\nobreak\medskip\nobreak\kein@Einzug%
\ontheplacefalse%
% Seitenkopf:
\xdef\rtitel{\ifKnum{\Unum}\ \ \fi {#1}}\HX%
% Inhaltsverzeichnis:
\ifwriteinhalt\ifKnum\ifsubprocess\schreibInhaltSUBCHAP{#1}\fi\fi\fi%
\global\Knumtrue}
%
%---------------------------------------------
\long\def\uukap#1{\ifKnum\incr{\Csection}\global\Csubsection=0%
\setUUnum\global\edef\Abs@hilf{\UUnum}\else\xdef\UUnum{}\fi%
% Titelzeile:
\goodbreak\bigskip\ontheplacetrue\line{%
\uukap@font\ifKnum\hbox to \UUKapNumBreite{\UUnum\hfil}\fi #1\hfil}%
\nobreak\medskip\nobreak\kein@Einzug%
\ontheplacefalse%
% Inhaltsverzeichnis:
\ifwriteinhalt\ifKnum\ifsubprocess\schreibInhaltSECT{#1}\fi\fi\fi%
\global\Knumtrue\nobreak}%
%
%---------------------------------------------
\long\def\uuukap#1{\ifKnum\incr{\Csubsection}%
\setUUUnum\global\edef\Abs@hilf{\UUUnum}\else\xdef\UUUnum{}\fi%
% Titelzeile:
\goodbreak\bigskip\ontheplacetrue\line{%
\uuukap@font\ifKnum\hbox to \UUUKapNumBreite{\UUUnum\hfil}\fi #1\hfil}%
\nobreak\medskip\nobreak\kein@Einzug%
\ontheplacefalse%
% Inhaltsverzeichnis:
\ifwriteinhalt\ifKnum\ifsubprocess\schreibInhaltSUBSECT{#1}\fi\fi\fi%
\global\Knumtrue\nobreak}%

%---------------------------------------------------------------------

\def\Appendix{Anhang}

\def\Anhang#1#2{\Anhangtrue%
\startpage%
%
%  Z�hler auf den richtigen Wert setzen
\xdef\AnhangName{#1}\xdef\Abs@hilf{#1}%
\xdef\Anhangshort{#1}\edef\@tempa{}%
\ifx\Anhangshort\@tempa\xdef\Anhangshort{A}\fi
\ifSNUM\else\global\Cfigure=0\global\Cequation=0\global\Ctable=0\fi%
\global\Csubchapter=0\global\Csubsection=0\global\Csection=0%
\global\Cfootnote=0%
\setCnum%
%
% Ausgabe der Bilder des vorigen Kapitels und Titelzeile:
\vglue \ChapSkip%
\setbox\fussbox=\hbox{\kap@font\Appendix\ \ }
\line{\kap@font\Appendix\ \hfil
\hbox to \KapNumBreite{{\AnhangName\Adoppelpunkt}\hfil}
{\advance\hsize by -\KapNumBreite\advance\hsize by -\wd\fussbox%
\baselineskip 20pt%
\vtop{\noindent #2\par}}}%
\nobreak\bigskip\nobreak\kein@Einzug%
%
%  Z�hler f�r Literaturangaben korrigieren
\@ifundefined{r@CrC#1}{}{\ifsubprocess\else\@nameuse{r@CrC#1}\fi}%
\immediate\write\@currlab{\string\set@Label{CrC#1}%
{\string\global\string\Creference=\the\Creference}}%
\ifKnum\ifRefKapitel\global\Creference=0\fi\fi%
%
% Seitenkopf:
\chappageno=\pageno%
\xdef\rtitel{\Appendix\ \AnhangName\Adoppelpunkt\ \ #2}%
\xdef\ltitel{\Appendix\ \AnhangName\Adoppelpunkt\ \ #2}%
\ifwriteinhalt\ifsubprocess\schreibInhaltANHANG{#2}\fi\fi%
\global\Knumtrue}%


%------------------------------------------------------------

\def\inhalthier{{\pageno=-1\chappageno=\pageno%
\def\rtitel{Inhaltsverzeichnis}\edef\ltitel{\rtitel}\HX%
{\fourteen\bf Inhalt \bs\bs \par}%
\@input{\jobname.inh}\vfil\supereject}\pageno=1%
\immediate\openout\Inhalt=\jobname.inh}%

%--------------------------------------------------------------------------
%              Erzeugung der Referenzenliste
%--------------------------------------------------------------------------

% Legt die Klammerungsart um die Referenzenk�rzel fest
%
\def\Rklammer#1#2{\global\edef\RklamL{#1}\global\edef\RklamR{#2}}
\Rklammer{[}{]}%

\newwrite\REFDATEI%
\newif\if@refs\@refsfalse%
%
\def\refwrite#1#2{\if@refs\bgroup\@refertrue\defsFuersSchreiben%
\edef\writeToRefdatei{\immediate\write\REFDATEI{\string\reftext{#1}{#2}}}%
\writeToRefdatei\@referfalse\egroup\fi}%

%--------------------------Back-REF-- (Seitenzahlen in Literaturliste)-----
\newif\ifbackref\backreffalse%
%
\newwrite\BACKREFDATEI%
%
\def\dobackref{\backreftrue}%
%
\def\backrefwrite#1{\if@refs\bgroup\@refertrue\defsFuersSchreiben%
\edef\writeToRefdatei{%
\immediate\write\BACKREFDATEI{\string\didref{#1}{\the\pageno}}}%
\writeToRefdatei\@referfalse\egroup\fi}%
%
\def\didref#1#2{\xdef\@tempb{#2}
\@ifundefined{r@bR#1}{\xdef\@tempc{}}{\xdef\@tempc{\@nameuse{r@bR#1}}}
\@ifundefined{r@lR#1}{%
\@namedef{r@bR#1}{#2}}{%-----------
\edef\@tempa{\@nameuse{r@lR#1}}%
\ifx\@tempa\@tempb\else\@namedef{r@bR#1}{\@tempc, #2}\fi%
}%-------
\@namedef{r@lR#1}{#2}%
}%
%                                    xxxxxxxxxxxxxxxxx
%-------------------------------------------------------------------------

\def\Referenzen{\@refstrue\immediate\openout\REFDATEI=referenz.tex%
\ifbackref\immediate\openout\BACKREFDATEI=referenz.brf\fi}%

%
\newcount\Creference
\newif\ifRefKapitel
\newif\ifnummer

\def\RlabNumber#1{\incr{\Creference}%
%\ifRefKapitel\@namedef{r@R#1}{\the\Cchapter.\the\Creference}%
%\else\@namedef{r@R#1}{\the\Creference}\fi}%
\ifsubprocess%
\ifRefKapitel\@namedef{r@R#1}{\the\Cchapter.\the\Creference}%
\else\@namedef{r@R#1}{\the\Creference}\fi%
\bgroup\defsFuersSchreiben%
\edef\writeToRefdatei{%
\immediate\write\@numrefs{\string\set@Label{R#1}{\g@tLabel{R#1}}}}%
\writeToRefdatei\@referfalse\egroup%
\else\fi}%
%
\def\RlabName#1{\@namedef{r@R#1}{#1}}

%------------------------------------------------------------
\def\Refref#1{\@ifundefined{r@Q#1}{%
%
% Ohne \preref erw�hnte Referenz :
\@warning{Referenz `#1' wurde nicht mit `\string\preref' initialisiert ! %
(Seite \the\pageno)}{\bf R#1}%
}{%
%
% Mit \preref erw�hnte Referenz :
%
%  wurde Referenz schon einmal aufgerufen?
{\draftmodefalse
\@ifundefined{r@R#1}{\Rlab{#1}\refwrite{\g@tLabel{R#1}}{\g@tLabel{Q#1}}}{}%
}%
%
\ifbackref\backrefwrite{#1}\fi%
%  Referenz setzen :
\@ifundefined{r@kR#1}{\RklamL\g@tLabel{R#1}\RklamR}%
{\RklamL\@nameuse{r@kR#1}\RklamR}}}%
%------------------------------------------------------------

\def\kuerzel#1#2{\@ifundefined{r@Q#1}%
{\@warning{Referenz `#1' ist undefiniert\string,
keine Kuerzeldefinition moeglich\string!}}%
{\@namedef{r@kR#1}{#2}}}

\def\refnum#1#2{\Rlab{#1}\Refref{#1}\refwrite{\the\Creference}{#2}}%
\def\kref#1{{\rm\RklamL{#1}\RklamR}}
\def\refnam#1#2{\kref{#1}\refwrite{#1}{#2}}

\def\RefWithName{\let\Rlab=\RlabName\let\cite\NAMEcite\nummerfalse}%
\def\RefWithNumber{\let\Rlab=\RlabNumber\let\cite\NUMMERcite%
\RefKapitelfalse\nummertrue}%
\def\RefWithCNumber{\let\Rlab=\RlabNumber\let\cite\NUMMERcite%
\RefKapiteltrue\nummertrue}%
\let\Rref=\Refref%
\long\def\preref#1#2{\@ifundefined{r@Q#1}{\bgroup%
\defsFuersSchreiben\@namedef{r@Q#1}{#2}\egroup}{%
\@warning{Referenz `#1' ist mehrfach in der `\string\preref'.Liste}}}%

%%%%%
%%%%%\def\tilde{\string~}%
%%%%%
\def\fett{\string\bf{}}%
\def\fettx{\if@refer\string\bf{}\else\bf{}\fi}%
\def\bfin{\if@refer\else\bf\fi}%

\def\refpar{\parindent = 1.8 cm\parskip 6 pt}%
\newdimen\refBreite%
\newskip\refAbstand%
\refBreite=2cm%
\refAbstand=2pt%
%
%\long\def\reftext#1#2{%\noindent%
%  \hbox{\vtop{\hsize=\refBreite{\noindent%
%\RklamL\@ifundefined{r@kR#1}{#1}{\@nameuse{r@kR#1}}\RklamR\hfill\par}}%
%        \vtop{\advance\hsize by -\refBreite\noindent #2\par}}
%  \vskip\refAbstand\goodbreak}%
\long\def\reftext#1#2{\noindent%
\line{\vtop{{\hsize=\refBreite{\noindent%
\RklamL\@ifundefined{r@kR#1}{#1}{\@nameuse{r@kR#1}}\RklamR\hfill\par}}}%
\hfill\vtop{{\advance\hsize by -\refBreite{\noindent #2%
\ifbackref, [\@nameuse{r@bR#1}]\fi\par}}}}%
\hrule height 0pt depth 0pt
\smallskip
\vskip\refAbstand}%
%
\def\SetzeRefBreite#1{\setbox\fussbox=\hbox{\RklamL#1\RklamR$\;$}%
\global\refBreite=\wd\fussbox}%
%
\newcount\refp@ge%
\newwrite\REFPAG%
\def\REFworks{%
%
% Dieser Befehl ist n�tig, damit die Referenzen die richtige Seitenzahl
% bekommen und die richtige Kapitelnummer...
% Er wird in \gesamtende oder \Referenzenhier aufgerufen,
% wenn vergessen wurde, \Referenzende einzugeben
%
\immediate\closeout\REFDATEI%
\ifbackref\immediate\closeout\BACKREFDATEI\fi%
\startpage%
\incr{\Cchapter}\@refertrue%
%\write\Inhalt{\string\CHAPdo%
%\string\CHAPnu{\the\Cchapter.}\RefTitel%
%\string\ \string\hfill\string\ \the\pageno\par}%
\write\Inhalt{\string\XCHAPtext{\the\Cchapter.}{\RefTitel}{\the\pageno}}%
\@referfalse%
\immediate\openout\REFPAG=referenz.pag%
\immediate\write\REFPAG{\string\pageno=\the\pageno}
\immediate\write\REFPAG{\string\writeinhaltfalse}
\immediate\write\REFPAG{\string\kap{\the\Cchapter}{\RefTitel}}
\immediate\write\REFPAG{\string\writeinhalttrue}
\immediate\closeout\REFPAG%
\@refsfalse}%
%
\def\Referenzende{\if@refs\REFworks\fi}%
%---------------------------------------
\def\Referenzenhier{\if@refs\REFworks\fi%
\frenchspacing%
%\subprocessfalse%
\versionfalse%
\parindent=0cm%
\parskip=6pt%
\ifbackref\@input{referenz.brf}\fi%
\@input{referenz.pag}%
\bigskip\bigskip%
\@input{referenz.tex}}%
%--------------------------------------

%----------------------------Aus Latex----------------------------

\def\@ifnextchar#1#2#3{\let\@tempe #1\def\@tempa{#2}\def\@tempb{#3}\futurelet
    \@tempc\@ifnch}
\def\@ifnch{\ifx \@tempc \@sptoken \let\@tempd\@xifnch
      \else \ifx \@tempc \@tempe\let\@tempd\@tempa\else\let\@tempd\@tempb\fi
      \fi \@tempd}
% NOTE: the following hacking must precede the definition of \:
%  as math medium space.
 
\def\:{\let\@sptoken= } \:  % this makes \@sptoken a space token
 
\def\:{\@xifnch} \expandafter\def\: {\futurelet\@tempc\@ifnch}
 
%----------------------------Aus Latex----------------------------
 
\def\@nnil{\@nil}
\def\@empty{}
\def\@fornoop#1\@@#2#3{}
 
\def\@for#1:=#2\do#3{\edef\@fortmp{#2}\ifx\@fortmp\@empty \else
    \expandafter\@forloop#2,\@nil,\@nil\@@#1{#3}\fi}
 
\def\@forloop#1,#2,#3\@@#4#5{\def#4{#1}\ifx #4\@nnil \else
       #5\def#4{#2}\ifx #4\@nnil \else#5\@iforloop #3\@@#4{#5}\fi\fi}
 
\def\@iforloop#1,#2\@@#3#4{\def#3{#1}\ifx #3\@nnil
       \let\@nextwhile\@fornoop \else
      #4\relax\let\@nextwhile\@iforloop\fi\@nextwhile#2\@@#3{#4}}

%%RmS 91/10/17: Corrected bug in \@tfor: \xdef replaced by \def
%% (See FMi's array.doc)
\def\@tfor#1:=#2\do#3{\def\@fortmp{#2}\ifx\@fortmp\@empty \else
    \@tforloop#2\@nil\@nil\@@#1{#3}\fi}
\def\@tforloop#1#2\@@#3#4{\def#3{#1}\ifx #3\@nnil
       \let\@nextwhile\@fornoop \else
      #4\relax\let\@nextwhile\@tforloop\fi\@nextwhile#2\@@#3{#4}}
 
%----------------------------------------------------------------------------

%*****************************************************************************

\newcount\refcount
\refcount=0
\newif\if@tempswa
\newcount\@tempcntb
\newcount\@tempcnta
\newtoks\@temptokena


\def\NUMMERcite#1{{\let,\komma\CITE{#1}}}

\def\bibitem#1#2{\global\advance\refcount by 1%
%\item{[\the\refcount]}{#2\par}%
\item{\RklamL\the\refcount\RklamR}{#2\par}%-------------------- 19.1.1996
\immediate\write\@currlab{\string\bibcite{#1}{\the\refcount}}}
%
\def\bibcite#1#2{\global\@namedef{b@#1}{#2}}
%
\def\CITE{\@ifnextchar[{\@tempswatrue\@citex}{\@tempswafalse\@citex[]}}
\def\@citex[#1]#2{%
\leavevmode\unskip\ \@cite{\@collapse{#2}}{#1}}
%\def\@cite#1#2{[{#1\if@tempswa , #2\fi}]} %
\def\@cite#1#2{\RklamL{#1\if@tempswa , #2\fi}\RklamR} %
%
\def\@collapse#1{%
{%------------------------------------lokale Klammer
\let\@temp\relax\@tempcntb\@MM\def\@citea{}%
%-----------------------------------------------------------
\@for\@citeb:=#1\do{%
\@ifundefined{r@Q\@citeb}%%-------in der preref - Liste ????
{\@temp\@citea{\bf \@citeb}%
\@tempcntb\@MM\let\@temp\relax
\@warning{`\@citeb ' wurde nicht mit '\string\preref'
initialisiert (Seite \folio )}%
}%
%------wenn r@Q\@citeb definiert ist (d.h. in preref erw�hnt):----------
{%
\@ifundefined{r@R\@citeb}{%
\edef\@tempe{r@R\@citeb}\incr{\Creference}%
\ifbackref\backrefwrite{\@citeb}\fi%
\expandafter\expandafter\xdef\csname\@tempe\endcsname{\the\Creference}%
\ifsubprocess%------------------------------------------------
\bgroup\defsFuersSchreiben%                  nur bei Nummern �
\edef\writeToRefdatei{%                                      �
\immediate\write\@numrefs{\string\set@Label{R\@citeb}%       �
{\@nameuse{r@R\@citeb}}}}%                                   �
\writeToRefdatei\egroup%                                     �
\fi%----------------------------------------------------------
\edef\@tempe{r@Q\@citeb}%
\refwrite{\the\Creference}{\expandafter\csname\@tempe\endcsname}}{}%
%-------------------------------------------------------------------
\@tempcnta\@tempcntb\advance\@tempcnta\@ne%
\edef\MyTemp{\csname r@R\@citeb\endcsname}%
\def\@tempa{\@temptokena=\bgroup}%
\if0A{\fi%
\afterassignment\@tempa %
\@tempcntb=0\MyTemp\relax}%
\ifnum\@tempcntb=0\relax%
\@tempcntb=\@MM\@citea\MyTemp\let\@temp = \relax\else %
\edef\@tempd{\number\@tempcntb}%
\ifnum\@tempcnta=\@tempcntb %
\ifx\@temp\relax %
\edef\@temp{\@citea\@tempd}%
\else\edef\@temp{\hbox{--}\@tempd}%
\fi\else %
\@temp\@citea\@tempd\let\@temp\relax\fi\fi%
}%end of \@ifundefined{...}
\def\@citea{,}%
}%--------------------------------end of \for ...\do
\@temp %
%-----------------------------------------------------
}%--------------------------------end of lokale Klammer von \def\collapse
}%--------------------------------end of \def\collapse
%
%*****************************************************************************
%*****************************************************************************
%
\def\NAMEcite#1{{\let,\komma\NCITE{#1}}}%
%
%
\def\NCITE{\@ifnextchar[{\@tempswatrue\@citex}{\@tempswafalse\@Ncitex[]}}%
\def\@Ncitex[#1]#2{%
%\leavevmode\unskip\ \@Ncite{\@Ncollapse{#2}}{#1}}
\leavevmode\unskip\ \@Ncite{\@Ncollapse{#2}}{#1}}
\def\@Ncite#1#2{[{#1\if@tempswa , #2\fi}]} %
%
\def\@Ncollapse#1{%
{%------------------------------------lokale Klammer
%  -------
\let\@temp\relax\def\@citea{}%
%-----------------------------------------------------------
\@for\@citeb:=#1\do{%\@warning{'\@citeb'}%
\@ifundefined{r@Q\@citeb}%%-------in der preref - Liste ????
{\@temp\@citea{\bf \@citeb}\let\@temp\relax%
\@warning{`\@citeb ' wurde nicht mit '\string\preref'
initialisiert (Seite \folio )}%
}%
%------wenn r@Q\@citeb definiert ist (d.h. in preref erw�hnt):----------
{%
\@ifundefined{r@R\@citeb}{\edef\@tempe{r@R\@citeb}%
\expandafter\expandafter\xdef\csname\@tempe\endcsname{\@citeb}%
\edef\@tempe{r@Q\@citeb}%
\refwrite{\@citeb}{\expandafter\csname\@tempe\endcsname}}{}%
\ifbackref\backrefwrite{\@citeb}\fi%
%-------------------------------------------------------------------
\@citea%
\@ifundefined{r@kR\@citeb}{\@nameuse{r@R\@citeb}}{\@nameuse{r@kR\@citeb}}%
%-------------------------------------------------------------------
}%    end of \@ifundefined{...}
\def\@citea{,}%
}%--------------------------------end of \for ...\do
\@temp %
%-----------------------------------------------------
}%--------------------------------end of lokale Klammer von \def\collapse
}%--------------------------------end of \def\collapse
%
%*****************************************************************************
%
%*****************************************************************************

%   +--------------------------+
%   �    Index-Liste           �
%   +--------------------------+

\newif\ifIndex
\Indexfalse
\newwrite\INDEXdatei

\def\Index#1{\bgroup\defsFuersSchreiben%
\edef\schreibIndex{\write\INDEXdatei{\string\IDXentry{#1}{\the\pageno}}}%
\schreibIndex\egroup}

\def\IDXentry#1#2{\hbox to \hsize{{\advance\hsize by -1cm%
\vtop{#1\par}}\hfill{\bf #2}}}
\def\DoIndex{\Indextrue\immediate\openout\INDEXdatei=\jobname.idx}
\def\Indexende{\ifIndex\immediate\closeout\INDEXdatei\fi}


%==============================================================================
%  Fussnoten
%==============================================================================
\newdimen\fussbreite%
\newdimen\fsbreite%
\newdimen\Zwischen%
\newdimen\FUSSbreite%
\newdimen\FUSSB%
\newbox\fussbox%

% -------------
%  Fussnoten
% -------------


\long\def\fussnote#1#2{{%
  \fsbreite=\fussbreite%    falls Literaturangabe nach fspezial
%  \refwrite{[#1]}{#2}%     in Referenzenliste eintragen
  \baselineskip=11pt\ten\rm%
  \setbox\strutbox=\hbox{\vrule height 7pt depth 2pt width 0pt}%
  \setbox\fussbox=\hbox{#1}%
  \FUSSbreite=-\wd\fussbox%
  \advance\FUSSbreite by \fussbreite%
  \parindent=\wd\fussbox\advance\parindent by 0.5 em%
  \FUSSB=\parindent\advance\FUSSB by \FUSSbreite%
  \everypar{\hangindent=\FUSSB}%
  \footnote{#1}{\hglue \FUSSbreite%
\vrule height 9.5pt depth 1pt width 0pt{#2}}\everypar{}}}%
%
\fussbreite=1.4cm%
\fsbreite=\fussbreite%

% ----------------- Nur K�rzel im Text darstellen --------------------------
\def\fuss#1{{\tenrm #1}}%
% ------------- Nur Text am unteren Seitenrand darstellen ------------------

\long\def\fussunten#1#2{{%
  %  \refwrite{[#1]}{#2}%     in Referenzenliste eintragen
  %      Eintragung in die Referenzenliste soll hier zu Fu� geschehen
  \baselineskip=11pt\ten\rm%
  \setbox\strutbox=\hbox{\vrule height 7pt depth 2pt width 0pt}%
  \setbox\fussbox=\hbox{#1}%
  \FUSSbreite=-\wd\fussbox%
  \advance\FUSSbreite by \fussbreite%
  \parindent=\wd\fussbox\advance\parindent by 0.5 em%
  \FUSSB=\parindent\advance\FUSSB by \FUSSbreite%
  \advance\FUSSbreite by 0.05 cm%
  \parindent=0 cm%
  \everypar{\hangindent=\FUSSB}%
  \footnote{}{#1 \hglue \FUSSbreite%
\vrule height 9.5pt depth 1pt width 0pt{#2}}\everypar{}}}%

% --------------- Spezial - Fussnote ---------------------------------------
%  kleiner hochgestellter Index im Text, aber Index unten an der Seite
%  genauso gro� wie der dortige Text.
% --------------------------------------------------------------------------
\long\def\fspezial#1#2{{\tenrm$^{\hbox{#1}}$%
\baselineskip=11pt\ten\rm%
\setbox\strutbox=\hbox{\vrule height 7pt depth 2pt width 0pt}%
\setbox\fussbox=\hbox{#1}%
\FUSSbreite=-\wd\fussbox%
\advance\FUSSbreite by \fsbreite%
\parindent=\wd\fussbox\advance\parindent by 0.5 em%
\FUSSB=\parindent\advance\FUSSB by \FUSSbreite%
\advance\FUSSbreite by 0.05 cm%
\parindent=0 cm%
\everypar{\hangindent=\FUSSB}%
\footnote{}{#1 \hglue \FUSSbreite%
\vrule height 9.5pt depth 1pt width 0pt{#2}}\everypar{}}}%


\newcount\fpage%
\newcount\ffpage%
\fpage=1%
\ffpage=1%
\long\def\FNummer#1{\ifnum\pageno=\ffpage\else\global\fpage=1\fi%
\ffpage=\pageno%
\fspezial{\the\fpage}{#1}\incr{\fpage}}

\newcount\Cfootnote
\Cfootnote=0
\def\Notemark{\noexpand\ifontheplace{\incr{\Cfootnote}{$^{\the\Cfootnote}$}}%
\noexpand\fi}
%%\long\def\Note#1{\incr{\Cfootnote}\fspezial{\the\Cfootnote}{#1}}
%%\long\def\Notetext#1{\fussunten{\hbox{$^{\the\Cfootnote}$}}{#1}}
\long\def\Notetext#1{\fussunten{\the\Cfootnote}{#1}}
%
\long\def\Note#1{\Notemark\Notetext{#1}}

% +------------------------------------------------------------------------+
% �  Kopfzeile mit Titel (nummeriert), Seitenzahl, Entstehungsdatum, -zeit �
% �    und Strich  ------------------------------------                    �
% �   linke Seiten  : Nur Kapitelnummer und Kapiteltitel                   �
% �   rechte Seiten : Unterkapitelnummer und Unterkapiteltitel             �
% +------------------------------------------------------------------------+
%
%  Definition von \thetime
%
\count@\time \divide\count@60 \edef\thetime{\the\count@ :}
\multiply\count@-60\advance\count@\time
\edef\thetime{\thetime \ifnum10>\count@ 0\fi \the\count@}
%
\newif\ifversion
\font\SeitenItal=cmti12% scaled \magstep1%
\font\SeitenFont=cmr12% scaled \magstep1%

\def\headlineX{\nopagenumbers\xdef\makeheadline{%
\vbox{\line{\the\headline}\vskip 0.5cm}}}
%---------------------------------------------------------------
\def\VERSION{\ifversion{\tenrm Version vom %
\the\day.\the\month.\the\year{ / }\thetime}\fi}
\def\SeitenNum{{\SeitenFont\folio}}
\def\FirstSeitenNum{{\SeitenItal\folio}}
%-------
\headline={\ten\rm
\ifnum\pageno=\chappageno
 \ifodd\pageno\VERSION\hfill{\FirstSeitenNum}\else%
  {\FirstSeitenNum}\hfill\VERSION\fi
\else{\parindent=0pt\vbox{\hbox to \hsize{%
\rm\ifodd\pageno\VERSION\phantom{\SeitenNum}\hfill\rtitel\hfill{\SeitenNum}%
\else{\SeitenNum}\hfill\ltitel\hfill\phantom{\SeitenNum}\VERSION%
\fi}\smallskip\hrule}}\fi}%
%---------------------------------------------------------------
\let\HX=\headlineX%

% ----------------------------------------
%  Formeln plus automatischer Querverweis
% ----------------------------------------

\def\Gle#1#2{\def\@tempa{#1}\def\@tempb{}\ifx\@tempa\@tempb%
\incr{\Cequation}$$#2\eqno{\rm(\the\Cchapter.\the\Cequation)}$$%
\else$$#2\eqno\Flab{#1}$$\fi}%

\def\GlNummer#1{\incr{\Cequation}%
\s@tLabel{F#1}{\the\Cchapter.\the\Cequation}}%

\def\Fabc#1#2{{\rm(\g@tLabel{F#1}#2)}}

% ---------------
%  Verschiedenes
% ---------------

\def\x{\hbox{$\,$}}
\def\d{{\rm d}}
\def\i{{\rm i}}
\def\e{{\rm e}}
\def\C{\hbox{$\,^{\circ}{\rm C}$}}
\def\"#1{{\accent"7F #1\penalty10000\hskip 0pt plus 0pt}}
\def\return{\hfill\break}      % Neue Zeile
\def\newpage{\vfill\eject}     % Neue Seite
\def\k{k_{\rm B}}              % Boltzmannkonstante
\def\bs{\bigskip}              % Abk�rzung f�r \bigskip
\def\ke{\noindent }
\let\nl=\return
\let\np=\newpage

% +---------------------------------------------------+
% �            zus�tzliche Symbole                    �
% +---------------------------------------------------+
% kleiner ungf�hr
\def\la{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil
$\displaystyle##$\hfil\cr<\cr\sim\cr}}}
{\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr<\cr\sim\cr}}}
{\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr<\cr\sim\cr}}}
{\vcenter{\offinterlineskip\halign
{\hfil$\scriptscriptstyle##$\hfil\cr<\cr\sim\cr}}}}}

% gr�\3er ungef�hr
\def\ga{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil
$\displaystyle##$\hfil\cr>\cr\sim\cr}}}
{\vcenter{\offinterlineskip\halign{\hfil$\textstyle##$\hfil\cr>\cr\sim\cr}}}
{\vcenter{\offinterlineskip\halign{\hfil$\scriptstyle##$\hfil\cr>\cr\sim\cr}}}
{\vcenter{\offinterlineskip\halign
{\hfil$\scriptscriptstyle##$\hfil\cr>\cr\sim\cr}}}}}

% entspricht
\def\cor{\mathrel{\mathchoice {\hbox{$\widehat=$}}{\hbox{$\widehat=$}}
{\hbox{$\scriptstyle\hat=$}}
{\hbox{$\scriptscriptstyle\hat=$}}}}

% Erwartungswert von   (es wird  < >  gesetzt)
\def\EW#1{\left\langle{#1}\right\rangle}

% Abstandhalter f�r Gleichungszeilen (H�henangaben m�ssen Einheit enthalten)
\def\AH#1{\hbox{\vrule width 0pt height #1 depth 0pt}}
\def\AHq#1{\hbox{\vrule width #1 height 0pt depth 0pt}}
\def\AHt#1{\hbox{\vrule width 0pt height 0pt depth #1}}

%          +---------------------------------------------------+
%          �              Vektoren -fett-                      �
%          +---------------------------------------------------+
\font \tams               = cmmib10      scaled \magstep1
\font \tamss              = cmmib10
\font \tenbfne            = cmb10        scaled \magstep1
\font \sevenbfne          = cmb10
\def\vek#1{\ifmmode{\textfont1=\tams\scriptfont1=\tamss
              \textfont0=\tenbfne\scriptfont0=\sevenbfne
              \mathchoice{\hbox{$\displaystyle#1$}}{\hbox{$\textstyle#1$}}
              {\hbox{$\scriptstyle#1$}}{\hbox{$\scriptscriptstyle#1$}}}
            \else \vrule width 4pt\ #1\ \fi}
%\def\vekcal#1{{\cal #1}\hskip -2.8 true mm {\cal #1}}

%          +---------------------------------------------------+
%          �      fette kleine griechische Buchstaben          �
%          +---------------------------------------------------+

\def\VEK#1{\ifmmode{\mathchoice{\hbox{\tams #1}}{\hbox{\tams #1}}%
{\hbox{\tamss #1}}{\hbox{\tamss #1}}}\else\hbox{\tams #1}\fi}
\def\VEKc#1{\ifmmode{\mathchoice{\hbox{\tams\char'#1}}{\hbox{\tams\char'#1}}
              {\hbox{\tamss\char'#1}}{\hbox{\tamss\char'#1}}}
            \else\hbox{\tams\char'#1}\fi}
\def\falpha{\VEK{\char'13}}%
%\def\falpha{\VEKc{13}}%
\def\fbeta{\VEK{\char'14}}%
\def\fgamma{\VEK{\char'15}}%
\def\fdelta{\VEK{\char'16}}%
\def\fepsilon{\VEK{\char'17}}%
\def\fzeta{\VEK{\char'20}}%
\def\feta{\VEK{\char'21}}%
\def\ftheta{\VEK{\char'22}}%
\def\fiota{\VEK{\char'23}}%
\def\fkappa{\VEK{\char'24}}%
\def\flambda{\VEK{\char'25}}%
\def\fmu{\VEK{\char'26}}%
\def\fnu{\VEK{\char'27}}%
\def\fxi{\VEK{\char'30}}%
\def\fpi{\VEK{\char'31}}%
\def\frho{\VEK{\char'32}}%
\def\fsigma{\VEK{\char'33}}%
\def\ftau{\VEK{\char'34}}%
\def\fupsilon{\VEK{\char'35}}%
\def\fphi{\VEK{\char'36}}%
\def\fchi{\VEK{\char'37}}%
\def\fpsi{\VEK{\char'40}}%
\def\fomega{\VEK{\char'41}}%
\def\fvarepsilon{\VEK{\char'42}}%
\def\fvartheta{\VEK{\char'43}}%
\def\fvaromega{\VEK{\char'44}}%
\def\fvarrho{\VEK{\char'45}}%
\def\fvarsigma{\VEK{\char'46}}%
\def\fvarphi{\VEK{\char'47}}%
%
%
%=========================================================================
%                  Makropaket Bilder
%=========================================================================

\def\shortcut#1{\def\bild{#1}}%
\let\captionfont=\eleven
\newif\ifrahmen
\newskip\figurebaselineskip
\newskip\textbaselineskip
\def\pixelinclude#1#2{\vskip 14 pt%
     \vbox to 12 pt {\vskip 0 cm\hbox to \hsize{\hskip #1 cm%
                     \special{em:graph #2} \hfill}\vfill}\vskip -26 pt}
\def\frame{\rahmentrue}
\def\noframe{\rahmenfalse}
\def\BreiterRahmen#1{\ifrahmen\vbox{\hrule\hbox to \hsize%
        {\vrule\vbox to #1 true cm{\vfill}\hfill\vrule}\hrule}%
              \else\vglue #1 true cm\fi\bigskip}
\def\RahmenLinks#1#2{\ifrahmen\vbox{\hrule\hbox to #2 true cm%
              {\vrule\vbox to #1 true cm{\vfill}\hfill\vrule}\hrule}%
          \else\vbox{\hbox to #2 true cm%
              {\vbox to #1 true cm{\vfill}\hfill}}\fi}
\def\RahmenRechts#1#2{\ifrahmen%
        \hbox to \hsize{\hfill\vbox{\hrule\hbox to #2 true cm%
        {\vrule\vbox to #1 true cm{\vfill}\hfill\vrule}\hrule}}%
         \else\hbox to \hsize{\hfill\vbox{\hbox to #2 true cm%
        {\vbox to #1 true cm{\vfill}\hfill}}}\fi}
\def\DoppelRahmen#1{\ifrahmen\vbox{\hrule\hbox to 0.48\hsize%
        {\vrule\vbox to #1 true cm{\vfill}\hfill\vrule}\hrule}%
         \vskip -#1 cm\vskip -1.7pt%
         \hbox to \hsize{\hfill\vbox{\hrule\hbox to 0.48\hsize%
        {\vrule\vbox to #1 true cm{\vfill}\hfill\vrule}\hrule}}%
          \else\vglue #1 true cm\fi}

 %-------------------------------------------------------------------------
 %               Bilder (automatische Numerierung)
 %-------------------------------------------------------------------------

 \def\seitolerant{\emergencystretch=5pt\hfuzz=1.5pt\hbadness=10000}
 %--------------------- 2 Bilder nebeneinander ----------------------------

\long\def\doppelbild#1#2#3#4#5{\Alab{#2}\Alab{#4}%
\bgroup\DoppelRahmen{#1}\bigskip\captionfont\baselineskip=\figurebaselineskip%
  \setbox0=\vbox{\hsize=0.48\hsize\noindent{\bild\ \Aref{#2}:}\ #3\par}%
  \setbox1=\vbox{\hsize=0.48\hsize\noindent{\bild\ \Aref{#4}:}\ #5\par}%
    \ifdim\ht0>\ht1%
          \setbox4=\vbox to \ht0{\box1\vss}\setbox3=\vbox{\box0}%
    \else%
          \setbox3=\vbox to \ht1{\box0\vss}\setbox4=\vbox{\box1}%
    \fi%
    \hbox to \hsize{\box3\hfil\box4}\medskip\egroup}%

%------------ 2 Bilder nebeneinander (lange Beschriftung) --------------
\long\def\doppelbildlang#1#2#3#4#5{\bgroup\BreiterRahmen{#1}%
    \Alab{#2}\Alab{#4}\captionfont\baselineskip=\figurebaselineskip%
    \leftskip 1 true cm\rightskip 1 true cm%
    \noindent{{\bild\ \Aref{#2}:}\ \ #3\par}\vskip 6 true pt%
    \noindent{{\bild\ \Aref{#4}:}\ \ #5\par}\egroup}%

 %-------------------------- Bild ganze Breite ---------------------------
\long\def\bildquer#1#2#3{\bgroup\BreiterRahmen{#1}\Alab{#2}%
    \captionfont\baselineskip=\figurebaselineskip%
    \leftskip 1 true cm\rightskip 1 true cm%
    \noindent{{\bild\ \Aref{#2}:}\ \ #3\par}\egroup}%
 %-------------------- Bild auf der rechten Seite ------------------------
\long\def\bildrechts#1#2#3#4{\bgroup\Alab{#3}\seitolerant
   \captionfont\baselineskip=\figurebaselineskip
   \setbox0=\vbox{\rightskip#2 true cm\advance\rightskip by 0.7 cm%
   \noindent{\bild\ \Aref{#3}:}\ \ #4\par}%
   \RahmenRechts{#1}{#2}\vskip-\ht0\box0\egroup}%
 %-------------------- Bild auf der linken Seite -------------------------
\long\def\bildlinks#1#2#3#4{\bgroup\Alab{#3}\seitolerant%
    \captionfont\baselineskip=\figurebaselineskip%
    \setbox0=\vbox{\leftskip#2 true cm\advance\leftskip by 0.7cm%
    \noindent{\bild\ \Aref{#3}:}\ \ #4\par}%
    \RahmenLinks{#1}{#2}\vskip-\ht0\box0\egroup}%
 %------------------------------Kurznamen------------------------------------
\let\db=\doppelbild
\let\dbl=\doppelbildlang
\let\bq=\bildquer
\let\br=\bildrechts
\let\bl=\bildlinks

\let\pix=\pixelinclude
% ---------------------------------------------------------------
%    Verwaltung f�r den Gesamtablauf (hier bitte nichts �ndern!)
% ---------------------------------------------------------------

\def\HauptDatei#1{\global\edef\mainfile{#1}}

\newif\ifsubprocess
\subprocessfalse

\def\Xinput#1{%
\ifsubprocess\else\immediate\closeout\@currlab%
\immediate\openout\@mainlab=\jobname.lab\fi%
\subprocesstrue\edef\labname{#1}%
\immediate\write\@mainlab{\string\@input{#1.lab}}\@input{#1}}

%%\def\Yinput#1{\let\@hilf\dateiende\let\dateiende\endinput%
%%\@input{#1}\let\dateiende\@hilf}

\def\Yinput#1{{\let\dateiende\endinput\let\Xunterteil\relax\@input{#1}\relax}}

\def\Xunterteil{\ifsubprocess\immediate\openout\@currlab=\labname.lab\fi}%

\def\dateiende{%
\immediate\write\@currlab{\string\endinput}\immediate\closeout\@currlab%
\ifsubprocess\edef\@ende{\endinput}%
        \else\edef\@ende{\par\vfill\supereject\@end@}%
\immediate\closeout\Inhalt\if@refs\immediate\closeout\REFDATEI%
\ifbackref\immediate\closeout\BACKREFDATEI\fi\fi\fi%
\Indexende%
\@ende}

\def\gesamtende{\Referenzende\Indexende%
\immediate\write\@mainlab{\string\endinput}\closeout\@mainlab%
\ifnummer\closeout\@numrefs\fi%
\par\vfill\supereject\@end@}

\message{*** }
\let\protect\string\immediate\write\@unused{ }

% ---------------------------
%  Ma\ss{}e und Gr\"o\ss{}en
% ---------------------------

\hsize=16.1 true cm%
\vsize=24 true cm%
\hoffset = -0.2 true cm%
\topskip = 0 true cm%
\tolerance=1000%
\hyphenpenalty=100%
\overfullrule=0pt%
\hfuzz=1pt%
\baselineskip= 16 true pt%
\parindent = 15 true pt%
%----------------------Grundeinstellung-----------------------------------
%
%-------------------------------------------------------------------------
%
\figurebaselineskip=13pt%
\textbaselineskip=16pt%
\shortcut{\bf Bild}%
\noframe%
\twelve%
\rm%
\Rklammer{[}{]}%
\def\RefTitel{Literaturverzeichnis}%
\RefKapitelfalse%
\RefWithName%
\chapindentfalse%
\def\rtitel{Abschnittstitel}%
\def\ltitel{Kapiteltitel}%
\HX%
\versiontrue%

% --------------------------------------
%  Eigene Definitionen und Abk�rzungen
% --------------------------------------

\HauptDatei{\jobname}
\@input{dokdefs.tex}%

% -----------------------------------------
%  falls jetzt auf nummerierte Referenzen
%  gesetzt wurde, muss noch etwas geschehen
% -----------------------------------------

\newwrite\@numrefs%
\ifnummer\@input{\mainfile.rlb}\immediate\openout\@numrefs=\jobname.rlb\fi%

% -----------------------------------------
%  Lesen und \"Offnen der Querverweisdatei
% -----------------------------------------

\@input{\jobname.lab}%
\newwrite\@mainlab%
\newwrite\@currlab%
\immediate\openout\@currlab=\jobname.lab%

%\catcode`@=12     %  @ ist kein Buchstabe mehr, und es k�nnen damit auch
                   %  keine Makros mehr benannt werden

\endinput
%
%
%  13.10.95   Kapitelnummerfehler in Titelzeile behoben
%
%  19.1.96    \Rklammer-Klammern fuer den cite-Befehl
%  30.1.96    Problem bei Kombination _Numerierte Referenzen_ und 
%             nicht-numerierten Kapiteln beseitigt
%             Leerraum bei nicht-numerierten \ukap beseitigt.
%
%  ........
%  seit ver 1.98  Layout Inhaltsverzeichnis
%
%  2.11.98    Trickreicher Fehler bei uukap und uuukap
%             beseitigt. Es fehlte ein \nobreak am Ende der Definition
%
%
%