Let's look at all the redefinitions that took place in the first few lines...
/;{}def % ; is redefined to nothing
% So don't mind the next ; we'll encounter.
/#{def}def % # is redefined to def
/$_={/Times-Bold exch selectfont}# % $_= is redefined to {/Times-Bold exch selectfont}
/_{rmoveto}# % _ is redefined to rmoveto
/"{dup}# % " is redefined to dup
/*/!/$ % *, ! and $ are kept on the stack for later use
;/q{exch}# % q is redefined to exch
/x ; {/J q #}# % x is redefined to /J exch def
/.{/T q #}# % . is redefined to /T exch def
{stringwidth}#{}#{}# % now, *, ! and $ are redefined respectively
% to nothing, nothing and stringwidth
Copyright © 2000-2001, Philippe "BooK" Bruhat.