% patch the bodyhead

\chardef\atcode=\catcode`\@
\catcode`\@=11 % \makeatletter

\newcount\entry
\entry=0


%%
%% Da das Adreßfeld auf der rechten Seite ausgegeben wird, muß wahrscheinlich
%% noch die horizontale Position bestimmt werden.
%% Momentan werden 9cm vom linken Rand des Formulars (nicht der Papierkante!)
%% eingerückt.
%%
%\newdimen\addressindent \addressindent=9.5truecm
%
%\def\invoice{\pageno=1 \def\addressee{} \invoicelogo
%  \line{\hbox to\longindentation{\vbox{\footfont\baselineskip9truept
%    \hsize=\longindentation\companytext}\hfill}\kern-\longindentation
%    \vbox{\smallheadfont\baselineskip9truept
%      \leftskip=\longindentation\sendingaddress}}%
%  \bigskip\bigskip
%  \line{\hbox to\addressindent{\rm\@date\hfil}\underbar{\footfont\sender}\hfil}}
%
%\def\address{\beginlinemode\getaddress}
%{\obeylines\gdef\getaddress #1
%  #2
%  {#1\gdef\addressee{#2}%
%    \global\setbox\theaddress=\vbox to 3.5cm\bgroup\vss\raggedright%
%    \parindent=\addressindent
%    \everypar{\hangindent2em}#2
%    \def\endmode{\vss\egroup\endgroup \copy\theaddress \bigskip\bigskip}}}
%\def\toname#1{\gdef\addressee{#1}}

%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% part 0
%
% remove the logo and shift down the date
%
% note: you can use this part with any other parts
%

%\def\invoice{\pageno=1 \def\addressee{} {\hrule height 0pt}
%  \bigskip\bigskip
%  \line{\hbox to\longindentation{\underbar{\footfont\sender}
%    \hfil}\hfil}}
%
%\def\address{\beginlinemode\getaddress}
%{\obeylines\gdef\getaddress #1
%  #2
%  {#1\gdef\addressee{#2}%
%    \global\setbox\theaddress=\vbox to 3.5cm\bgroup\vss\raggedright%
%    \hsize=\longindentation \everypar{\hangindent2em}#2
%    \def\endmode{\vss\egroup\endgroup \copy\theaddress\line{\hfil\rm\@date}\bigskip}}}
%\def\toname#1{\gdef\addressee{#1}}

%
% end of part I
%
%%%%%%%%%%%%%%%%%%%%%%%%%%



%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% part I
%
% show positions with article numbers and two vat rates
%
% note: if you want to use this part, comment out part II and III and IV
%

