%#!eptex \catcode`\_=12 \catcode`\@=11 \def\typeout{\immediate\write17} \begingroup \catcode`\P=12 \catcode`\T=12 \lowercase{ \gdef\rem@pt#1.#2PT{#1\ifnum#2>\z@.#2\fi} } \endgroup \def\strip@pt{\expandafter\rem@pt\the} \def\TFC#1{\typeout{code #1: \iffontchar\jfont#1 T\else F\fi}} \def\TFT#1#2{\typeout{type \the\numexpr-#1-1\relax: \iffontchar#2#1 (\strip@pt\fontcharht#2#1+\strip@pt\fontchardp#2#1)*\strip@pt\fontcharwd#2#1 \else F\fi }} \TFC{"A1A1} \TFC{"FEFE} \TFC{"E0A1} \TFC{"FCFC} \TFC{"8140} \TFC{"9FFC} \typeout{TEST: \string\jfont: \fontname\sevenmin} \sevenmin \count@=-1 \loop \ifnum\count@>-15 \TFT\count@\jfont\advance\count@\m@ne \repeat \typeout{TEST: \string\tfont: \fontname\tfont} \count@=-1 \loop \ifnum\count@>-15 \TFT\count@\tfont\advance\count@\m@ne \repeat \protected\def\NEXT{\ten=1 \loop\ifnum\ten<95 \ifdim\fontcharwd\zs\kuten\numexpr\ku*256+\ten=10pt \global\count@=\kuten\numexpr\ku*256+\ten \global\count0\ku \global\count2\ten \global\ku=95 \ten=95 \fi \advance\ten1 \repeat} \count@=0 \jfont\zs=zero_search \newcount\ku \newcount\ten \ku=1 \loop\ifnum\ku<95 {\ifnum11=\ifnum\ku>8 1\else0\fi\ifnum\ku<16 1\else 0\fi\else\NEXT\fi}% \advance\ku1 \repeat \kansujichar1=\count@ \typeout{\kansuji1(internal code: \the\count@, \the\count0-ku \the\count2-ten)} \bye