% laioobr.sty   
% briefstijl voor laioo
%
% Auteur: Werenfried Spit
% First Version: 2 januari 1990
% Complete revision, including work from brief.sty
\def\stijlversie{1.3}\def\stijldatum{6 november 1990}
\gdef\at{\makeatletter @\makeatother}
%  
% 1.3 verbeteringen uit brief.sty <1.1> ingevoerd  (WS)
%
\typeout{Document Style 'LaiooBrief'. Versie <\stijlversie>, <\stijldatum>}
 
\overfullrule 0pt
\def\@ptsize{0} 
\@namedef{ds@10pt}{\def\@ptsize{0}}
\@namedef{ds@11pt}{\def\@ptsize{1}}
\@namedef{ds@12pt}{\def\@ptsize{2}}
\@namedef{ds@twoside}{\@twosidetrue}
\@twosidefalse
\def\ds@draft{\overfullrule 15pt}
\@namedef{ds@a4}{\message{De A4-optie is niet nodig: ik doe de papierafmetingen zelf.}}
\@namedef{ds@A4}{\relax}
\@namedef{ds@dutch}{\message{De dutch-optie is niet nodig}}
\@namedef{ds@dutch}{\relax}
\@namedef{ds@sober}{\message{De sober-optie is niet nodig}}
\@namedef{ds@sober}{\relax}
\@namedef{ds@datehead}{\message{De datehead-optie is niet nodig}}
\@namedef{ds@datehead}{\relax}


\newif\if@typhulp \def\ds@typhulp{\@typhulptrue}
\newif\if@streepjes \def\ds@streepjes{\@streepjestrue}
\newif\if@typhulp \def\ds@notyphulp{\@typhulpfalse}
\newif\if@streepjes \def\ds@nostreepjes{\@streepjesfalse}
\newif\if@adresrechts \def\ds@adresrechts{\@adresrechtstrue}
\newif\if@muchfonts \def\ds@muchfonts{\@muchfontstrue}        % (WS) ivm ruimte
                    \def\ds@notmuchfonts{\@muchfontsfalse}
\@muchfontstrue
\newif\if@onepage \def\ds@onepage{\@onepagetrue}
\@onepagefalse

\newcount\language \language=0 
                   \input dutch.sty % Nederlands
\def\ds@engels{\language=1   \input english.sty}
\def\ds@USengels{\language=2 \input english.sty}
\def\ds@duits{\language=3    \input german.sty}

\@options



  
\lineskip 1pt \normallineskip 1pt
\def\baselinestretch{1}
 
%%%%%%%%%%%%%%%%%%%%%%% point size %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
\ifcase \@ptsize\relax
\def\@normalsize{\@setsize\normalsize{12pt}\xpt\@xpt
\abovedisplayskip 10pt plus2pt minus5pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6pt plus3pt minus3pt}
\def\small{\@setsize\small{11pt}\ixpt\@ixpt
\abovedisplayskip 8.5pt plus 3pt minus 4pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus2pt\belowdisplayshortskip 4pt plus2pt minus 2pt}
\def\footnotesize{\@setsize\footnotesize{9.5pt}\viiipt\@viiipt
\abovedisplayskip 6pt plus 2pt minus 4pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus 1pt\belowdisplayshortskip 3pt plus 1pt minus
2pt}
\def\scriptsize{\@setsize\scriptsize{8pt}\viipt\@viipt}
\def\tiny{\@setsize\tiny{6pt}\vpt\@vpt}
\def\large{\@setsize\large{14pt}\xiipt\@xiipt}
\def\Large{\@setsize\Large{18pt}\xivpt\@xivpt}
\def\LARGE{\@setsize\LARGE{22pt}\xviipt\@xviipt}
\def\huge{\@setsize\huge{25pt}\xxpt\@xxpt}
\def\Huge{\@setsize\Huge{30pt}\xxvpt\@xxvpt}
\or
\def\@normalsize{\@setsize\normalsize{13.6pt}\xipt\@xipt
\abovedisplayskip 11pt plus3pt minus6pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6.5pt plus3.5pt
minus3pt}
\def\small{\@setsize\small{12pt}\xpt\@xpt
\abovedisplayskip 10pt plus2pt minus5pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6pt plus3pt minus3pt}
\def\footnotesize{\@setsize\footnotesize{11pt}\ixpt\@ixpt
\abovedisplayskip 8pt plus 2pt minus 4pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus 1pt\belowdisplayshortskip 4pt plus 2pt minus
2pt}
\def\scriptsize{\@setsize\scriptsize{9.5pt}\viiipt\@viiipt}
\def\tiny{\@setsize\tiny{7pt}\vipt\@vipt}
\def\large{\@setsize\large{14pt}\xiipt\@xiipt}
\def\Large{\@setsize\Large{18pt}\xivpt\@xivpt}
\def\LARGE{\@setsize\LARGE{22pt}\xviipt\@xviipt}
\def\huge{\@setsize\huge{25pt}\xxpt\@xxpt}
\def\Huge{\@setsize\Huge{30pt}\xxvpt\@xxvpt}
\or
\def\@normalsize{\@setsize\normalsize{15pt}\xiipt\@xiipt
\abovedisplayskip 12pt plus3pt minus7pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6.5pt plus3.5pt
minus3pt}
\def\small{\@setsize\small{13.6pt}\xipt\@xipt
\abovedisplayskip 11pt plus3pt minus6pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6.5pt plus3.5pt
minus3pt}
\def\footnotesize{\@setsize\footnotesize{12pt}\xpt\@xpt
\abovedisplayskip 10pt plus2pt minus5pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6pt plus3pt minus3pt}
\def\scriptsize{\@setsize\scriptsize{9.5pt}\viiipt\@viiipt}
\def\tiny{\@setsize\tiny{7pt}\vipt\@vipt}
\def\large{\@setsize\large{18pt}\xivpt\@xivpt}
\def\Large{\@setsize\Large{22pt}\xviipt\@xviipt}
\def\LARGE{\@setsize\LARGE{25pt}\xxpt\@xxpt}
\def\huge{\@setsize\huge{30pt}\xxvpt\@xxvpt}
\let\Huge=\huge
\fi
\normalsize

