\def\vouchversiondate{1991-Nov-13}
\typeout{Document Style `voucher' (AT\&T Bell Laboratories Expense Vouchers).  
Release \vouchversiondate .}
%
% Changes:
%---------------------------------
%  
%	91-Jan-31	fixed `and' in spellout
%       91-Feb-21       added \miles
%       91-Sep-26       fudged several v spacings to reduce total size
%                         enough to print better on laser printers
%                         all marked with `should be'; total about 11pt
%       91-Oct-7        added `-' to spellout, eg. twenty-two & fixed
%                         some extra interwords spaces
%       91-Nov-13       fixed typo, INCURREND
%------------------
% article.sty  4-Sep-86
%
% Page dimension parameters
%
\def\@ptsize{0} \@namedef{ds@11pt}{\def\@ptsize{1}}
\@namedef{ds@12pt}{\def\@ptsize{2}} 
% old ptsize maintained for compatiblity by tm@ptsize used so that 
% sizes not starting with 1 are supported.
\def\tm@ptsize{8}
\@namedef{ds@10pt}{\def\tm@ptsize{10}}
\@namedef{ds@11pt}{\def\tm@ptsize{11}}
\@namedef{ds@12pt}{\def\tm@ptsize{12}} 
\@namedef{ds@9pt}{\def\tm@ptsize{9}} 
\@namedef{ds@8pt}{\def\tm@ptsize{8}} 
\def\ds@twoside{\@twosidetrue \@mparswitchtrue} \def\ds@draft{\overfullrule
5pt} 
\@options
\input tm\tm@ptsize.sty\relax


\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 -1.5em\listparindent \itemindent 
 \rightmargin\leftmargin\advance\leftmargin 1.5em}\item[]}
\let\endverse\endlist
\def\quotation{\list{}{\listparindent 1.5em
 \itemindent\listparindent
 \rightmargin\leftmargin \parsep 0pt plus 1pt}\item[]}
\let\endquotation=\endlist
\def\quote{\list{}{\rightmargin\leftmargin}\item[]}
\let\endquote=\endlist

\def\descriptionlabel#1{\hspace\labelsep \bf #1}
\def\description{\list{}{\labelwidth\z@ \itemindent-\leftmargin
 \let\makelabel\descriptionlabel}}
\let\enddescription\endlist


\def\theequation{\arabic{equation}}


\def\titlepage{\@restonecolfalse\if@twocolumn\@restonecoltrue\onecolumn
 \else \newpage \fi \thispagestyle{empty}\c@page\z@}
\def\endtitlepage{\if@restonecol\twocolumn \else \newpage \fi}

\arraycolsep 5pt \tabcolsep 6pt \arrayrulewidth .4pt \doublerulesep 2pt 
\tabbingsep \labelsep 

\skip\@mpfootins = \skip\footins
\fboxsep = 3pt \fboxrule = .4pt 

\newcounter{part}
\newcounter {section}
\newcounter {subsection}[section]
\newcounter {subsubsection}[subsection]
\newcounter {paragraph}[subsubsection]
\newcounter {subparagraph}[paragraph]

\def\thepart{\Roman{part}} \def\thesection {\arabic{section}}
\def\thesubsection {\thesection.\arabic{subsection}}
\def\thesubsubsection {\thesubsection .\arabic{subsubsection}}
\def\theparagraph {\thesubsubsection.\arabic{paragraph}}
\def\thesubparagraph {\theparagraph.\arabic{subparagraph}}

\def\@pnumwidth{1.55em}
\def\@tocrmarg {2.55em}
\def\@dotsep{4.5}
\setcounter{tocdepth}{3}

\def\tableofcontents{\setcounter{tm@totalpages}{\c@page}\newpage
\pagenumbering{roman}\parskip=0pt%
 \section*{Contents\@mkboth{CONTENTS}{CONTENTS}}
 \@starttoc{toc}}
\def\l@part#1#2{\addpenalty{\@secpenalty}
 \addvspace{2.25em plus 1pt} \begingroup
 \@tempdima 3em \parindent \z@ \rightskip \@pnumwidth \parfillskip
-\@pnumwidth 
 {\large \bf \leavevmode #1\hfil \hbox to\@pnumwidth{\hss #2}}\par
 \nobreak \endgroup}
% changed to make section like subsection -- tla
% \def\l@section#1#2{\addpenalty{\@secpenalty} \addvspace{1.0em plus 1pt}
% \@tempdima 1.5em \begingroup
%  \parindent \z@ \rightskip \@pnumwidth 
%  \parfillskip -\@pnumwidth 
%  \bf \leavevmode #1\hfil \hbox to\@pnumwidth{\hss #2}\par
%  \endgroup}
\def\l@section{\addpenalty{\@secpenalty} \addvspace{1.0em plus 1pt}
   \@dottedtocline{1}{0em}{1.5em}}
\def\l@subsection{\@dottedtocline{2}{1.5em}{2.3em}}
\def\l@subsubsection{\@dottedtocline{3}{3.8em}{3.2em}}
\def\l@paragraph{\@dottedtocline{4}{7.0em}{4.1em}}
\def\l@subparagraph{\@dottedtocline{5}{10em}{5em}}
\def\listoffigures{\newpage\section*{List of Figures\@mkboth
 {LIST OF FIGURES}{LIST OF FIGURES}}\@starttoc{lof}}
\def\l@figure{\@dottedtocline{1}{1.5em}{2.3em}}
\def\listoftables{\newpage\section*{List of Tables\@mkboth
 {LIST OF TABLES}{LIST OF TABLES}}\@starttoc{lot}}
\let\l@table\l@figure



