%\input l_pic
%\input l_frame
\unitlength=5mm  
\newdimen\w                % may be changed for DINA5
\w=\fontdimen8\tenln       %\@wholewidth       % width of a rule
\let\k=\unitlength         % a box (in German: Kasten) on my drawing-paper...
\let\LAMSTeX\LamsTeX
\def\Plain{{\tt Plain} \TeX}
\def\MakeIndex{{\sans MakeIndex}}
\catcode`@=11 % at signs are letters
\def\rule{\@ifnextchar[{\@rule}{\@rule[\z@]}}

\def\@rule[#1]#2#3{\@tempdima#3\advance\@tempdima #1\leavevmode\hbox{\vrule
  \@width#2 \@height\@tempdima \@depth-#1}}
\catcode`@=12 % at signs are no longer letters
%
%========== figkomp.tex ====================================================
% figkomp.tex                                   01 Oct 90
%------------------------------------------------------------
% (c) 1990 by J.Schrod (TeXsys).

%
% picture of the components of TeX (logical connection)
%

% NOTE: BibTeX was made available for Plain TeX recently. So the
% graphic will be changed soon...


\picture(23,14)(0,0)


% TeX82
\put( 3, 0){ \rule{\w}{3\k} }
\put( 3, 3){ \rule{24\k}{\w} }
\put(27, 0){ \rule{\w}{3\k} }
\put( 3, 0){ \makebox(24,3){\TeX82} }

% Plain TeX
\put( 4, 3){ \framebox(22,3){\Plain} }

% AmS-TeX
\put( 5, 6){ \rule{\w}{5\k} }
\put( 5,11){ \rule{5\k}{\w} }
\put(10, 6){ \rule{\w}{5\k} }
\put( 5, 6){ \makebox(5,3){\AmSTeX} }

% LAmS-TeX
\put( 6, 9){ \dashbox{.5}(4,2){\LAMSTeX} }

% LaTeX
\put(11, 6){ \framebox(6,5){\LaTeX} }

% SliTeX
\put(11,11){ \framebox(4,3){\SliTeX} }

% BibTeX
\put(14,11){ \rule{2\k}{\w} }
\put(15,14){ \rule{4\k}{\w} }
\put(19, 6){ \rule{\w}{8\k} }

\put(15,11){ \makebox(4,3){\BibTeX} }

% MakeIndex
\put(20, 6){ \framebox(5,8){\MakeIndex} }

\endpicture



\endinput