Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!snorkelwacker.mit.edu!bloom-beacon!eru!hagbard!sunic!mcsun!hp4nl!sci.kun.nl
From: sommel@sci.kun.nl (Ron Sommeling)
Newsgroups: comp.text.tex
Subject: TeX program that prints itself when typeset
Message-ID: <3560@wn1.sci.kun.nl>
Date: 15 May 91 08:03:30 GMT
Sender: root@sci.kun.nl
Organization: University of Nijmegen, The Netherlands
Lines: 9

Below is a small plain TeX program that will print itself (in typewriter
font without pagenumber) when typeset. Are there shorter solutions?

\output{}\def\do#1{\catcode`#112}\def\t{\dospecials\obeylines\tt~}
\def~#1^^:{#1#1^^:\end}\t
\output{}\def\do#1{\catcode`#112}\def\t{\dospecials\obeylines\tt~}
\def~#1^^:{#1#1^^:\end}\tz

Ron Sommeling <sommel@sci.kun.nl>