

\def\crop#1#2#3#4{%

\newdimen\vpadjust
\newdimen\hpadjust
\newdimen\pagewidth
\newdimen\pageheight

\pagewidth #1
\pageheight #2
\hpadjust #3
\vpadjust #4


\advance\pagewidth by -\hpadjust
\advance\pagewidth by -1in


\advance\pageheight by -\vpadjust
\advance\pageheight by -\vpadjust


\newbox\vbartop
\newbox\vbarbot
\newbox\hbarleft
\newbox\hbarright

\setbox\vbartop=\hbox{\vrule height 1cm depth -.1cm}
\dp\vbartop=0pt
\ht\vbartop=0pt
\wd\vbartop=0pt

\setbox\vbarbot=\hbox{\vrule height -.1cm depth 1cm}
\dp\vbarbot=0pt
\ht\vbarbot=0pt
\wd\vbarbot=0pt

\setbox\hbarleft=\hbox{\hskip -1cm\vbox{\hrule width .9cm}}
\dp\hbarleft=0pt
\ht\hbarleft=0pt
\wd\hbarleft=0pt

\setbox\hbarright=\hbox{\hskip .1cm\vbox{\hrule width .9cm}}
\dp\hbarright=0pt
\ht\hbarright=0pt
\wd\hbarright=0pt



\newbox\topmarks
\newbox\botmarks

\setbox\topmarks=\hbox to \pagewidth{%
           \hskip -1in
		   \hskip\hpadjust
           \vbox{\copy\vbartop\vskip -\baselineskip \copy\hbarleft}  
		   \hfil
		   \vbox{\copy\vbartop\vskip -\baselineskip \copy\hbarright}}

\setbox\botmarks=\hbox to \pagewidth{%
           \hskip -1in
		   \hskip\hpadjust
           \vbox{\copy\vbarbot\vskip -\baselineskip \copy\hbarleft}  
		   \hfil
		   \vbox{\copy\vbarbot\vskip -\baselineskip \copy\hbarright}}





\def\@outputpage{\begingroup\catcode`\ =10
     \let\-\@dischyph \let\'\@acci \let\`\@accii \let\=\@acciii
    \if@specialpage
     \global\@specialpagefalse\@nameuse{ps@\@specialstyle}\fi
     \if@twoside
       \ifodd\count\z@ \let\@thehead\@oddhead \let\@thefoot\@oddfoot
            \let\@themargin\oddsidemargin
          \else \let\@thehead\@evenhead
          \let\@thefoot\@evenfoot \let\@themargin\evensidemargin
     \fi\fi
     \shipout
	 \vbox{%
	       \vskip -1in 
		   \vskip \vpadjust
	       \copy\topmarks
		   \vskip -\baselineskip
	       \vskip\pageheight
	       \copy\botmarks
	       \vskip -\pageheight
		   \vskip 1in
		   \vskip -\vpadjust
	       \reset@font %% RmS 91/08/15
           \normalsize \baselineskip\z@ \lineskip\z@
           \let\par\@@par %% 15 Sep 87
           \vskip \topmargin \moveright\@themargin
           \vbox{\setbox\@tempboxa
                   \vbox to\headheight{\vfil \hbox to\textwidth
                                       {\let\label\@gobble \let\index\@gobble
                                        \let\glossary\@gobble %% 21 Jun 91
                                         \@thehead}}% %% 22 Feb 87
                 \dp\@tempboxa\z@
                 \box\@tempboxa
                 \vskip \headsep
                 \box\@outputbox
                 \baselineskip\footskip
                 \hbox to\textwidth{\let\label\@gobble
                           \let\index\@gobble  %% 22 Feb 87
                           \let\glossary\@gobble %% 21 Jun 91
                           \@thefoot}}}\global\@colht\textheight
           \endgroup\stepcounter{page}\let\firstmark\botmark}
 


}
