\makeatletter

% Mac only
\def\@WhiteBars{\PostScriptFile{WhiteBars.ps}}
\def\@BlackBars{\PostScriptFile{BlackBars.ps}}
%\def\@BlackDashBars{\PostScriptFile{ObsoleteBars.ps}}

% Tried to stop getting fucked.
%
\def\@WhiteBars{}


%\def\@MarginCap{\special{postscript
%                        0 setlinecap
%                        0.5 setlinewidth
%                        0   0   moveto
%                        0   1   lineto
%                        0 setgray
%                        stroke
%                   }}
%\def\@wigglemargin{\vbox to 0pt{\relax
%  \vskip3pt\vskip10in\hbox to 0pt{\hskip -5pt
%           \special{postscript
%                        0 0   moveto
%                        1 1 rlineto
%                        179 {
%                           -2 2 rlineto
%                           2 2 rlineto
%                        } repeat
%                        -2 2 rlineto
%                        1 1 rlineto
%                        0 setgray
%                        0.3 setlinewidth
%                        stroke
%                   }\hss}\vss}}

\def\@doublemargin{\hbox to 0pt{\@BlackBars\hskip1.5pt\@BlackBars\hss}}

%\@mparswitchfalse  \reversemargin
%\marginparwidth=0pt  \marginparsep=3pt  \marginparpush=-10pt

%\def\actualmarginfrob#1{\marginpar{\hbox to 0pt{\hskip2pc
%   \hskip\textwidth #1\hss}}}

\def\@marginhead{\hbox to 0pt{\hss\vbox to 0pt
  {\vskip\headsep\vskip3.75pt\currmargin\vss}\hskip8pt}\relax
  \global\let\currmargin=\nextmargin}
\def\@marginfoot{\hbox to 0pt{\hss\vbox to 0pt
  {\vskip-\footskip\vskip3.75pt\whitemargin\vss}\hskip8pt}}

\let\@margineverypar\relax
\let\@margineveryparguts\relax

\def\@new#1#2{\par\begingroup\let\@savemargin=\nextmargin
  \global\let\nextmargin=#2\relax
  \def\@margineveryparguts{\setbox1\hbox{\setbox0\hbox{X}\raise\ht0\hbox to 0pt{\hss#1\kern 8pt}}\relax
                \ht1=0pt\dp1=\dp\strutbox\box1}
  \def\@margineverypar{\strut\vadjust{\kern-\dp\strutbox
                \@margineveryparguts}\relax
            \let\@margineverypar\relax\everypar{}}
  \everypar{\@margineverypar}}

\def\new{\@new\startmargin\blackmargin}
\def\endnew{\par \@tempskipb\lastskip
  \@tempdima\prevdepth \ifdim 0pt>\@tempdima \@tempdima=-.001pt\fi
  \@tempdimb\@tempdima \ifdim \@tempdimb<0.75\dp\strutbox \@tempdimb=0.75\dp\strutbox\fi
  \nobreak\vskip-\@tempskipb\kern-\@tempdima\nointerlineskip
  \setbox1\hbox{\lower\@tempdimb\hbox to 0pt{\hss%\@MarginCap
  \@savemargin\hskip 8pt}}\ht1=0pt\dp1=\@tempdima\box1
  \vskip\@tempskipb
  \global\let\nextmargin=\@savemargin\endgroup}

\def\newer{\@new\@doublemargin\@doublemargin}
\let\endnewer=\endnew

%\def\obsolete{\@new\@BlackDashBars\@BlackDashBars}
\def\obsolete{\@new\@obsodots\@obsodots}
\def\@obsodots{\hbox to 0pt{\hss
        \vtop to 0pt{\leaders\vbox to 3.125pt{\hbox{\scriptsize .}
                     \nointerlineskip\vss}\vskip625pt\vss}\hss}}

\let\endobsolete=\endnew

     \let\blackmargin=\@BlackBars
		   \let\whitemargin=\@WhiteBars
     \let\startmargin=\@BlackBars
     \let\stopmargin=\@WhiteBars
		   \let\currmargin=\@WhiteBars
		   \let\nextmargin=\@WhiteBars

%[End]
