% \iffalse meta-comment
%
% Copyright 1994 the LaTeX3 project and the individual authors.
% All rights reserved. For further copyright information see the file
% legal.txt, and any other copyright indicated in this file.
% 
% This file is part of the LaTeX2e system.
% ----------------------------------------
% 
%  This system is distributed in the hope that it will be useful,
%  but WITHOUT ANY WARRANTY; without even the implied warranty of
%  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
% 
% 
% IMPORTANT NOTICE:
% 
% For error reports in case of UNCHANGED versions see bugs.txt.
% 
% Please do not request updates from us directly.  Distribution is
% done through Mail-Servers and TeX organizations.
% 
% You are not allowed to change this file.
% 
% You are allowed to distribute this file under the condition that
% it is distributed together with all files mentioned in manifest.txt.
% 
% If you receive only some of these files from someone, complain!
% 
% You are NOT ALLOWED to distribute this file alone.  You are NOT
% ALLOWED to take money for the distribution or use of either this
% file or a changed version, except for a nominal charge for copying
% etc.
% \fi
% IDX.TEX -- A LaTeX input file for printing .IDX files.
% Copyright (c) 1985, 1994 by Leslie Lamport.
% This file created on 18 February 1994.
% Last changed see below in \typeout.

\documentclass[twocolumn]{article}

\nofiles

\setlength{\oddsidemargin}{0pt}      
\setlength{\evensidemargin{0pt}
\setlength{\textwidth}{470pt}         % Width of text line.
\setlength{\columnsep}{30pt}          % Space between columns 

\raggedright



\makeatletter

\def\isanitize{\@makeother\\\@makeother\$\@makeother\&%
\@makeother\#\@makeother\^\@makeother\^^K\@makeother\_\@makeother\^^A%
\@makeother\%\@makeother\~}

\def\indexentry{\par\begingroup \isanitize \idxentry}

\def\idxentry#1#2{\def\foo{#2}\ifx\foo\thispage 
    \else \gdef\thispage{#2}
          \vskip 7pt {\large \bf Page #2\par \vskip 2pt}\fi
  \hangindent 20pt \ttfamily #1\par\endgroup}

\setlength{\parindent}{0pt}
\setlength{\parskip}{0pt plus .5pt}

\tolerance=10000          % prevents overfull boxes


%% Add extra stretch and shrink to interword space for typewriter style.
\newsavebox{\foobar}
\savebox{\foobar}{\texttt{x}}
\relax
\expandafter\fontdimen\expandafter3\csname OT1/cmtt/m/n/10\endcsname=3pt
\expandafter\fontdimen\expandafter4\csname OT1/cmtt/m/n/10\endcsname=3pt

\begin{document}

\typeout{}
\typeout{IDX version of 26 September 1994}
\typeout{}
\typeout          {**********************************}
\typeout          {*  Enter idx file's first name.  *}
\typein[\filename]{**********************************}

\twocolumn[\vspace*{20pt} \centering \huge \filename.idx \par
           \vspace*{20pt}]

\dimen0=\columnwidth
\advance\dimen0 by -20pt

\parshape =2  0pt \columnwidth 20pt \dimen0

\input \filename.idx\relax

\end{document}