|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T h
Length: 930 (0x3a2)
Types: TextFile
Names: »hex.tip«
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
└─⟦af5ba6c8e⟧ »unix3.0/DVIWARE.tar.Z«
└─⟦ca79c7339⟧
└─⟦this⟧ »DVIware/laser-setters/dvi-to-ps/TeXPS/doc/hex.tip«
% This macro source file is from the four volume series
% "TeX in Practice" by Stephan v. Bechtolsheim, published
% 1990 by the Springer-Verlay, New York.
% Copyright 1990 Stephan v. Bechtolsheim.
% No warranty or liability is assumed.
% This macro may be copied freely if no fees other than
% media cost or shipping charges are charged and as long
% as this copyright and the following source code itself
% is not changed.
%
% Version 1.0
% Date: May 11, 1990
%
% This source code is documented in ?? ?? ??
\def\Hex #1{%
{%
\count0 = #1%
\count1 = #1%
\divide\count0 by 16
\count2 = \count0
\multiply \count2 by -16
\advance \count1 by \count2
\ifnum \count0>0
\Hex{\count0}%
\fi
\HexDigit{\count1}%
}%
}
\def\HexDigit #1{%
{%
\count0 = #1\relax
\ifnum \count0<10
\number\count0 % or \the\count0
\else
\advance\count0 by -10
\advance\count0 by `A
\char\count0
\fi
}%
}