long FillStringCpy(char *dest,char *source,*fs,long maxlen);

long FillStringCpy(char *ds,register char *s,*FSs,long Lenl)                    {
  long l; char *cp; l=0;
  if(Lenl>0)                                                           {
   cp=ds; do; while(*cp++=*s++); cp--; l=cp-ds; ds=FSs;
   if(Lenl>l)                                                          {
    do { l++; if(!(*cp++=*ds++)) { ds=FSs,cp--,l--; } } while(l<Lenl);
    *cp=0;
   }
  }
  return l;
 }                                          /* FillStringCpy $VER:0.1 */

int main(int argc,char *argv[]) {                             /* main */
  long el=0,l; char *s[1024],*fs[1024];
  if(argc==1)                                                          {
   l=FillStringCpy(s,"test","-",55);
   printf(" s = %s  l = %ld\n",s,strlen(s));
  } else                                                               {
   l=FillStringCpy(s,argv[1],argv[2],atol(argv[3]));
   printf("%6s%8s%8s%8s    <%s>\n",argv[0],argv[1],argv[2],argv[3],s);
  }
  return el;
 }                                                             /* END */