\input eplain
\input rotate

\tracingmacros=1

\def \boxit#1{
\vbox{\hrule
\hbox{\vrule\kern3pt
\vbox{\kern3pt #1 \kern3pt}
\kern3pt\vrule}\hrule}}


% box with padding
% {vpad}{hpad}{stuff}
\def \boxitpad#1#2#3{
\vbox{
\hrule
\hbox{\vrule\kern#2 \vbox{\kern#1 #3 \kern#1} \vrule\hfil}
\hrule}
}

%\hbox{\vrule\kern#2 \vbox{\kern#1 #3 \kern#1} \kern#2\vrule\hfil}

% double box
\def \boxitd#1{
\boxitpad{4pt}{4pt}{
\boxitpad{2pt}{2pt}{#1}
}}

% double box open on top and bottom
\def \boxitda#1{
\vbox{\hbox{\strut\vrule \kern4pt \vrule \vbox{#1}\vrule \kern4pt \vrule}}
}
\def \boxitdb#1#2{
\vbox{\hbox {\strut\vrule \kern2pt \vrule 
\hbox to 10.5 truein{\hfil\vbox to #1{#2}\hfil} 
\vrule \kern2pt \strut\vrule}}
}

%boxitno {left} {right} {middle} 
\def \boxitno#1#2#3{
\boxitpad{4pt}{4pt}{
\boxitpad{16pt}{0pt}{\hbox{ {#1} {\boxitd#3}{#2} }}}
}

\def \boxitnoa#1#2#3{
\boxitpad{2pt}{2pt}{
\boxit{\hbox{ {#1} {\boxitdb{3.0truein}{#3}}{#2} }}}
}

\def \boxitnob#1#2#3{
\boxitpad{4pt}{4pt}{
\boxit{\hbox{ {#1} {\boxitda#3}{#2} }}}
}

% from card.tex
\newbox\frontpagebox	% To store the front page (when folded)
\setbox\frontpagebox=\hbox{}	% begin with an empty box
\long\def\front#1{\setbox\frontpagebox=\perbox{#1}}
\long\def\perbox#1{\vbox{\hbox{#1}}}



%% end of boxes.tex