\@namedef{thebibliography*}#1{\section*{References\@mkboth
 {REFERENCES}{REFERENCES}\addcontentsline{toc}{section}{REFERENCES}}\list
 {[\arabic{enumi}]}{\settowidth\labelwidth{[#1]}\leftmargin\labelwidth
 \advance\leftmargin\labelsep
 \usecounter{enumi}}
 \setcounter{tm@references}{0}
 \def\newblock{\hskip .11em plus .33em minus -.07em}
 \sloppy\clubpenalty4000\widowpenalty4000
 \sfcode`\.=1000\relax}
\def\thebibliography{\clearpage\csname thebibliography*\endcsname}
\def\endthebibliography{\endlist}
\@namedef{endthebibliography*}{\endthebibliography} 

%
% bibitem redefined to count all items -- enumi only counts those
%   with default label
%
\def\bibitem{\global\advance\c@tm@references by1%
  \@ifnextchar[{\@lbibitem}{\@bibitem}}
 

\newif\if@restonecol
\def\theindex{\@restonecoltrue\if@twocolumn\@restonecolfalse\fi
\columnseprule \z@
\columnsep 35pt\twocolumn[\section*{Index}]
 \@mkboth{INDEX}{INDEX}\thispagestyle{plain}\parindent\z@
 \parskip\z@ plus .3pt\relax\let\item\@idxitem}
\def\@idxitem{\par\hangindent 40pt}
\def\subitem{\par\hangindent 40pt \hspace*{20pt}}
\def\subsubitem{\par\hangindent 40pt \hspace*{30pt}}
\def\endtheindex{\if@restonecol\onecolumn\else\clearpage\fi}
\def\indexspace{\par \vskip 10pt plus 5pt minus 3pt\relax}

\def\footnoterule{\kern-3\p@ 
 \hrule width .4\columnwidth 
 \kern 2.6\p@} 

\long\def\@makefntext#1{\parindent 1em\noindent 
 \hbox to 1.8em{\hss$^{\@thefnmark}$}#1}


\setcounter{topnumber}{5}
\def\topfraction{.7}
\setcounter{bottomnumber}{5}
\def\bottomfraction{.3}
\setcounter{totalnumber}{10}
\def\textfraction{.2}
\def\floatpagefraction{.5}
\setcounter{dbltopnumber}{2}
\def\dbltopfraction{.7}
\def\dblfloatpagefraction{.5}

\long\def\@makecaption#1#2{
 \vskip 10pt 
 \setbox\@tempboxa\hbox{#1: #2}
 \ifdim \wd\@tempboxa >\hsize #1: #2\par \else \hbox
to\hsize{\hfil\box\@tempboxa\hfil} 
 \fi}


\newcounter{figure}
\def\thefigure{\@arabic\c@figure}
\def\fps@figure{tbp}
\def\ftype@figure{1}
\def\ext@figure{lof}
\def\fnum@figure{Figure \thefigure}
\def\figure{\@float{figure}}
\let\endfigure\end@float
\@namedef{figure*}{\@dblfloat{figure}}
\@namedef{endfigure*}{\end@dblfloat}
\newcounter{table}
\def\thetable{\@arabic\c@table}
\def\fps@table{tbp}
\def\ftype@table{2}
\def\ext@table{lot}
\def\fnum@table{Table \thetable}
\def\table{\@float{table}}
\let\endtable\end@float
\@namedef{table*}{\@dblfloat{table}}
\@namedef{endtable*}{\end@dblfloat}


\def\maketitle{\par
 \begingroup
 \def\thefootnote{\fnsymbol{footnote}}
 \def\@makefnmark{\hbox 
 to 0pt{$^{\@thefnmark}$\hss}} 
 \if@twocolumn 
 \twocolumn[\@maketitle] 
 \else \newpage
 \global\@topnum\z@ \@maketitle \fi\thispagestyle{plain}\@thanks
 \endgroup
 \setcounter{footnote}{0}
 \let\maketitle\relax
 \let\@maketitle\relax
 \gdef\@thanks{}\gdef\@author{}\gdef\@title{}\let\thanks\relax}
\def\@maketitle{\newpage
 \null
 \vskip 2em \begin{center}
 {\LARGE \@title \par} \vskip 1.5em {\large \lineskip .5em
\begin{tabular}[t]{c}\@author 
 \end{tabular}\par} 
 \vskip 1em {\large \@date} \end{center}
 \par
 \vskip 1.5em} 
\def\abstract{\if@twocolumn
\section*{Abstract}
\else \small 
\begin{center}
{\bf Abstract\vspace{-.5em}\vspace{0pt}} 
\end{center}
\quotation 
\fi}
\def\endabstract{\if@twocolumn\else\endquotation\fi}

\mark{{}{}} 

\if@twoside \def\ps@headings{\let\@mkboth\markboth
\def\@oddfoot{}\def\@evenfoot{}\def\@evenhead{\rm \thepage\hfil \sl
\leftmark}\def\@oddhead{\hbox{}\sl \rightmark \hfil
\rm\thepage}\def\sectionmark##1{\markboth {\uppercase{\ifnum \c@secnumdepth
>\z@
 \thesection\hskip 1em\relax \fi ##1}}{}}\def\subsectionmark##1{\markright
{\ifnum \c@secnumdepth >\@ne
 \thesubsection\hskip 1em\relax \fi ##1}}}
\else \def\ps@headings{\let\@mkboth\markboth
\def\@oddfoot{}\def\@evenfoot{}\def\@oddhead{\hbox {}\sl \rightmark \hfil
\rm\thepage}\def\sectionmark##1{\markright {\uppercase{\ifnum \c@secnumdepth
>\z@
 \thesection\hskip 1em\relax \fi ##1}}}}
\fi

\def\today{\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}

\ps@plain \pagenumbering{arabic} \onecolumn \if@twoside\else\raggedbottom\fi 

%------------------
%  END OF MATERIAL FROM ARTICLE.STY


% Input local page positioning parameters
\input local.sty 
% input LaTeX extentions
%
\input tmaddon.sty		

\def\cents{\hbox{\rm\rlap/c}}
\def\voucher@companyname{AT\&T BELL LABORATORIES}
\def\tableline{\hbox to\hsize}

\newsavebox{\check@box}
\global\sbox{\check@box}{%
  \vbox to 12pt{\hrule\hbox to 12pt{\vbox to 11.2pt{}\vrule\hfill\vrule}\vfill\hrule}
  }%
\newsavebox{\small@box}
\global\sbox{\small@box}{%
  \vbox to 5pt{\hrule\hbox to 5pt{%
    \vbox to 4.2pt{}\vrule\hfill\vrule}\vfill\hrule}
  }%
\def\voucher{\init@totals
  \voucher@setsizes
  \setbox0\vbox\bgroup\voucher@head
  \voucher@idtable\labelfont
}
\def\endvoucher{\noindent% 
%  \vfill
  \egroup%
  \copy0\voucher@bottoma
  \copy0\voucher@bottomb
  \box0\voucher@bottomc
  \typeout{Total DUE: \the\c@voucher@due}
  }
\def\expenses{\vskip-1pt% should be +1
  \centerline{\biglabelfont BUSINESS EXPENSES INCURRED}\vskip2pt%should be 4pt
  \hbox\bgroup\fatvrule\vbox\bgroup%
    \voucher@expensehead\vskip-1pt%
  }%
\def\endexpenses{\voucher@totalline%
  \egroup\medvrule\egroup%
  }%
\newsavebox{\otherexpenses@box}
\def\otherexpenses{%
  \global\sbox{\otherexpenses@box}\bgroup\fatvrule%
    \raise8pt\vtop\bgroup\hsize493pt%
    \voucher@otherhead%
  }%
\def\endotherexpenses{\voucher@othertail%
  \egroup\fatvrule%
  \hfill\egroup%
  }%
\def\projnums{\setcounter{proj@percent}{0}%
  \prevdepth=-1000pt\hbox\bgroup\vtop\bgroup%
    \hbox{}\hbox{\usebox{\otherexpenses@box}}%
    \prevdepth=-1000pt\hbox\bgroup%
      \fatvrule\vtop\bgroup\hsize244pt\projnum@head%
  }%
\def\endprojnums{\projnum@tail\fathrule\vfill\egroup%
    \fatvrule%
    \vtop{\hsize242pt%
      \disposition@balance\fathrule\vfill}%
    \fatvrule%
    \egroup\egroup\exp@summary\egroup}%
%
\newdimen\hoffset@amount\hoffset@amount=-70pt
\def\shifttoleft{\hoffset@amount=-250pt}
\def\voucher@setsizes{%
  \hsize=760pt \vsize=8.3in \textheight 8.3in
  \newpage
  \hoffset\hoffset@amount\voffset-70pt
  \pagestyle{empty}
  \font\attlogofont=att36
  \font\labelfont=cmss8
  \font\littlelabelfont=cmr6
  \font\biglabelfont=cmss9
  \parindent=0pt
  \newdimen\fatrule\fatrule=2.0pt
  \newdimen\medrule\medrule=1.6pt
  \newdimen\thinrule\thinrule=1pt
  \def\fathrule{\hrule height\fatrule}%
  \def\fatvrule{\vrule width\fatrule}%
  \def\medhrule{\hrule height\medrule}%
  \def\medvrule{\vrule width\medrule}%
  \def\thinhrule{\hrule height\thinrule}%
  \def\thinvrule{\vrule width\thinrule}%
  \font\largesf=cmss10
  \labelfont
}
\def\englishnumber#1{%
  \ifnum#1=0 zero
  \else\ifnum#1=1 one
  \else\ifnum#1=2 two
  \else\ifnum#1=3 three
  \else\ifnum#1=4 four
  \else\ifnum#1=5 five
  \else\ifnum#1=6 six
  \else\ifnum#1=7 seven
  \else\ifnum#1=8 eight
  \else\ifnum#1=9 nine\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}
%
\def\Englishnumber#1{%
  \ifnum#1=0 Zero
  \else\ifnum#1=1 One
  \else\ifnum#1=2 Two
  \else\ifnum#1=3 Three
  \else\ifnum#1=4 Four
  \else\ifnum#1=5 Five
  \else\ifnum#1=6 Six
  \else\ifnum#1=7 Seven
  \else\ifnum#1=8 Eight
  \else\ifnum#1=9 Nine\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}
%
\def\englishtens#1{%
  \ifnum#1=0 zero%
  \else\ifnum#1=1 BAD % should call teens for next digit
  \else\ifnum#1=2 twenty%
  \else\ifnum#1=3 thirty%
  \else\ifnum#1=4 forty%
  \else\ifnum#1=5 fifty%
  \else\ifnum#1=6 sixty%
  \else\ifnum#1=7 seventy%
  \else\ifnum#1=8 eighty%
  \else\ifnum#1=9 ninety\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}%
%
\def\Englishtens#1{%
  \ifnum#1=0 zero%
  \else\ifnum#1=1 BAD% should call teens for next digit
  \else\ifnum#1=2 Twenty%
  \else\ifnum#1=3 Thirty%
  \else\ifnum#1=4 Forty%
  \else\ifnum#1=5 Fifty%
  \else\ifnum#1=6 Sixty%
  \else\ifnum#1=7 Seventy%
  \else\ifnum#1=8 Eighty%
  \else\ifnum#1=9 Ninety\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}%
%
\def\englishteens#1{
  \ifnum#1=0 zero
  \else\ifnum#1=1 eleven
  \else\ifnum#1=2 twelve
  \else\ifnum#1=3 thirteen
  \else\ifnum#1=4 fourteen
  \else\ifnum#1=5 fifteen
  \else\ifnum#1=6 sixteen
  \else\ifnum#1=7 seventeen
  \else\ifnum#1=8 eighteen
  \else\ifnum#1=9 nineteen\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}
%
\def\Englishteens#1{
  \ifnum#1=0 Zero
  \else\ifnum#1=1 Eleven
  \else\ifnum#1=2 Twelve
  \else\ifnum#1=3 Thirteen
  \else\ifnum#1=4 Fourteen
  \else\ifnum#1=5 Fifteen
  \else\ifnum#1=6 Sixteen
  \else\ifnum#1=7 Seventeen
  \else\ifnum#1=8 Eighteen
  \else\ifnum#1=9 Nineteen\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}
%
\def\get@right@digit#1{% returns righthand digit in voucher@tempa
                       % number divided by 10 in voucher@tempb
  \setcounter{voucher@tempa}{#1}%
  \setcounter{voucher@tempb}{#1}%
  \divide\c@voucher@tempb by10%
  \setcounter{voucher@tempc}{\c@voucher@tempb}%
  \multiply\c@voucher@tempc by10%
  \advance\c@voucher@tempa by-\c@voucher@tempc%
  }%
%
\newcounter{voucher@one}
\newcounter{voucher@ten}
\newcounter{voucher@hundred}
\newcounter{voucher@thousand}
\newcounter{voucher@tenthousand}
%
\newif\ifnotzero
\def\voucher@spellout#1{% dollars; cents will not be spelled out
  \setcounter{voucher@tempb}{#1}%
  \get@right@digit\c@voucher@tempb
  \setcounter{voucher@one}{\c@voucher@tempa}
  \get@right@digit\c@voucher@tempb
  \setcounter{voucher@ten}{\c@voucher@tempa}
  \get@right@digit\c@voucher@tempb
  \setcounter{voucher@hundred}{\c@voucher@tempa}
  \get@right@digit\c@voucher@tempb
  \setcounter{voucher@thousand}{\c@voucher@tempa}
  \get@right@digit\c@voucher@tempb
  \setcounter{voucher@tenthousand}{\c@voucher@tempa}
  \raise2pt\vbox{\hrule width1in}
  \notzerofalse
  \ifnum\c@voucher@tenthousand=0
    \ifnum\c@voucher@thousand>0
      \Englishnumber{\c@voucher@thousand}\notzerotrue\fi\fi
  \ifnum\c@voucher@tenthousand=1
    \ifnum\c@voucher@thousand>0
      \Englishteens{\c@voucher@thousand}\notzerotrue\fi\fi
  \ifnum\c@voucher@tenthousand>1
    \Englishtens{\c@voucher@tenthousand}\notzerotrue%
    \ifnum\c@voucher@thousand>0%
      -\Englishnumber{\c@voucher@thousand}\notzerotrue\fi\fi
  \ifnotzero Thousand \fi
  \ifnum\c@voucher@hundred>0
    \Englishnumber{\c@voucher@hundred}Hundred \notzerotrue\fi
  \ifnum\c@voucher@ten=0
    \ifnum\c@voucher@one>0
%      \ifnotzero\ and\fi
      \Englishnumber{\c@voucher@one}\fi\fi
  \ifnum\c@voucher@ten=1
    \ifnum\c@voucher@one>0
%      \ifnotzero\ and\fi
      \Englishteens{\c@voucher@one}\fi\fi
  \ifnum\c@voucher@ten>1
%    \ifnotzero\ and\fi
    \Englishtens{\c@voucher@ten}%
    \ifnum\c@voucher@one>0%
      -\Englishnumber{\c@voucher@one}\fi\fi%
  \kern1pt\raise2pt\vbox{\hrule width1in}
  }
%
\newdimen\box@width%
\newdimen\tableboxheight%
\newdimen\fatboxheight%
\def\tablebox{\@ifstar%
    {\box@width=0pt% vrule width
      \tbl@box{}{\tableboxheight}}%
    {\box@width-0.4pt%
      \tbl@box{\vrule}{\tableboxheight}}}%
\def\tbl@box#1#2#3#4{%
    \advance\box@width#3%
    \vbox to #2{\hsize=\box@width\vfill%
    \tableline{#4}\vfill}#1}%
\def\dollars@cents#1{%
    \ifnum#1=0\def\voucher@dollars{}\def\voucher@cents{}%
    \else\setcounter{voucher@temp}{#1}%
      \divide\c@voucher@temp by 100\def\voucher@dollars{\thevoucher@temp}%
      \setcounter{voucher@tempb}{\value{voucher@temp}}%
      \multiply\c@voucher@tempb by 100\setcounter{voucher@tempa}{#1}%
      \addtocounter{voucher@tempa}{-\value{voucher@tempb}}%
      \ifnum\c@voucher@tempa>9
        \def\voucher@cents{\thevoucher@tempa}%
      \else\def\voucher@cents{0\thevoucher@tempa}%  
      \fi
    \fi
}%
\def\expbox{\@ifstar%
    {\exp@fatbox}%
    {\exp@box}%
    }%
\def\exp@box#1{%
    \dollars@cents{#1}%
    \vbox{\hbox{%
      \tablebox*{42.6pt}{\hskip2pt\hfill\voucher@dollars\hskip2pt}%
      \vrule height6pt%
      \tablebox{18pt}{\hfill\voucher@cents\hfill}}}%
    }%
\def\exp@fatbox#1{%
      \dollars@cents{#1}%
      \fatboxheight\tableboxheight\advance\fatboxheight-1.6pt%
      \vbox{\medhrule\hbox{\medvrule\box@width0pt%
        \tbl@box{}{\fatboxheight}{41pt}{\hskip2pt\$\hfil\voucher@dollars\hskip2pt}%
        \vrule height6pt\box@width-0.4pt%
        \tbl@box{\vrule}{\fatboxheight}{18pt}{\hfill\voucher@cents\hfill}}}%
      }%
%
\def\voucher@head{%
  \hbox to \hsize{%
    \rlap{\vbox{\hsize=130pt\parbox{40pt}{\attlogofont L}
      \parbox{86pt}{{\attlogofont AT\&T}}}}
    \hfill
    \vbox{\hsize=2in\hbox{\hfill \largesf EXPENSE VOUCHER \hfill}}
    \hfill}\vskip1pt}% should be 6
\def\voucher@bottoma{\vskip-2pt%
  \hbox to \hsize{%
    \rlap{\vbox to 20pt{\hsize=4.3in
      {\footnotesize\vfill
      \hbox{* Nonemployee Account Number}
      \hbox{**Enter Non-travel Meals under ``Other Expenses,'' see
             reverse side for description}
      \vfill}}}
    \hfill
    \vbox to 20pt{\hsize=2in\vfill{\largesf\hfill TREASURY COPY\hfill}\vfill}
    \hfill
    \llap{\vbox to 20pt{\hsize=2in\vfill{\largesf\hfill\voucher@companyname}%
          \vfill}} 
    }\vfill\newpage}
\def\voucher@bottomb{\vskip-2pt%
  \hbox to \hsize{%
    \rlap{\vbox to 20pt{\hsize=4.3in
      {\footnotesize\vfill
      \hbox{* Nonenployee Account Number}
      \hbox{**Enter Non-travel Meals under ``Other Expenses,'' see
             reverse side for description}
      \vfill}}}
    \hfill
    \vbox to 20pt{\hsize=2in\vfill{\largesf\hfill DUPLICATE TREASURY COPY\hfill}\vfill}
    \hfill
    \llap{\vbox to 20pt{\hsize=2in\vfill{\largesf\hfill\voucher@companyname}%
          \vfill}} 
    }\vfill\newpage}
\def\voucher@bottomc{\vskip-2pt%
  \hbox to \hsize{%
    \rlap{\vbox to 20pt{\hsize=4.3in
      {\footnotesize\vfill
      \hbox{* Nonenployee Account Number}
      \hbox{**Enter Non-travel Meals under ``Other Expenses,'' see
             reverse side for description}
      \vfill}}}
    \hfill
    \vbox to 20pt{\hsize=2in\vfill{\largesf\hfill EMPLOYEE COPY\hfill}\vfill}
    \hfill
    \llap{\vbox to 20pt{\hsize=2in\vfill{\largesf\hfill\voucher@companyname}%
          \vfill}} 
    }\vfill\newpage}
%
% top table that identifies filer
\def\voucher@idtable{{\noindent%
  \newdimen\box@width%
  \def\tablebox{\@ifstar%
    {\box@width-0.4pt% vrule width
     \tbl@box{\vrule}}%
    {\box@width=0pt%
     \tbl@box{}}}%
  \def\tbl@box##1##2##3##4{%
      \advance\box@width##2%
      \vbox to 20pt{\hsize=\box@width\vfill%
      \tableline{{\hskip2pt\labelfont##3\hfill}}%
      \tableline{{\hfill\labelfont##4\hfill}}\vfill}##1}%
  \def\otherbox{\@ifstar%
    {\box@width-0.4pt% vrule width
     \oth@box{\vrule}}%
    {\box@width=0pt%
     \oth@box{}}}%
  \def\oth@box##1##2##3##4{%
      \advance\box@width##2%
      \vbox to 28pt{\hsize=\box@width\vfill%
      \tableline{{\hskip2pt\labelfont##3\hfill}}%
      \tableline{{\hskip2pt\labelfont##4\hfill}}\vfill}##1}%
 \fatvrule
   \vbox{\fathrule%
         \hbox{%   First Row
            \tablebox*{118pt}{AT\&T-BL PAN OR NEICS NO.*}{\voucher@pan}%
            \tablebox{130pt}{NAME\hskip45pt (LAST)}{\voucher@lname}%
            \tablebox{115pt}{(FIRST)}{\voucher@fname}%
            \tablebox*{50pt}{(MI)}{\voucher@mname}%
            \tablebox*{91pt}{NO. OF PERSONS}{\voucher@numpersons}%
            \tablebox*{127pt}{ORG. NUMBER}{\voucher@orgnum}%
            \tablebox{125pt}{DATE}{\voucher@date}%
            \hfill%
         }\thinhrule
         \hbox{%  Second Row
            \tablebox*{118pt}{CANDIDATE NO.}{\voucher@cannum}%
            \tablebox*{73pt}{BASE LOC.}{\voucher@baseloc}%
            \tablebox*{79pt}{ROOM}{\voucher@room}%
            \tablebox*{143pt}{PHONE NUMBER}%
              {(\voucher@phonearea) \voucher@phoneexch%
                  --\voucher@phonenum}%
            \tablebox*{218pt}{BUSINESS PURPOSE}{\voucher@buspurpose}%
            \tablebox{125pt}{DATE OF EARLIEST CHARGE}{\voucher@earliestdate}%
            \hfill%
         }\thinhrule
         \hbox{% Third  Row
            \otherbox{118pt}{EXPENSE TYPE}{(CHECK ONE)}%
            \otherbox{125pt}%
              {\if1\expense@type\rlap X\fi%
                \usebox{\small@box} 1 FIELD TRIP}%
              {\if2\expense@type\rlap X\fi%
                \usebox{\small@box} 2 FIELD ASSIGNMENT}%
            \otherbox{116pt}{}%
              {\if4\expense@type\rlap X\fi%
                \usebox{\small@box} 4 CANDIDATE}%
            \otherbox{188pt}%
              {\if5\expense@type\rlap X\fi%
                \usebox{\small@box} 5 FOREIGN TRAVEL \$ RATE
              \vrule height0.4pt width34pt}%
              {\if6\expense@type\rlap X\fi%
                \usebox{\small@box} 6 AUTH.\ WORK BAL}%
            \otherbox*{84pt}{}%
              {\if7\expense@type\rlap X\fi%
                \usebox{\small@box} 7 OTHER}%
            \vbox to 28pt{\hsize125pt\vfill%
              \tableline{{\hskip2pt\labelfont PERIOD COVERED\hfill}}%
              \tableline{{\hskip2pt\labelfont\rlap{FROM:}%
                \hfill\voucher@period@from\hfill}}%
              \tableline{{\hskip2pt\labelfont\rlap{TO:}%
                \hfill\voucher@period@to\hfill}}%
              \vfill}%
         }\fathrule%
   }\fatvrule
  }}
%
\def\init@totals{
  \newcounter{mileage}
  \newcounter{trans@cents}
  \newcounter{car@cents}
  \newcounter{park@cents}
  \newcounter{meals@cents}
  \newcounter{lodge@cents}
  \newcounter{other@cents}
  \newcounter{amex@cents}
  \newcounter{advance@cents}
  \newcounter{prereg@cents}
  \newcounter{deduct@cents}
  \newcounter{trans@total}\setcounter{trans@total}{0}
  \newcounter{car@total}\setcounter{car@total}{0}
  \newcounter{park@total}\setcounter{park@total}{0}
  \newcounter{meals@total}\setcounter{meals@total}{0}
  \newcounter{lodge@total}\setcounter{lodge@total}{0}
  \newcounter{other@total}\setcounter{other@total}{0}
  \newcounter{i@other@total}\setcounter{i@other@total}{0}
  \newcounter{total@total}\setcounter{total@total}{0}
  \newcounter{line@total}\setcounter{line@total}{0}
  \newcounter{voucher@due}
  \newcounter{voucher@temp}
  \newcounter{voucher@tempa}\newcounter{voucher@tempb}
  \newcounter{voucher@tempc}\newcounter{voucher@tempd}
  \newcounter{line@num}\setcounter{line@num}{0}
  \@ifundefined{amex@exp}%
    {\setcounter{amex@cents}{0}}%
    {\ifx\my@null\amex@exp{}%
       \else\setcounter{amex@cents}{\amex@exp}\fi}%
  \@ifundefined{amex@advance}%
    {\setcounter{advance@cents}{0}}%
    {\ifx\my@null\amex@advance{}%
       \else\setcounter{advance@cents}{\amex@advance}\fi}%
  \@ifundefined{conf@prereg}%
    {\setcounter{prereg@cents}{0}}%
    {\ifx\my@null\conf@prereg{}%
      \else\setcounter{prereg@cents}{\conf@prereg}\fi}%
  }
\def\my@null{}
\def\expense#1#2#3#4#5#6#7#8#9{%
  \ifnum\c@line@num>12%
    \typeout{!!!!!!!!!!!!!! TOO MANY EXPENSE LINES (>13) !!!!!!!!!!!!!}%
  \else%
    \addtocounter{line@num}{1}
    \def\exp@date{#1}
    \def\exp@desc{#2}
    \setcounter{line@total}{0}
    \def\my@arg{#3}
    \ifx\my@null\my@arg\setcounter{trans@cents}{0}%
    \else\setcounter{trans@cents}{#3}\fi
      \addtocounter{trans@total}{\c@trans@cents}
      \addtocounter{line@total}{\c@trans@cents}
    \def\my@arg{#4}
    \ifx\my@null\my@arg\setcounter{car@cents}{0}%
    \else\setcounter{car@cents}{#4}\fi
      \addtocounter{car@total}{\c@car@cents}
      \addtocounter{line@total}{\c@car@cents}
    \def\my@arg{#5}
    \ifx\my@null\my@arg\setcounter{park@cents}{0}
    \else\setcounter{park@cents}{#5}\fi
      \addtocounter{park@total}{\c@park@cents}
      \addtocounter{line@total}{\c@park@cents}
    \def\num@meals{#6}
    \def\my@arg{#7}
    \ifx\my@null\my@arg\setcounter{meals@cents}{0}
    \else\setcounter{meals@cents}{#7}\fi
      \addtocounter{meals@total}{\c@meals@cents}
      \addtocounter{line@total}{\c@meals@cents}
    \def\my@arg{#8}
    \ifx\my@null\my@arg\setcounter{lodge@cents}{0}
    \else\setcounter{lodge@cents}{#8}\fi
      \addtocounter{lodge@total}{\c@lodge@cents}
      \addtocounter{line@total}{\c@lodge@cents}
    \def\my@arg{#9}
    \ifx\my@null\my@arg\setcounter{other@cents}{0}
    \else\setcounter{other@cents}{#9}\fi
      \addtocounter{other@total}{\c@other@cents}
      \addtocounter{line@total}{\c@other@cents}
    \addtocounter{total@total}{\c@line@total}
    \voucher@expenseline
  \fi}
\def\voucher@expenseline{%
  \tableboxheight=11.6pt%
  \hbox{%
     \tablebox{41pt}{\hskip2pt\theline@num\hfill\exp@date\hfill}%
     \tablebox{269pt}{\hskip2pt\exp@desc\hfill}%
     \expbox{\c@trans@cents}%
     \expbox{\c@car@cents}%
     \expbox{\c@park@cents}%
     \if0\num@meals\tablebox{19pt}{\hfill\ \hfill}%
     \else\tablebox{19pt}{\hfill\num@meals\hfill}%
     \fi%
     \expbox{\c@meals@cents}%
     \expbox{\c@lodge@cents}%
     \expbox{\c@other@cents}%
     \medvrule%
     \expbox{\c@line@total}%
     }\hrule%
  }%
\def\voucher@totalline{%
  \loop\ifnum\c@line@num<13\expense{}{}{0}{0}{0}{0}{0}{0}{0}%
    \repeat%
  \tableboxheight=11.6pt%
  \hbox{%
    \vbox{\hsize=695pt%
      \hbox{%
        \tablebox{41pt}{\hskip2pt14\hfill}%
        \tablebox{269pt}{\hfill SUB-TOTALS\hskip26pt}%
        \expbox*{\c@trans@total}%
        \expbox*{\c@car@total}%
        \expbox*{\c@park@total}%
        \tablebox{19pt}{\hfill\ \hfill}%
        \expbox*{\c@meals@total}%
        \expbox*{\c@lodge@total}%
        \expbox*{\c@other@total}%
        }
      \fathrule%
      \hbox to\hsize{%
        \vbox to20pt{\vfill% should be 22
          \setcounter{voucher@tempd}{\c@total@total}%
          \divide\c@voucher@tempd by100%
          \hbox to694.6pt{\hskip2pt15 TOTAL EXPENSES (WRITE
            OUT):\quad\voucher@spellout{\c@voucher@tempd}\hfill
            \dollars@cents{\c@total@total}%
            AND\hbox to40pt{\hfill\voucher@cents\hfill}/100
            DOLLAR\hskip12pt}\vfill%
          }\vrule%
        }%
      }%
    \vbox to33.6pt{\hsize61pt\medhrule%
      \hbox{\medvrule\vbox to32pt{}%
        \expbox{\c@total@total}%
        }\prevdepth=-1000pt%
      }%
   }\fathrule%
}%
\def\voucher@expensehead{%
  \par%
  \hbox{%
  \vbox{\fathrule%
        \hbox{% label line
           \vbox to 26pt{\hsize=40.6pt\vfill%
             \tableline{\hfill DATE\hfill}\vfill}%
           \vrule%  
           \vbox to 26pt{\hsize=268.6pt\vfill%
             \tableline{\hfill LOCATION OR DESCRIPTION\hfill}\vfill}% 
           \vrule%
           \vbox to 26pt{\hsize=60.6pt\vfill%
             \tableline{\hfill AIR/GROUND\hfill}
             \tableline{\hfill TRANSPOR-\hfill}
             \tableline{\hfill TATION\hfill}\vfill}%
           \vrule%
           \vbox to 26pt{\hsize=60.6pt\vskip2pt
             \tableline{\hfill PERSONAL CAR\hfill}\vskip2pt\hrule
             \vfill
             \tableline{\hfill @\milesrate\cents\hfill}
             \vfill}%
           \vrule%
           \vbox to 26pt{\hsize=60.6pt\vfill
             \tableline{\hfill PARKING \&\hfill}
             \tableline{\hfill TOLLS\hfill}\vfill}%
           \vrule%
           \vbox to 26pt{\hsize=79.6pt\vskip2pt
             \tableline{\hfill TRAVEL MEALS**\hfill}\vskip2pt\vfill\hrule
             \tableline{%
               \vbox to 13.6pt{\vfill\hbox to 18.6pt{\hfill NO.\hfill}\vfill}%
               \vrule%
               \vbox to 13.6pt{\vfill\hbox to 60.6pt{\hfill AMOUNT\hfill}%
                 \vfill}}}%
           \vrule%
           \vbox to 26pt{\hsize=60.6pt\vfill
             \tableline{\hfill LODGING\hfill}\vfill}%
           \vrule%
           \vbox to 26pt{\hsize=60.6pt\vfill
             \tableline{\hfill TOTAL\hfill}
             \tableline{\hfill OTHER EXP.\dag\dag}\vfill}%
           \fatvrule%
           \vbox to 24pt{\hsize=60.6pt\vfill
             \tableline{\hfill TOTAL\hfill}
             \tableline{\hfill EXPENSE\hfill}\vfill}%
           \vrule
        }\fathrule%
  }%
  }}%

\def\otherexpense#1#2#3#4{%
  \ifnum\c@line@num>7%
    \typeout{!!!!!!!!!!!!!! TOO MANY OTHER EXPENSES (>8) !!!!!!!!!!!!!}%
  \else%
    \addtocounter{line@num}{1}
    \def\exp@date{#1}
    \def\exp@desc{#2}
    \setcounter{other@cents}{#3}
      \addtocounter{i@other@total}{#3}
    \def\sub@acct{#4}
    \voucher@otherline
  \fi}
\def\voucher@otherline{%
  \tableboxheight=11.6pt%
  \hbox{%
     \tablebox{41pt}{\hskip2pt\hfill\exp@date\hfill}%
     \tablebox{330pt}{\hskip2pt\exp@desc\hfill}%
     \expbox{\c@other@cents}%
     \tablebox*{61pt}{\hfill\sub@acct\hfill}%
     }\hrule
  }%
\def\voucher@otherhead{%
  \setcounter{line@num}{0}%
  \par%
        \hbox{% label line
           \vbox to 11.6pt{\hsize=40.6pt\vfill%
             \tableline{\hfill DATE\hfill}\vfill}%
           \vrule%  
           \vbox to 11.6pt{\hsize=329.6pt\vfill%
             \tableline{\hfill \dag\dag OTHER EXPENSES ITEMIZED
             (Including Non-travel Meals**)\hfill}\vfill}% 
           \vrule%
           \vbox to 11.6pt{\hsize=60.6pt\vfill%
             \tableline{\hfill AMOUNT\hfill}\vfill}%
           \vrule%
           \vbox to 11.6pt{\hsize=60.6pt\vfill%
             \tableline{\hfill SUB-ACCT\hfill}\vfill}%
        }\fathrule%
  }%
\def\voucher@othertail{%
  \loop\ifnum\c@line@num<8\otherexpense{}{}{0}{}%
    \repeat%
  \tableboxheight=11.6pt%
  \hbox{%
        \tablebox{41pt}{\ \hfill}%
        \tablebox{330pt}{\hfill (ENTER THIS TOTAL ON LINE 14
        ABOVE) SUB-TOTAL\hskip4pt}%
        \expbox*{\c@i@other@total}%
        \box@width0pt%
        \tbl@box{}{10pt}{59pt}{}%
   }\hrule%
   \ifnum\c@i@other@total=\c@other@total\relax\else%
     \typeout{!!!!!!!!!!!!!! OTHER EXPENSE TOTALS DO NOT MATCH !!!!!!!!!!!!!!}%
     \fi%
   }%

\newcounter{proj@percent}%
\def\projnum#1#2#3{%
  \ifnum\c@line@num>5%
    \typeout{!!!!!!!!!!!!!! TOO MANY PROJECT NUMBERS (>6) !!!!!!!!!!!!!}%
  \else%
    \addtocounter{line@num}{1}
    \addtocounter{proj@percent}{#3}%
    \projnum@line{#1}{#2}{#3}%
  \fi}%
\def\projnum@head{\par%
  \setcounter{line@num}{0}%
  \tableboxheight=11.6pt%
  \hbox{\tablebox*{244pt}{\hfill ACCOUNTING INFORMATION FROM EMPLOYEE\hfill}}%
  \hrule%
  \hbox{%
    \tablebox{52pt}{\hfill ORG.\ NO.\hfill}%
    \tablebox{144pt}{\hfill PROJECT NUMBER\hfill}%
    \tablebox*{48pt}{\hfill PERCENT\hfill}%
    }%
  \hrule%
  }%
\def\projnum@line#1#2#3{%
  \tableboxheight=11.6pt%
  \hbox{%
     \tablebox{52pt}{\hfill#1\hfill}%
     \tablebox{144pt}{\hfill#2\hfill}%
     \ifnum#3=0\tablebox*{48pt}{\hfill}%
       \else\tablebox*{48pt}{\hfill#3\hfill}\fi%
     }\hrule
  }%
\def\projnum@tail{%
  \ifnum\c@proj@percent=100\relax\else%
    \typeout{!!!!!!!!!!!!!! PROJECT PERCENTS DO NOT ADD TO 100 !!!!!!!!!!!!!}%
    \fi
  \loop\ifnum\c@line@num<6\projnum{}{}{0}%
    \repeat%
  }%
%
\def\disposition@balance{\par%
  \tableboxheight=11.6pt%
  \hbox{\vbox{\medhrule\hbox{\tablebox*{247pt}{\hfill DISPOSITION OF BALANCE\hfill}}}}%
  \hrule%
  \hbox to 247pt{\hskip6pt%
    \vbox{{\labelfont\baselineskip8pt%
      \vskip6pt%
      \hbox{%
        \parbox{235pt}{{%
          If balance is due the company, attach a check made payable\\
          to AT\&T Bell Laboratories to the front of the voucher.
          \vskip8pt
          If the balance is due employee, indicate preferred method
          }}%
        }%
      \vskip2pt%
      \hbox{{\labelfont%
        \vbox to12pt{\hbox{of payment}\vfill}%
        \hskip8pt\usebox{\check@box}\hskip4pt\vtop{\hbox{CHECK BY MAIL}}%
        \hskip8pt\usebox{\check@box}\hskip4pt\vtop{\hbox{CASH AT COUNTER}}%
        }}%
      \hbox{{\labelfont CASH RECEIVED \vrule height0.4pt
        width162pt}}%
      \vskip7pt%
      \hbox{{\labelfont BY AMOUNT \$ \vrule height0.4pt
        width168pt}}%
      }}
    }%
  \vskip5pt
  }%

\def\exp@summary{%
  \tableboxheight=15.6pt%
  \vtop{\hbox{}\baselineskip7pt\vskip-2pt% 
    \hbox to264.6pt{%
      \vtop{%
        \hbox to200pt{%
          \vbox to\tableboxheight{\hsize=139pt\vfill{\littlelabelfont%
            \tableline{\hskip2pt 16 BUS. EXP ON AMEX CARD NO.\hfill}%
            \tableline{\hskip12pt \amex@num\hfill}\vfill}}%
          \vbox to\tableboxheight{\vfill\expbox*{\c@amex@cents}\vfill}%
          }\hrule%
        \hbox to200pt{%
          \vbox to\tableboxheight{\hsize=139pt\vfill{\littlelabelfont%
            \tableline{\hskip2pt 17 CASH ADVANCE ON AMEX\hfill}%
            \tableline{\hskip12pt CORP.\ CARD\hfill}\vfill}}%
          \vbox to \tableboxheight{\vfill\expbox*{\c@advance@cents}\vfill}%
          }\hrule%
        \hbox to200pt{%
          \vbox to\tableboxheight{\hsize=139pt\vfill{\littlelabelfont%
             \tableline{\hskip2pt 18 AT\&T-BL CONFERENCE/\hfill}%
             \tableline{\hskip12pt SEMINAR PRE-REG.\ ADV.\hfill}\vfill}}%
          \vbox to \tableboxheight{\vfill\expbox*{\c@prereg@cents}\vfill}%
         }\hrule%
        \hbox to200pt{%
          \vbox to\tableboxheight{\hsize=139pt\vfill{\littlelabelfont%
             \tableline{\hskip2pt\ \hfill}%
             \tableline{\hskip12pt\ \hfill}\vfill}}%
          \vbox to \tableboxheight{\vfill\expbox*{0}\vfill%
            }%
          }\hrule%
        \setcounter{deduct@cents}{\c@amex@cents}%
        \addtocounter{deduct@cents}{\c@advance@cents}%
        \addtocounter{deduct@cents}{\c@prereg@cents}%
        \hbox to200pt{%
          \vbox to \tableboxheight{\hsize=139pt\vfill{\littlelabelfont%
            \tableline{\hskip2pt 20 TOTAL DEDUCTIONS\hfill}%
            \tableline{\hskip12pt (LINES 16, 17, \& 18)\hfill}\vfill}}%
          \vbox to \tableboxheight{\vfill\expbox*{\c@deduct@cents}\vfill}%
          }%
        }%
      \medvrule\hfill\fatvrule}\prevdepth=-1000pt%
    \hbox{\vbox{\hrule width139pt}\vbox{\fathrule width125.6pt}}\prevdepth=-1000pt%
    \setcounter{voucher@due}{\c@total@total}%
    \addtocounter{voucher@due}{-\c@deduct@cents}%
    \hbox to264.6pt{%
      \vbox to\tableboxheight{\hsize=200pt\vfill{\littlelabelfont%
         \tableline{\hskip2pt 21 BALANCE DUE AT\&T-BL (LINE 20-15) 
           \hfill$\Longrightarrow$\hskip2pt}\vfill}}%
      \fatvrule%
      \vbox to\tableboxheight{\vfill%
        \ifnum\c@voucher@due<0\expbox{-\c@voucher@due}\else\expbox{0}\fi%
        \vfill}%
      \medvrule}\prevdepth=-1000pt%
    \hbox{\vbox{\hrule width200pt}\vbox{\fathrule width64.6pt}}\prevdepth=-1000pt%
    \hbox to264.6pt{%
      \vbox to\tableboxheight{\hsize=200pt\vfill{\littlelabelfont%
         \tableline{\hskip2pt 22 BALANCE DUE INDIVIDUAL (LINE 15-20) 
           \hfill$\Longrightarrow$\hskip2pt}\vfill}}%
      \fatvrule%
      \vbox to\tableboxheight{\vfill%
        \ifnum\c@voucher@due>0\expbox{\c@voucher@due}\else\expbox{0}\fi%
        \vfill}%
      \medvrule}\fathrule%
    \hbox to262pt{\hskip6pt\vbox{\littlelabelfont
    \vskip6pt%
    \hbox{%
      \parbox{250pt}{%
        I HEREBY CERTIFY THAT I HAVE INCURRED ALL OF THE ABOVE\\
        EXPENSES ON BEHALF OF AT\&T BELL LABORATORIES
        }
      }%
    \vskip20pt\hrule width238pt%
    \hbox to 250pt{Signature\hfill (Date)\hskip24pt}
    \vskip12pt\hrule width238pt%
    \hbox to 250pt{(Approver's Signature)\hfill (Date)\hskip24pt}
    \vskip12pt%
    \hbox to 250pt{APPROVER'S PAN \leaders\hrule\hfill\hskip12pt}%
    \vskip6pt%
    \hbox to 250pt{%
      \vbox{\hbox{TELLER}%
            \hbox{INITIALS \vrule height0.4pt width42pt}}%
      \hfill%
      \vbox{\hbox{PROCESSED}%
            \hbox{BY \vrule height0.4pt width42pt}}% 
      \hfill%
      \vbox{\hbox{AUDITED}%
            \hbox{BY \vrule height0.4pt width42pt}}%
      } %
    }\hfill}}%
  }%

%
% voucher macros
%
\def\pan#1{\gdef\voucher@pan{#1}}
\def\name#1#2#3{
    \gdef\voucher@fname{#1}
    \gdef\voucher@mname{#2}
    \gdef\voucher@lname{#3}
    }
\def\numpersons#1{\gdef\voucher@numpersons{#1}}
\def\orgnum#1{\gdef\voucher@orgnum{#1}}
\def\date#1{\gdef\voucher@date{#1}}
\def\candidatenum#1{\gdef\voucher@cannum{#1}}\candidatenum{}
\def\baseloc#1{\gdef\voucher@baseloc{#1}}
\def\room#1{\gdef\voucher@room{#1}}
\def\phone#1#2#3{\gdef\voucher@phonearea{#1}
                 \gdef\voucher@phoneexch{#2}
                 \gdef\voucher@phonenum{#3}
                 }
\def\buspurpose#1{\gdef\voucher@buspurpose{#1}}\buspurpose{}
\def\earliestdate#1{\gdef\voucher@earliestdate{#1}}
\def\amexnum#1{\gdef\amex@num{#1}}
\def\amexexp#1{\gdef\amex@exp{#1}}
\def\amexadvance#1{\gdef\amex@advance{#1}}
\def\confprereg#1{\gdef\conf@prereg{#1}}
\def\period#1#2{\gdef\voucher@period@from{#1}\gdef\voucher@period@to{#2}}
\def\expensetype#1{\gdef\expense@type{#1}}
\def\milesrate{24}
\def\miles#1{%convert miles to carcents
  #1{}%
    \multiply\c@car@cents by\milesrate%
  }