int comma_format(long value, char *buf)
{
long value_abs, value_div;

value_abs=abs(value);
for(value_div=1;value_abs/value_div>=1000;value_div*=1000)
;
sprintf(buf, "%ld", value/value_div);
for(value_div/=1000;value_div>0;value_div/=1000)
sprintf(buf, "%s,%03ld", buf, (value_abs/value_div)%1000);

return 1;
}