Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!jaist-news!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] numbersty.sty (Re: sum of money)
In-Reply-To: tsato@ibuki.kuee.kyoto-u.ac.jp's message of Thu, 20 Jan 1994 09:08:14 GMT
Message-ID: <UAINOUE.94Jan27170304@jupost.ipc.musashi-tech.ac.jp>
Lines: 39
Sender: usenet@musashi-tech.ac.jp
Nntp-Posting-Host: jupost
Organization: Musashi Institute of Technology
References: <MORINAKA.94Jan18114510@hochspits.hip.atr.co.jp>
	<1490@sagagw.cc.saga-u.ac.jp>
	<TSATO.94Jan20180815@ibuki.kuee.kyoto-u.ac.jp>
Distribution: fj
Date: Thu, 27 Jan 1994 08:03:04 GMT
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:4492
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=4492&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

In article <TSATO.94Jan20180815@ibuki.kuee.kyoto-u.ac.jp> tsato@ibuki.kuee.kyoto-u.ac.jp (Toru Sato) writes:
>$B?9Cf$5$s$N9M$($i$l$?J}K!$,@52r$@$H;W$$$^$9!#:n$C$F$_$^$7$?!#(B

$B;d$b:n$C$F$_$^$7$?!#(B

--------------------------numbersty.sty-----------------------------
\newcount\tempcode
\newcount\digit
\def\hexnumber{\afterassignment\writehexnumber\tempcode}
\def\writehexnumber{\digit-\tempcode
\divide\digit"10
\multiply\digit"10
\advance\digit\tempcode
\expandafter\nexthexdigit
\ifcase\digit0\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\nexthexdigit{\divide\tempcode"10
\ifnum0<\tempcode\writehexnumber\fi}
\def\milnumber{\afterassignment\writemilnumber\tempcode}
\def\writemilnumber{\digit-\tempcode
\divide\digit1000
\multiply\digit1000
\advance\digit\tempcode
\expandafter\nextmildigit\number\digit}
\def\nextmildigit{\divide\tempcode1000
\ifnum0<\tempcode\writemilnumber,\fi}
---------------------------------------------------------------------

\documentstyle[...,numbersty]{...}$B$H$7$F2<$5$$!#(B
\hexnumber1234$B$,!"(B4D2  \milnumber1234$B$,!"(B1,234  \milnumber123456789$B$,!"(B
123,456,789$B$H$J$k$O$:$G$9!#(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-