%%%%%%%%%%%%%%%%%%%%%% Paper Size %%%%%%%%%%%%%%%%%%%%%%%%%%
\oddsidemargin=7.6mm 
\evensidemargin=\oddsidemargin
%V rechter marge is volgens NEN 10mm; voor symmetrie lijkt 33 mij beter.
\textwidth=134mm 
% \@rightskip=0cm plus 5cm \rightskip=\@rightskip  % uitgevulde paragrafen (WS)
\marginparwidth=0pt \marginparsep=0pt \marginparpush=0pt
\topmargin-12.4mm 
%V het briefhoofd komt tot 43mm van de bovenkant van het papier
\headheight=15mm \headsep=0mm
\newdimen\@firstheadheight \@firstheadheight=39mm
\newdimen\@otherheadheight \@otherheadheight=\headheight 
\newdimen\@otherheadsep \@otherheadsep=2mm
\newdimen\@vervolgsep
\newdimen\footsep \footsep=2.5cm %%analoog aan headsep
\newdimen\@firsttextheight \@firsttextheight=243mm % eigenlijk 203mm:
\newdimen\@firstpageskip   \@firstpageskip=40mm    
\newdimen\@othertextheight \@othertextheight=243mm
\textheight=\@firsttextheight % op het timmermansoog
\if@onepage\@othertextheight=\textheight\fi
\columnsep 10pt \columnseprule 0pt %V twee koloms brieven? belachelijk!
\raggedbottom %% hm! zonder raggedbottom gaat het slot mis.
\footnotesep 12pt \skip\footins 10pt plus 2pt minus 4pt
\floatsep 12pt plus 2pt minus 2pt
\textfloatsep 20pt plus 2pt minus 4pt
\intextsep 12pt plus 2pt minus 2pt
\dblfloatsep 12pt plus 2pt minus 2pt
\dbltextfloatsep 20pt plus 2pt minus 4pt
\@maxsep 20pt
\@dblmaxsep 20pt
\@fptop 0pt plus 1fil
\@fpsep 8pt plus 2fil
\@fpbot 0pt plus 1fil
\@dblfptop 0pt plus 1fil
\@dblfpsep 8pt plus 2fil
\@dblfpbot 0pt plus 1fil

 
\newdimen\longindentation
\longindentation=0.4\textwidth
\newdimen\indentedwidth
\indentedwidth=\textwidth
\advance\indentedwidth -\longindentation

%%%%%%%%%%%%%%%%%%%%%%%%%%% opening / afsluiting %%%%%%%%%%%%%%%%%%%%%
\if@muchfonts     \gdef\refkopfont{\footnotesize\sf}            % (WS)
                  \gdef\kleinvet{\footnotesize\sf}
                  \gdef\headfont{\large\sf}
\else             \font\refkopfont=cmssq8
                  \font\kleinvet=cmbx7
                  \gdef\headfont{\Large\sf}
\fi

\def\opening#1{\thispagestyle{firstpage}  
               \begin{figure}[b]{\vskip \@firstpageskip}\end{figure} % de laatste 4cm moeten leeg zijn ivm de vergrote kop en voet
               \adresveld 
               \prevdepth=-1000pt %% ????
               \vskip 2mm
               \if@typhulp \referentieregels \else \referentieblok \fi
               \vskip 10mm
               \relax#1
               \par\vspace*{4.5mm}\nobreak}
\def\ondertekening#1{\def\fromsig{#1}}\def\fromsig{}
%V een aanzienlijke verbetering op de LL constructie: nu kun je
%V de ondertekening na de afsluiting geven.
\long\def\afsluiting#1{\par\nobreak\vspace{\parskip}
 \stopbreaks \noindent
 \ifx\@empty\fromsig
     \def\ondertekening##1{\def\fromsig{##1}
         \hskip\longindentation \parbox{.5\textwidth}{\raggedright
                 \ignorespaces #1 \\[2\baselineskip] \fromsig \strut}}
 \else \parbox{.5\textwidth}{\raggedright
         \hskip\longindentation \ignorespaces #1 \\[2\parskip]
         \fromsig \strut}
 \fi \par}
 

