\baselineskip=9pt minus 1pt
\medskipamount=4pt minus 1pt
\raggedbottom
\nopagenumbers
\chardef\other=12
\def\doit#1{\message{@Listing #1@}
\begingroup \everypar{} \frenchspacing
\headline{\filenamefont#1\quad\headlinefont \today\ at \hours
\hfill Page \folio}
\def\do##1{\catcode`##1=\other}\dospecials
\catcode127=\other \catcode9=\other \catcode12=\other
\parindent 0pt \parfillskip=0pt plus 1fil minus 1in
\everypar{\hangindent 1in} \rightskip=0pt plus 2in
\def\par{\ifvmode\penalty-500\medskip\else\endgraf\fi}
\listingfont \obeylines \obeyspaces \global\pageno=1
\input #1 {\eoffont(end of\/ file)}\endgraf\vfill\eject\endgroup}
{\obeyspaces\global\let =\ }
\catcode`\_=\other % allow _ in file names
% A tab (^^I) prints as lowercase gamma.
% Character ^^M could be made visible, with a bit of work;
% at present, it's indistinguishable from newline (^^J).
% You can get up to 103 characters on a line without an overfull box.