%\def\positions#1{\tabskip=0pt\halign to \hsize{
%  \strut##\hfil\tabskip=1em plus 1fil& % die Artikelnummer
%  ##\hfil&% die Artikelbezeichnung
%  \hfil##\hskip.5em&% die Mengenangabe
%  \hfil##&% der Einzelpreis
%  \hfil##&% der Positionspreis  v o r  15% Mehrwertsteuer
%  \hfil##\tabskip=0pt\cr % der Positionspreis  v o r   7% Mehrwertsteuer
%  \footfont\artnumname&\omit\footfont\designationname&\omit\footfont\quantityname&%
%  \footfont\retailname&\footfont\pricename~I&\footfont\pricename~II\cr
%  \noalign{\smallskip}
%  #1\crcr}} % die eigentlichen Rechnungspositionen
%
%\def\singleposition|#1|#2|#3|#4|#5|#6|#7|#8|#9|{
%  #6& % die Artikelnummer
%  #1& % die Artikelbezeichnung
%  \printformattedamount{#2}&% die Mengenangabe
%  \printformattedamount{#3}&% der Einzelpreis
%  \printformattedamount{#4}&% der Positionspreis  v o r  15% Mehrwertsteuer
%  \printformattedamount{#5}\cr}% der Positionspreis  v o r   7% Mehrwertsteuer

%
% end of part I
%
%%%%%%%%%%%%%%%%%%%%%%%%%%


%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% part II
%
% show positions without article numbers and only one vat rate
%
% note: you also need part IV below, and comment out part I and III
%

%\def\positions#1{\tabskip=0pt\halign to \hsize{
%  \strut##\hfil\tabskip=1em plus 1fil& % die Artikelbezeichnung
%  \hfil##\hskip.5em&% die Mengenangabe
%  \hfil##&% der Einzelpreis
%  \hfil##\tabskip=0pt\cr% der Positionspreis  v o r  15% Mehrwertsteuer
%  \footfont\designationname&\omit\footfont\quantityname&%
%  \footfont\retailname&\footfont\sumname\cr
%  \noalign{\smallskip}
%  #1\crcr}} % die eigentlichen Rechnungspositionen
%
%\def\singleposition|#1|#2|#3|#4|#5|#6|#7|#8|#9|{
%  #1& % die Artikelbezeichnung
%  \printformattedamount{#2}&% die Mengenangabe
%  \printformattedamount{#3}&% der Einzelpreis
%  \printformattedamount{#4}\cr}% der Positionspreis  v o r  15% Mehrwertsteuer

%
% end of part II
%
%%%%%%%%%%%%%%%%%%%%%%%%%%


%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% part III
%
% show positions with article numbers and only one vat rate
%
% note: you also need part IV below, and comment out part I and II
%

%\def\positions#1{\tabskip=0pt\halign to \hsize{
%  \strut##\hfil\tabskip=1em plus 1fil& % die Artikelnummer
%  ##\hfil&% die Artikelbezeichnung
%  \hfil##\hskip.5em&% die Mengenangabe
%  \hfil##&% der Einzelpreis
%  \hfil##\tabskip=0pt\cr % der Positionspreis  v o r   15% Mehrwertsteuer
%  \footfont\artnumname&\omit\footfont\designationname&\omit\footfont\quantityname&%
%  \footfont\retailname&\footfont\sumname\cr
%  \noalign{\smallskip}
%  #1\crcr}} % die eigentlichen Rechnungspositionen
%
%\def\singleposition|#1|#2|#3|#4|#5|#6|#7|#8|#9|{
%  #6& % die Artikelnummer
%  #1& % die Artikelbezeichnung
%  \printformattedamount{#2}&% die Mengenangabe
%  \printformattedamount{#3}&% der Einzelpreis
%  \printformattedamount{#4}\cr}% der Positionspreis  v o r   15% Mehrwertsteuer

%
% end of part III
%
%%%%%%%%%%%%%%%%%%%%%%%%%%


%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% start of part IV
%
% show only one vatrate at the end
%

%\def\totals|#1|#2|#3|#4|#5|{\gdef\footlinetext{\hfil\@thanks@name\hfil}
%  \vfill\hrule\vskip\blocklineskip\tabskip=0pt\halign to \hsize{
%    \strut##\hfil\tabskip=1em plus 1fil&% "`Summe I und II"'
%    \hfil## \%&% "`15%"' und "`7%"'
%    \hfil##&% Mehrwertsteuerbeträge
%    \hfil{\bf##}\tabskip=0pt\cr % "`Rechnungsbetrag"' und sein Wert
%    \footfont\totalname\ \currencyname&
%    \omit\footfont\vatname&\footfont\currencyname&
%    \footfont\amountname\ \currencyname\cr
%    \printformattedamount{#1}&
%      \printformattedamount{\vat@rate@I}&\printformattedamount{#3}&
%      \underbar{\printformattedamount{#5}}\cr}
%  \vskip\blocklineskip\hrule}
%
%\def\subtotals|#1|#2|#3|#4|#5|{\gdef\footlinetext{\ifnum\pageno>0
%  \nextpage=\pageno \advance\nextpage by 1\hfil\continuename\
%  \the\nextpage\hfil\fi}
%  \vfill\hrule\vskip\blocklineskip\tabskip=0pt\halign to \hsize{
%    \strut##\hfil\tabskip=1em plus 1fil&% "`Zwischensumme"'
%    \hfil## \%&% "`15%"' und "`7%"'
%    \hfil##&% Mehrwertsteuerbeträge
%    \hfil{\bf##}\tabskip=0pt\crcr % "`Übertrag"' und sein Wert
%    \footfont\subtotalname\ \currencyname&
%    \omit\footfont\vatname&\footfont\currencyname&
%    \footfont\carryovername\ \currencyname\cr
%    \printformattedamount{#1}&
%      \printformattedamount{\vat@rate@I}&\printformattedamount{#3}&
%      \underbar{\printformattedamount{#5}}\cr
%  \noalign{\vskip\blocklineskip\hrule\eject\hrule\vskip\blocklineskip}
%    \footfont\subtotalname\ \currencyname&
%    \omit\footfont\vatname&\footfont\currencyname&
%    \footfont\carryovername\ \currencyname\cr
%    \printformattedamount{#1}&
%      \printformattedamount{\vat@rate@I}&\printformattedamount{#3}&
%      \underbar{\printformattedamount{#5}}\cr}
%  \vskip\blocklineskip\hrule\vskip\positionskip}

%
% end of part IV
%
%%%%%%%%%%%%%%%%%%%%%%%%%%

\catcode`\@=\atcode % return to previous catcode