\def\betreft#1{\def\@subject{#1}} \def\@subject{}
\def\ps{\par\startbreaks}
\def\cc#1{\par\noindent
    \parbox[t]{\textwidth}{\@hangfrom{\rm cc: }\ignorespaces 
    #1\strut}\par}
\def\bijlage#1{\par\noindent
    \parbox[t]{\textwidth}{\@hangfrom{\rm \bijlagetekst\ }\ignorespaces 
    #1\strut}\par}
\def\bijlagen#1{\par\noindent
    \parbox[t]{\textwidth}{\@hangfrom{\rm \bijlagentekst\ }\ignorespaces 
    #1\strut}\par}
\def\stopletter{}
 
 
\def\returnaddress{}
\newcount\labelcount

\def\startlabels{\labelcount=0 \baselineskip=0pt \lineskip=0pt
\pagestyle{empty}
\let\@texttop=\relax
\topmargin -25mm
\headsep 0pt
\oddsidemargin -35pt
\evensidemargin -35pt
\textheight 297mm
\@colht\textheight \@colroom\textheight \vsize\textheight
\textwidth 210mm
\columnsep 3.79mm
\baselineskip=0pt
\lineskip=0pt
\boxmaxdepth=0pt
\twocolumn\relax}
% \def\mlabel#1#2{\setbox0\vbox{%
% \parbox[b]{3.6in}{\strut\ignorespaces #2}}
%  \vbox to 2in{\vss \box0 \vss}}
\def\mlabel#1#2{\setbox0\vbox{%
\parbox[b]{90mm}{\raggedright\strut\ignorespaces #2}}
 \vbox to 37.125mm{\vss \box0 \vss}}
 
\long\def\brief#1{\newpage
 \c@page\@ne
 \interlinepenalty=200 \@processto{#1}
 \@defrefveld{\@Ad}{\geadresseerdetekst}{\toname}
 \ifdim\wd\@Dt=0cm \@defrefveld{\@Dt}{\datumtekst}{\vandaag}\fi
%% misschien headheight opvoeren en textheight verminderen
%% voor de vervolgbladen. Nb: op het eerste blad mag niet met
%% de textheight geklooid worden, omdat dan het adres op de
%% verkeerde hoogte kan komen.
 {\setbox\@tempboxa=\vervolghoofd
  \@tempdima=\ht\@tempboxa
  \advance\@tempdima by -\@otherheadheight 
  \ifdim\@tempdima>0cm 
        \global\advance\@otherheadheight by \@tempdima
        \global\advance\@othertextheight by -\@tempdima \fi}
%% idem voetregel bekijken
 {\setbox\@tempboxa=\vbox{\voetregel}
  \global\footskip=\ht\@tempboxa %%moet de teksthoogte niet minder worden?
  \global\advance\footskip by \footsep}
 } %V maar niet als die er als is!!!
\def\endbrief{\stopletter\@@par\pagebreak\@@par
 \if@filesw \begingroup
     \def\protect{\string} \let\\=\relax
     \def\protect##1{\string##1\space}
     \immediate\write\@auxout{\string\mlabel{\returnaddress}{\toname
     \\\toaddress}}
 \endgroup \fi
 %% en nu forceren dat elke brief zijn eigen referenties heeft.
 \begingroup \setbox\@tempboxa=\box\@UB \setbox\@tempboxa=\box\@UK
             \setbox\@tempboxa=\box\@OK \endgroup
 }

\long\def\brief#1{\newpage
 \c@page\@ne
 \interlinepenalty=200 \@processto{#1}}
\def\endletter{\stopletter\@@par\pagebreak\@@par
\if@filesw
\begingroup
\def\protect{\string}
\let\\=\relax
\def\protect##1{\string##1\space}
\immediate\write\@auxout{\string\mlabel{\returnaddress}{\toname
\\\toaddress}}
\endgroup
\fi}
\long\def\@processto#1{\@xproc #1\\@@@\ifx\toaddress\@empty
 \else \@yproc #1@@@\fi}
\long\def\@xproc #1\\#2@@@{\def\toname{#1}\def\toaddress{#2}}
\long\def\@yproc #1\\#2@@@{\def\toaddress{#2}}
\def\stopbreaks{\interlinepenalty \@M
 \def\par{\@@par\nobreak}\let\\=\@nobreakcr
 \let\vspace\@nobreakvspace}
\def\@nobreakvspace{\@ifstar{\@nobreakvspacex}{\@nobreakvspacex}}
\def\@nobreakvspacex#1{\ifvmode\nobreak\vskip #1\relax\else
 \@bsphack\vadjust{\nobreak\vskip #1}\@esphack\fi}
\def\@nobreakcr{\vadjust{\penalty\@M}\@ifstar{\@xnewline}{\@xnewline}}
\def\startbreaks{\let\\=\@normalcr
 \interlinepenalty 200\def\par{\@@par\penalty 200}}

\def\name#1{\def\fromname{#1}}
\def\signature#1{\def\fromsig{#1}}
\def\fromsig{}
\long\def\address#1{\def\fromaddress{#1}}
\def\fromaddress{}
\def\stuknummer#1{
     \def\@stuknummer{#1}
     \def\@stuknummerbox{
     \raisebox{18mm}{\hbox to 4\refveldbreedte{ \hfill \fbox{\footnotesize\sf \@stukname ~ #1} }}
     }}
\def\@stuknummer{}
\def\@stuknummerbox{}

%%%%%%%%%%%%%%%%%%%%%%%% adresveld %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\gdef\@hss{\hskip 0cm plus 1filll minus 1filll\relax}

\newdimen\adresveldbreedte 
\newif\if@antwoordadres
\def\antwoordadres#1{\@antwoordadrestrue\def\@antwoordadres{#1}}
\def\@antwoordadres{}
\def\adresveld{\hbox{}\kern-\topskip
    \kern-12mm
    \bgroup% \baselineskip=0pt %% dit voorkomt tonnen problemen.
           \lineskip=0pt     %% tonnetjes.
     \if@adresrechts \adresveldbreedte=4\refveldbreedte
         \advance\adresveldbreedte by -76mm
         \def\@tempa{\moveright 76mm} 
         \else \let\@tempa\relax \adresveldbreedte=83mm\fi
     \setbox\@tempboxa= % geadresseerde plus adres
            \vtop{\hsize=\adresveldbreedte \@normalsize
                  \rightskip=0cm plus \adresveldbreedte
                  \let\\=\@nobreakcr \toname \\ \toaddress}
     \if@typhulp {\footnotesize\sf\hrule \@height.05ex \@width\adresveldbreedte}  \fi
     \if@antwoordadres\@tempa\vbox to 0cm{
            \hbox to \adresveldbreedte{\kleinvet 
            \def\\{\unskip\enspace$\bullet$\enspace\ignorespaces}%
            \@antwoordadres\hfil}\kern2pt
            \hrule \vss}\fi
%       \if@typhulp \@tempa\llap{\vbox to 0cm
%                      {\vskip9mm\streepje\vss}} \fi
     \kern 7mm \kern-\ht\@tempboxa \@tempdima=\dp\@tempboxa% 
     \if \@tempboxa > 27mm \typeout{Overfull addressbox}\fi
     \@tempa\box\@tempboxa \kern-\@tempdima
     \vskip27mm % totale hoogte adresbox 34mm
     \hrule \@height.05ex \@width4\refveldbreedte
    \egroup}


%%%%%%%%%%%%%%%%%%%%%% referentieblok %%%%%%%%%%%%%%%%%%%%%%%%%%
\newdimen\refveldbreedte 
\refveldbreedte=38mm %% 3/2 inch. zie NEN 3516
\newdimen\halfrefveldbreedte 
\halfrefveldbreedte=25mm

\def\@defrefveld#1#2#3{\setbox#1=\@horrefveld{#2}{#3}}
\def\@defverrefveld#1#2#3{\setbox#1=\@verrefveld{#2}{#3}}
\def\@horrefveld#1#2{\hbox{\refkopfont
                        \hbox to\halfrefveldbreedte{#1 \hss} 
                        \hbox{#2} }}  
%   \def\@refveld#1#2{\vtop{\hsize=\refveldbreedte \parskip=0cm
%                           \lineskiplimit=0cm \baselineskip=12pt
%                           \rightskip=0cm plus \refveldbreedte
%                                          minus .5\refveldbreedte
%                           \vbox{\refkopfont\baselineskip=10pt #1\strut}
%                           #2}}
\def\@verrefveld#1#2{\hbox to\refveldbreedte{
                     \vtop{\hsize=\refveldbreedte\parskip=0cm%
                           \refkopfont%
                           \hbox to \hsize{#1 \hfil\strut} 
                           \viiipt\sf #2 }\hss}}  
\newbox\@UB \newbox\@UK \newbox\@OK \newbox\@Dt  \newbox\@Su
\def\uwbriefvan#1{\@defrefveld{\@UB}{\uwbrieftekst}{#1}}
\def\uwkenmerk#1{\@defrefveld{\@UK}{\uwkenmerktekst}{#1}}
\def\onskenmerk#1{\@defrefveld{\@OK}{\onskenmerktekst}{#1}}
\def\onderwerp#1{\@defrefveld{\@Su}{\betrefttekst}{#1}}
\def\datum#1{\def\@tempa{}\def\@tempb{#1}\ifx\@tempa\@tempb
    \setbox\@Dt\hbox{ }\else\@defrefveld{\@Dt}{\datumtekst}{#1}\fi\def\@datum{#1}}
%V Datum word geinitialiseerd op \vandaag in \brief
%V als de gebruiker verder niets doet, als hij een leeg argument opgeeft
%V verschijnt er in het geheel geen datum.

\def\referentieblok{\vbox{\raggedright\refkopfont
             {\copy\@Dt}
             {\copy\@UB}
             {\copy\@UK}
             {\copy\@OK}
             {\copy\@Su}
            }}
\def\referentieregels{\vbox{
  \hbox{\@verrefveld{\uwbrieftekst}{\vskip 9mm} \@verrefveld{\uwkenmerktekst}{}
        \@verrefveld{\onskenmerktekst}{} \@verrefveld{\datumtekst}{}  \@hss}
  \@horrefveld{\betrefttekst:}{}            }
  \vskip 2mm}

\newbox\@Ad %V Geadresseerde: geinitialiseerd in \brief
\def\vervolgreferentieregel{\vbox 
             {\hbox to 4\refveldbreedte 
              {\normalsize\sf \@datum \hfill  \thepage\hss}}}

%%%%%%%%%%%%%%%%%%%%%%%%% headers / footers %%%%%%%%%%%%%%%%%%%%%%%
\def\briefhoofd{}\def\vervolghoofd{\vbox{}}
\def\oddvervolghoofd{\vbox{}}\def\evenvervolghoofd{\vbox{}}
\def\maakbriefhoofd
   {\@ifstar {\@kortvervolgbriefhoofd}{\@langvervolgbriefhoofd}}
\def\@kortvervolgbriefhoofd
   #1#2{ \gdef\@stukname{#1}
    \@maakbriefhoofd{\xxpt\sf #1}{\normalsize\sf #2}
    \def\oddvervolghoofd{\normalsize\sf
                         \vbox{\hsize=\textwidth %4\refveldbreedte
                         \hbox to \hsize{\strut\hfil #2}
                         {\footnotesize\sf \hrule \@height 0.3ex \@width \hsize}
                          \kern2mm }}
    \let\vervolghoofd=\oddvervolghoofd
    \def\evenvervolghoofd{\normalsize\sf
                         \vbox{\hsize=\textwidth %4\refveldbreedte
                         \hbox to \hsize{#1\strut\hfil}
                         {\footnotesize\sf \hrule \@height 0.3ex \@width \hsize}
                         \kern2mm }}
}

\def\@langvervolgbriefhoofd
   #1#2{ \gdef@stukname{#1}
    \@maakbriefhoofd{\xxpt\sf #1}{\normalsize\sf #2}
    \def\oddvervolghoofd{\normalsize\sf  
                        \vbox{\briefhoofd\vskip2mm
                        \vbox{}}}
    \let\vervolghoofd=\oddvervolghoofd
    \def\evenvervolghoofd{\normalsize\sf  
                        \vbox{\briefhoofd\vskip2mm
                        \vbox{}}}
}
\def\@maakbriefhoofd#1#2{\def\briefhoofd{%
       \vbox{\normalsize\sf
             \hsize=4\refveldbreedte  
             \hbox to \hsize{#1\strut\hfil}
             \vskip 1.5mm
             \hrule \@height.3ex \@width 4\refveldbreedte
             \vskip 1.5mm
             \hbox to \hsize {\strut \hfill \hbox{#2} }
             }}}
\maakbriefhoofd*{LAIOO}{Landelijk AiO Overleg}
\gdef\@stukname{laioo} % vanwege de kleine letters
\newbox\@voetruimte \setbox\@voetruimte=\hbox{}
\newcount\@voetteller
\def\voetregel{\hbox to 4.1\refveldbreedte{\leftskip=0pt\parskip=0pt
               \vtop{\footnotesize\sf 
               \kern-\@firstpageskip
               \hrule \@height 0.05ex \@width 4\refveldbreedte
               \vskip 2mm
               \if\@voetteller>0\copy\@voetruimte\else\defaultbox\fi} \hss}}
\def\oddvervolgvoetregel{\vbox 
             {\hrule
              \vskip 2mm
              \hbox to \textwidth{\footnotesize\sf \@datum \hfill  \thepage\hss}}}
\def\evenvervolgvoetregel{\vbox 
             {\hrule
              \vskip 2mm
              \hbox to \textwidth{\footnotesize\sf \thepage \hfill  \strut \hss}}}
\let\vervolgvoetregel=\oddvervolgvoetregel
\def\voetitem#1#2{\advance\@voetteller by 1
    \setbox\@voetruimte=\hbox to 4\refveldbreedte 
           {\unhbox\@voetruimte 
            \ifcase\@voetteller \relax \or \relax \or 
                                \hfil \else \hfill \fi
            \@verrefveld{#1}{#2}\hskip0cm plus 3\refveldbreedte}}
\def\ps@empty{
    \def\@oddhead{}\def\@oddfoot{}
    \def\@evenhead{}\def\@evenfoot{}}
\def\ps@plain{
    \def\@oddhead{}\def\@evenhead{}
    \def\@oddfoot{\rm\hfil\thepage}
    \let\@evenfoot=\@oddfoot}
%% @hss omdat de kop en voet te breed zijn.
\def\ps@headings{  
    \if@twoside\def\@oddhead{\vbox to \@otherheadheight
                      {\oddvervolghoofd\vfill
                       \if@streepjes\streepjes{\@otherheadheight}\fi}%
                  \hss}
               \def\@evenhead{\vbox to \@otherheadheight
                      {\evenvervolghoofd\vfill}%
                   \hss}
    \else\def\@oddhead{\vbox to \@otherheadheight
                      {\evenvervolghoofd\vfill
                       \if@streepjes\streepjes{\@otherheadheight}\fi}%
                  \hss}
          \let\@evenhead=\@oddhead\fi
    \def\@oddfoot{\oddvervolgvoetregel\@hss} 
    \def\@evenfoot{\evenvervolgvoetregel\@hss} 
}
\def\ps@firstpage{
\headheight=\@firstheadheight
\global\textheight=\@othertextheight
\global\headsep=\@otherheadsep
    \def\@oddhead{\vbox to \@firstheadheight
                      {\briefhoofd\vfill
                       \hbox{\@stuknummerbox\@hss}
                       \if@streepjes\streepjes{\@firstheadheight}\fi}%
                  \hss}
    \def\@evenhead{}
    \def\@oddfoot{\voetregel\@hss}
     \let\@evenfoot=\@oddfoot}

%%%%%%%%%%%% default footing

\def\location#1#2{\voetitem{Afzender:}{#1}\voetitem{}{#2}    }
\def\@Secretariaat{Secretariaat:}
\def\@afzender{W.F.M. Spit}
\def\@fromlocation{R.J. v.d. Graafflaboratorium \\
               Postbus 80.000 \\
               3508~TA~~Utrecht}
\def\telefoon#1{\def\@phonenr{#1}}
\def\@phonenr{030--532330}
\def\email#1{\def\@email{Email: #1}}
\def\fax#1{\def\@fax{Telefax: #1}}
\def\telex#1{\def\@telex{Telex: #1}}
\def\@email{Email: nspit\at fys.ruu.nl}
\def\@fax{Telefax: 030--518689}


%  \voetitem{\protect\@Secretariaat}{\protect\@afzender \\ \protect\@fromlocation}
%  \voetitem{}{\protect\telefoon: \protect\@phonenumber \\
%              \@fax \\
%              \@email }

\def\defaultbox{\hbox to 4\refveldbreedte
{ %\hfil
  \@verrefveld{\@Secretariaat \hskip.2em}{\protect\@afzender}  
  \hskip-12mm
  \@verrefveld{}{\protect\@fromlocation}
  \@verrefveld{}{\protect\telefoon: \protect\@phonenr \\
                 \protect\@fax \\
                 \protect\@email  }
 \hfil
}}




%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% vouwstreepjes %%%%%%%%%%%%%%%%%%%%%%%%%%
%% momenteel alleen envelop EN-DL-V geimplementeerd
\def\streepje{\hbox to 2mm{\hrulefill}}
\def\streepjes#1{\vbox to 0cm
         {\kern-#1  %% dit brengt ons bovenin het briefhoofd, 13mm onder
          \hbox to \textwidth                 %% de rand van het papier
             {\llap{\perfstreepje\kern24mm}\hfill %% 7mm van rand op 33mm
              \rlap{\kern18mm\vouwstreepjes}}     %% 7mm van rand op 33mm
          \vss}}                              %% zie textwidth boven.
\def\perfstreepje {\vtop{\kern\z@
                         \kern 135mm %% 297/2 - 13
                         \streepje}}
\def\vouwstreepjes{\vtop{\kern\z@
                         \kern 91mm % 92mm %% 105-13
                         \streepje  %% denk maar dat dit geen dikte heeft
                         \kern 50mm %% 155-150
                         \streepje}}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\document{\endgroup
 \@colht\textheight \@colroom\textheight \vsize\textheight
 \columnwidth\textwidth \@clubpenalty\clubpenalty
 \if@twocolumn \advance\columnwidth -\columnsep
 \divide\columnwidth\tw@ \hsize\columnwidth \@firstcolumntrue
 \fi
 \hsize\columnwidth \linewidth\hsize
 \begingroup\@floatplacement\@dblfloatplacement\endgroup
 \if@filesw \immediate\openout\@mainaux=\jobname.aux
 \immediate\write\@mainaux{\string\startlabels\string\@startlabels}\fi
 \def\do##1{\let ##1\@notprerr}
 \@preamblecmds
 \let\do\noexpand
 \@normalsize\everypar{}}
\def\enddocument{\@checkend{document}\newpage\begingroup
\if@filesw \immediate\closeout\@mainaux
\makeatletter\input \jobname.aux\clearpage
\fi\endgroup\deadcycles\z@\@@end}
 
\def\makelabels{\@fileswtrue}
\def\@startlabels{}
 

\def\@texttop{\ifnum\c@page=1\vskip 0pt  % plus 0.00006fil
\relax\fi}
%\def\p@sheadings{\def\@oddhead{\sl To \ignorespaces\toname \hfil \today
%\hfil Page \thepage}\def\@oddfoot{}}
%  \def\ps@headings{%
%  \def\@oddhead{\sl\ignorespaces\toname \hfil \@date\hfil --\ \thepage}%
%  \def\@evenhead{\sl\ignorespaces\toname \hfil \@date\hfil --\ \thepage}%
%  \def\@oddfoot{}\def\@evenfoot{}}
\def\ps@empty{%
\def\@oddhead{}\def\@oddfoot{}\def\@evenhead{}\def\@evenfoot{}}
\def\ps@plain{%
\def\@oddhead{}\def\@oddfoot{\rm\hfil\thepage \hfil}%
\def\@evenhead{}\let\@evenfoot\@oddfoot}
 
\parskip 0.7em \parindent 0pt \topsep 0.4em \partopsep 0pt \itemsep 0.4em
\@lowpenalty 51 \@medpenalty 151 \@highpenalty 301
\@beginparpenalty -\@lowpenalty \@endparpenalty -\@lowpenalty \@itempenalty
-\@lowpenalty

\leftmargini 2.5em
\leftmarginii 2.2em 
\leftmarginiii 1.87em 
\leftmarginiv 1.7em 
\leftmarginv 1em
\leftmarginvi 1em
\leftmargin\leftmargini
\labelwidth\leftmargini\advance\labelwidth-\labelsep
\labelsep 5pt
\parsep 0pt
\let\@listi\relax
\def\@listii{\leftmargin\leftmarginii
 \labelwidth\leftmarginii\advance\labelwidth-\labelsep}
\def\@listiii{\leftmargin\leftmarginiii
 \labelwidth\leftmarginiii\advance\labelwidth-\labelsep
 \topsep 0.2em
 \itemsep \topsep}
\def\@listiv{\leftmargin\leftmarginiv
 \labelwidth\leftmarginiv\advance\labelwidth-\labelsep}
\def\@listv{\leftmargin\leftmarginv
 \labelwidth\leftmarginv\advance\labelwidth-\labelsep}
\def\@listvi{\leftmargin\leftmarginvi
 \labelwidth\leftmarginvi\advance\labelwidth-\labelsep}
 
\def\labelenumi{\arabic{enumi}.}
\def\theenumi{\arabic{enumi}}
\def\labelenumii{(\alph{enumii})}
\def\theenumii{\alph{enumii}}
\def\p@enumii{\theenumi}
\def\labelenumiii{\roman{enumiii}.}
\def\theenumiii{\roman{enumiii}}
\def\p@enumiii{\theenumi(\theenumii)}
\def\labelenumiv{\Alph{enumiv}.}
\def\theenumiv{\Alph{enumiv}}
\def\p@enumiv{\p@enumiii\theenumiii}
 
\def\labelitemi{$\bullet$}
\def\labelitemii{\bf --}
\def\labelitemiii{$\ast$}
\def\labelitemiv{$\cdot$}
\def\verse{\let\\=\@centercr
 \list{}{\itemsep\z@ \itemindent -15pt\listparindent \itemindent
 \rightmargin\leftmargin\advance\leftmargin 15pt}\item[]}
\let\endverse\endlist
\def\quotation{\list{}{\listparindent 1.5em
 \itemindent\listparindent
 \rightmargin\leftmargin}\item[]}
\let\endquotation=\endlist
\def\quote{\list{}{\rightmargin\leftmargin}\item[]}
\let\endquote=\endlist
 
\def\descriptionlabel#1{\hspace\labelsep \it #1}
\def\description{\list{}{\leftmargin\descriptionmargin
 \labelwidth\leftmargin \advance\labelwidth -\labelsep
 \let\makelabel\descriptionlabel}}
\let\enddescription\endlist
\newdimen\descriptionmargin
\descriptionmargin=3em
 
\def\theequation{\arabic{equation}}
 
\arraycolsep 5pt \tabcolsep 6pt \arrayrulewidth 0.4pt \doublerulesep 2pt
\tabbingsep \labelsep
\skip\@mpfootins = \skip\footins
\fboxsep = 3pt \fboxrule = 0.4pt
\def\footnoterule{\kern-1\p@
 \hrule width 0.4\columnwidth
 \kern 0.6\p@}
 
\long\def\@makefntext#1{\noindent \hangindent 5pt\hbox
 to 5pt{\hss $^{\@thefnmark}$}#1}
 
\c@topnumber=2
\def\topfraction{0.7}
\c@bottomnumber=1
\def\bottomfraction{0.3}
\c@totalnumber=3
\def\textfraction{0.2}
\def\floatpagefraction{0.5}
\c@dbltopnumber= 2
\def\dbltopfraction{0.7}
\def\dblfloatpagefraction{0.5}
 
 
\smallskipamount=.5\parskip \medskipamount=\parskip
\bigskipamount=2\parskip
\frenchspacing
\ps@empty \pagenumbering{arabic} \onecolumn \@fileswfalse 
% \raggedright


% definities die eigenlijk wel in de preamble zouden kunnen
%

\newcommand{\ij}{i\hspace{-0.12em}j}
\newcommand{\bau}{{\sc bau}}
\newcommand{\aio}{{\sc aio}}
\newcommand{\oio}{{\sc oio}}
\newcommand{\ruu}{{\sc ruu}}
\newcommand{\rug}{{\sc rug}}
\newcommand{\rul}{{\sc rul}}
\newcommand{\eur}{{\sc eur}}
\newcommand{\uva}{{\sc uva}}
\newcommand{\kun}{{\sc kun}}
\newcommand{\kub}{{\sc kub}}
\newcommand{\tud}{{\sc tud}}
\newcommand{\tue}{{\sc tue}}
\newcommand{\ut}{{\sc ut}}
\newcommand{\rl}{{\sc rl}}
\newcommand{\vu}{{\sc vu}}
\newcommand{\luw}{{\sc luw}}
\newcommand{\dcp}{{\sc dcp}}
\newcommand{\nwo}{{\sc nwo}}
\newcommand{\fom}{{\sc fom}}
\newcommand{\cor}{{\sc cor}}
\newcommand{\stw}{{\sc stw}}
\newcommand{\laioo}{{\sc laioo}}


%%%%%%%%%%%%%%%%%%%%%%%%%%% talen %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\ifcase\language % 0: Nederlands
   \def\uwbrieftekst{Uw brief van}
   \def\uwkenmerktekst{Uw kenmerk}
   \def\onskenmerktekst{Ons kenmerk}
   \def\datumtekst{Datum}
   \def\geadresseerdetekst{Geadresseerde}
   \def\bladnummertekst{Bladnummer}
   \def\vandaag{\number\day~\ifcase\month\or
     januari\or februari\or maart\or april\or mei\or juni\or juli\or
     augustus\or september\or oktober\or november\or december\fi
     \space \number\year}
   \def\betrefttekst{Onderwerp}
   \def\bijlagetekst{Bijlage:}
   \def\bijlagentekst{Bijlagen:}
   \def\telefoon{Telefoon}   
\or % 1: Engels
   \def\uwbrieftekst{Your letter of}
   \def\uwkenmerktekst{Your reference}
   \def\onskenmerktekst{Our reference}
   \def\datumtekst{Date}
   \def\geadresseerdetekst{To}
   \def\bladnummertekst{Page}
   \def\vandaag{\ifcase\day\or
       1st\or 2nd\or 3rd\or 4th\or 5th\or
       6th\or 7th\or 8th\or 9th\or 10th\or
       11th\or 12th\or 13th\or 14th\or 15th\or
       16th\or 17th\or 18th\or 19th\or 20th\or
       21st\or 22nd\or 23rd\or 24th\or 25th\or
       26th\or 27th\or 28th\or 29th\or 30th\or
       31st\fi~\ifcase\month\or
       January\or February\or March\or April\or May\or June\or
       July\or August\or September\or October\or November\or December\fi
       \space \number\year}
   \def\betrefttekst{Subject}
   \def\bijlagetekst{Enclosure:}
   \def\bijlagentekst{Enclosures:}
   \def\telefoon{Telephone}
\or % 2: Amerikaans
   \def\uwbrieftekst{Your letter of}
   \def\uwkenmerktekst{Your reference}
   \def\onskenmerktekst{Our reference}
   \def\datumtekst{Date}
   \def\geadresseerdetekst{To}
   \def\bladnummertekst{Page}
   \def\vandaag{\ifcase\month\or
     January\or February\or March\or April\or May\or June\or
     July\or August\or September\or October\or November\or December\fi
     \space\number\day, \number\year}
   \def\betrefttekst{Subject}
   \def\bijlagetekst{Enclosure:}
   \def\bijlagentekst{Enclosures:}
   \def\telefoon{Telephone}
\or % 3: Duits
   \def\uwbrieftekst{Ihr Brief von}
   \def\uwkenmerktekst{Ihr Zeichen}
   \def\onskenmerktekst{Unser Zeichen}
   \def\datumtekst{Datum}
   \def\geadresseerdetekst{An}
   \def\bladnummertekst{Zettel}
   \def\vandaag{\number\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 November\or Dezember\fi
     \space\number\year}
   \def\betrefttekst{Betrifft}
   \def\bijlagetekst{Anlage:}
   \def\bijlagentekst{Anlagen:}
   \def\telefoon{Telephoon}
\fi
% et qui parle Fran\c{c}ais, nowadays?

\newcounter{figure}
% \def\fnum@figure{\figurename{} \thefigure} %V from Dutch
\def\thefigure{}
% \def\fps@figure{tbp}
\def\ftype@figure{1}
% \def\ext@figure{lof}
\def\figure{\@float{figure}}
\let\endfigure\end@float
\@namedef{figure*}{\@dblfloat{figure}}
\@namedef{endfigure*}{\end@dblfloat}



%
\def\today{\vandaag}
\ps@headings
\ds@streepjes
\datum{\vandaag}