Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!waseda-mail!wsdnws!musashi-tech!ops!koichi
From: koichi@ec.musashi-tech.ac.jp (INOUE Koichi)
Subject: [asobi no TeX] jiscode.tex
Message-ID: <KOICHI.93Dec7132411@gemini.ec.musashi-tech.ac.jp>
Lines: 43
Sender: usenet@musashi-tech.ac.jp
Nntp-Posting-Host: gemini
Organization: Musashi Institute of Technology
Distribution: fj
Date: Tue, 7 Dec 1993 04:24:11 GMT
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:4274
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=4274&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$B0f>e!wIpB"9)Bg$G$9!#(B

$B:#EY$O!"4A;z%3!<%II=$r=P$7$F$_$^$7$?!#(B

\documentstyle[a4j]{jarticle}
\newcount\kanjicode
\newcount\tempcode
\newcount\hexdigit
\kanjicode"2121
\def\jiscode{\filbreak
\leavevmode
\hbox to3zw{[\hexnumber\kanjicode]\hss}%
\let\next\writejiscode\next}
\def\writejiscode{\ifnum"7E7E<\kanjicode\let\next\relax
\else\hfil\allowbreak\hfilneg
\hbox to1zw{\hss\char\jis\kanjicode\hss}%
\advance\kanjicode1
\tempcode-\kanjicode
\divide\tempcode"100
\multiply\tempcode"100
\advance\tempcode\kanjicode
\ifnum"7E<\tempcode\advance\kanjicode"A2\let\next\jiscode\fi
\fi\next}
\def\hexnumber{\let\next\writehexnumber\afterassignment\next\tempcode}
\def\writehexnumber{\hexdigit-\tempcode
\divide\hexdigit"10
\multiply\hexdigit"10
\advance\hexdigit\tempcode
\expandafter\nextdigit
\ifcase\hexdigit0\or1\or2\or3\or4\or5\or6\or7\or8\or9\or
A\or B\or C\or D\or E\or F\else X\fi}
\def\nextdigit{\divide\tempcode"10
\ifnum0=\tempcode\let\next\relax\fi\next}
\begin{document}
\parindent0pt
\jiscode
\end{document}
--
         $BCg(B        $BCg(B
---$BJbJbJbJbJbJbJbJbJbJbJbJb(B---------------------------------------------
   $B2#C(HtGON6;bK[N6GOHtC(2#(B                                    $B0f>e9@0l(B
   $BH?(B  $B3Q(B  $B8WsJK18W(B  $B3Q(B  $BH?(B       e-mail : koichi@ec.musashi-tech.ac.jp
---$B9aI?F<6d6b2&>]6b6dF<I?9a(B--------------$B$=$l$G$b;d$OM}@-$r?.$8$F$$$^$9(B-
