Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!nirvana.cs.titech!wnoc-tyo-news!waseda-mail!wsdnws!musashi-tech!ops!uainoue
From: uainoue@ipc.musashi-tech.ac.jp (INOUE Koichi)
Subject: [asobi no TeX] kansuuji.sty
Message-ID: <UAINOUE.94Mar2140159@jupost.ipc.musashi-tech.ac.jp>
Lines: 46
Sender: usenet@musashi-tech.ac.jp
Nntp-Posting-Host: jupost
Organization: Musashi Institute of Technology
Distribution: fj
Date: Wed, 2 Mar 1994 05:01:59 GMT
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:4538
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=4538&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.

$B$$$N$&$($G$9!#(B

$B4A?t;z$r=P$7$^$9$,!">&MQ$N4A?t;z$C$F$3$l$GNI$+$C$?$s$G$7$?$C$1!)(B

-----------------------------kansuuji.sty------------------------------
\newcount\tempcode
\newcount\digit
\def\$B4A?t;z(B{\afterassignment\write$B4A?t;z(B\tempcode}
\def\write$B4A?t;z(B{\ifnum0=\tempcode $BNm(B\else
\$B7e(B{99999999}{100000000}\$BK|0J2<(B{$B2/(B}%
\$B7e(B{9999}{10000}\$BK|0J2<(B{$BK|(B}%
\$BK|0J2<(B\fi}
\def\$BK|0J2<(B{\$B7e(B{999}{1000}\$B==0J2<(B{$B@i(B}%
\$B7e(B{99}{100}\$B==0J2<(B{$BI4(B}%
\$B7e(B{9}{10}\$B==0J2<(B{$B==(B}%
\ifcase\tempcode
\or $B0l(B\or $BFs(B\or $B;0(B\or $B;M(B\or $B8^(B\or $BO;(B\or $B<7(B\or $BH,(B\or $B6e(B
\fi}
\def\$B==0J2<(B{\ifcase\tempcode
\or\or $BFs(B\or $B;0(B\or $B;M(B\or $B8^(B\or $BO;(B\or $B<7(B\or $BH,(B\or $B6e(B\fi}
\def\$B7e(B#1#2#3#4{\ifnum#1<\tempcode
\digit\tempcode
\divide\tempcode#2
{#3}#4%
\multiply\tempcode-#2
\advance\tempcode\digit\fi}
\def\$B>&MQ4A?t;z(B{\afterassignment\write$B>&MQ4A?t;z(B\tempcode}
\def\write$B>&MQ4A?t;z(B{\ifnum0=\tempcode $BNm(B\else
\$B7e(B{99999999}{100000000}\$Bh_0J2<(B{$B2/(B}%
\$B7e(B{9999}{10000}\$Bh_0J2<(B{$Bh_(B}%
\$Bh_0J2<(B\fi}
\def\$Bh_0J2<(B{\$B7e(B{999}{1000}\$B=&0J2<(B{$Bot(B}%
\$B7e(B{99}{100}\$B=&0J2<(B{$BI4(B}%
\$B7e(B{9}{10}\$B=&0J2<(B{$B=&(B}%
\$B=&0J2<(B}
\def\$B=&0J2<(B{\ifcase\tempcode
\or $B0m(B\or $BFu(B\or $B;2(B\or $B;M(B\or $B8`(B\or $BN&(B\or $B<7(B\or $BH,(B\or $B6e(B\fi}
------------------------------------------------------------------------

$B$J$*!"$d$O$j#1#02/$"$?$j$G%*!<%P!<%U%m!<$G$9!#Ii$N?t$K$OBP1~$7$F$^$;$s!#(B
--
         $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 : uainoue@ipc.musashi-tech.ac.jp
---$B9aI?F<6d6b2&>]6b6dF<I?9a(B--------------$B$=$l$G$b;d$OM}@-$r?.$8$F$$$^$9(B-
