struct        StringsBase     *StringsBase=0L;

/*#define RUN*/
#ifdef  RUN

long LtoA(s,n) register char *s; register long n; {
  register char *p=s,c,*sp; sp=p;
  if(n<0) { *p++='-'; s++; n=-n; }
  do { *p=n+'0'; n/=10; *p-=n*10; p++; } while(n> 0);
  *p=0; p--;
  do { c=*s; *s=*p; *p=c; s++; p--; } while (s<p); /* reverse string */
  return sp;
 } /* LtoA */

#endif

long t(l) long l; {
  long el=0; char s[64],o[64]; el=LtoA(s,l);
  sprintf(o,"<%s>",s); printf("  %8ld    %16s   <%s>\n",l,o,el);
  return el;
 }

long main() {
  long el=0l; char c;
  StringsBase=(struct StringsBase *)OpenLibrary("Strings.library",0);
  puts("      number             string  return");
  t(123); t(0); t(1); t(-1); t(0xFFFF); t(0x10000);
  if(StringsBase) CloseLibrary(StringsBase);
  return 0;
 }

#ifdef  COMMENT
      number             string  return
       123               <123>   <123>
         0                 <0>   <0>
         1                 <1>   <1>
        -1                <-1>   <-1>
     65535             <65535>   <65535>
     65536             <65536>   <65536>
#endif