%%%%%%%%% Bill Xmas April 1997 %%%%%%%%%%%%%%%%%%%%

\documentclass{article}
\usepackage{a4}
\begin{document}

\pagestyle{empty}

\font\UOS=/user/eevsspsr/ees1wc/tex/styles/UOS  at 10pt

%%%%%%%%%%%%%%%%%%%% define one card %%%%%%%%%%%%%%%%%%%

%%% set up your personal info thus:
%%% \newcommand{\mycard} {\card{Your name}{position}{email name}{tel. no}}

\newcommand{\mycard} {\card{Bill Christmas}{Research Fellow}{w.christmas}{6045}}

%%%%%%%%%% generic card %%%%%%%%%%%%%%
\newcommand{\card}[4]{
{
\setlength{\unitlength}{1mm}
\begin{picture}(85,55)

% logo & UOS
\put(3,11){\begin{minipage}[b]{30mm}\begin{center}
  {{\UOS A}\\[0.5ex] \large University\\ of Surrey}
\end{center}\end{minipage}}

% personal details
\put(36,11){\begin{minipage}[b]{0cm}
\begin{tabbing}
Phone\quad \= \kill
{\Large {#1}}\\[1.0ex]
#2\\
Centre for Vision, Speech \&\\
\hspace{5mm} Signal Processing\\
University of Surrey\\
Guildford, Surrey, GU2 7XH, UK \\[0.7ex]
Phone: \> +44 (0)1483 68#4\\
Fax: \> +44 (0)1483 686031\\[0.7ex]
{\small Email: #3@eim.surrey.ac.uk}\\
{\small www.ee.surrey.ac.uk/Research/CVSSP/}
\end{tabbing}
\end{minipage}}

\end{picture}
} }


%%%%%%%%%% define border marker %%%%%%%%%%%%%%

\newcommand{\marker}{{
\setlength{\unitlength}{1mm}
\begin{picture}(85,55)
\linethickness{0.01pt}
\multiput(-2,5)(0,55){6}{\line(1,0){10}}
\multiput(3,0)(0,55){6}{\line(0,1){10}}
\end{picture}
}}


%%%%%%%%%% A4 page of cards %%%%%%%%%%%%%%%

% current horizontal spacing is 92 mm (to fit in my wallet)
\setlength{\unitlength}{1mm}
\begin{picture}(85,220)(20,0)
\multiput(-20, -30 )(0,55) {5} {\makebox(0,0)[bl]{\marker}}
\multiput(-20, -30) (0,55) {5} {\makebox(0,0)[bl]{\mycard}}
\multiput( 72, -30) (0,55) {5} {\makebox(0,0)[bl]{\marker}}
\multiput( 72, -30) (0,55) {5} {\makebox(0,0)[bl]{\mycard}}
\multiput(164, -30) (0,55) {5} {\makebox(0,0)[bl]{\marker}}
\end{picture}

\end{document}