%\FILE file.tex
{\newlinechar`\&\immediate\write16{The \noexpand\FILE unbundling macros %%%%%%
ver0.9 - Copyright (c) 1993 - Jonathan Fine.&Subject to the General Public %%%
License of the Free Software Foundation.}}%% Email:  J.Fine@pmms.cam.ac.uk  %%
%% test for communication error %%  Mail:  203 Coldhams Lane, Cambridge, UK %%
{\countdef\a255\a`\ \chardef\b126\chardef\c1\def\d#1{\ifnum\a=`#1 \else\e #1%%
\fi\ifnum\a<\b\advance\a\c\else\f\fi\d}\def\f\fi\d{\fi}\def\e#1{{\uccode`\*%%%
\a\uppercase{\def\n{*}}\escapechar-1\immediate\write16{! Communication %%%%%%%
Error. Expecting "\n", getting "\string#1".}}}\d\ !"#$\%&'()*+,-./0123456789%%
:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz\{|\}~}%%%%%
%       % define the \FILE command
\ifx\FILE\undefined\noexpand\if\catcode`\@11{\uccode`\(`\\\uccode`\)`\ %%%%%%%
\uppercase{\gdef\FILE#1 {\@FILE\begingroup\immediate\openout0 #1\relax%%%%%%%%
\message{\noexpand\FILE #1}\def\do ##1{\catcode `##1 12 }\dospecials\catcode%%
`\^^L=12\endlinechar13\catcode13=2\chardef\0=0\def\A{\afterassignment\B%%%%%%%
\expandafter\def\expandafter\n\expandafter{\iffalse}\fi}\def\B{\ifx\n\D\C\fi%%
\immediate\write\0{\n}\A}\def\C##1\A{\fi\endgroup\let\@FILE\relax\immediate%%%
\closeout0 }\def\D{(EOF)#1}\relax\A}}}\let\@FILE\relax\def\DIR#1{\def\@FILE%%%
##10 ##2\relax\message##3{\begingroup\immediate\openout0 #1##2\relax\message{%
\noexpand\FILE #1##2}}}\def\TYPE{\def\@FILE##1\relax\message##2##3\relax\A{%%%
\begingroup\immediate\closeout0##3\afterassignment\A\let\n}\FILE console }%%%%
\def\GOBBLE{\def\@FILE##1\relax\message##2##3\relax\A{\begingroup##3\def\B{%%%
\ifx\n\D\C\fi\A}\relax\A}\FILE}\catcode`\@12%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\TYPE
** For documentation see TUGboat Vol XX(y), 1993
or retrieve the package (whatsitcalled) from any of the sites listed below.
                Sites listed here
                Sites listed here
                Sites listed here
                Sites listed here
\EOF console
\else\immediate\write16{Macro \noexpand\FILE already defined}\fi%%%%%%%%%%%%%%
%\EOF file.tex