% Trademarks...

\def\gobble#1{}

\def\trademark#1#2{%
    \let#1/\relax			% in case #2 references #1
    \setbox0=\hbox{#2}%			%   when we make the \hbox
    \ifdim\wd0>0pt
	\gdef#1/{%
	    \trademark{#1}\empty	% only in TeX: a recursive macro
	    #1/\nfootnote{#1/ is a trademark of #2.}%
	}%
    \else
	\gdef#1/{{\sc\expandafter\gobble\string#1}}%
    \fi
}

\catcode`\&=12
\trademark\acm\empty
\trademark\Ada{the Department of Defense (\Ada/ Joint Program Office)}
\trademark\bsd\empty
\trademark\ccitt\empty
\trademark\dod\empty
\trademark\eunice\empty
\trademark\ieee\empty
\trademark\unix{AT&T Bell Laboratories}
\trademark\vax{Digital Equipment Corporation}
\trademark\vms{Digital Equipment Corporation}

% hack: \trademark\tops20{Digital Equipment Corporation} doesn't work...
\gdef\tops20/{%
    \gdef\tops20/{{\sc tops20}}%
    \tops20/\nfootnote{\tops20/ is a trademark of Digital Equipment Corporation.}%
}

\catcode`\&=4