%#!eptex \def\typeout{\immediate\write17} \ifnum`あ="A4A2 \typeout{} \else\ifnum`ア="8341 \typeout{} \else\typeout{}\fi\fi \typeout{\string\ucs.} \newcount\cntA \loop\ifnum\cntA<256 \ifnum0>\ucs\cntA\else\typeout{\the\cntA: \ucs\cntA (\Uchar\ucs\cntA)}\fi \advance\cntA1 \repeat \typeout{\string\toucs.} \cntA=0 \loop\ifnum\cntA<256 \ifnum0>\toucs\cntA\else\typeout{\the\cntA: \toucs\cntA}\fi \advance\cntA1 \repeat \typeout{\toucs"0, \toucs"80, \toucs"D7, \toucs"A7, \toucs"10000} \typeout{\toucs"8341, \toucs"EAA4, \toucs"EAA5} \typeout{\toucs"A4A2, \toucs"F4A6, \toucs"F4A7} \bye