1f (to)
2     char *to;
3{
4  unsigned int wch;
5  register length;
6  unsigned char tmp;
7  unsigned int mult = 10;
8
9  tmp = (wch>>(unsigned int)(length * mult));
10  *to++ = (unsigned char)tmp;
11}
12