/*long FillString(char *s,*fs,long al);*/

long FillString(s,FillStrings,MaxLenl) char *s; char *FillStrings; long MaxLenl; {
  long l,FSl,NFl; char *FSp,*cp,c;
  if(MaxLenl>0) {
   cp=s; do; while(*cp++); cp--; l=cp-s; FSp=FillStrings;
   if(MaxLenl>l) {
    do {
     c=*FSp++; *cp++=c; l++;
     if(!c) { FSp=FillStrings; cp--; l--; }
    } while(l<MaxLenl); *cp=0;
   }
  }
  return l;
 }                                            /* FillString $VER:0.1 */

int main(argc,argv)  int argc; char *argv[]; {                   /* main */
  long el=0,l; char s[1024],fs[1024];
  if(argc==1)                                                          {
   strcpy(s,"this string is 55 chars long "); strcpy(fs,"-");
   l=FillString(s,fs,55); printf(" s = %s  l = %ld\n",s,strlen(s));
  } else                                                               {
   strcpy(s,argv[1]); l=FillString(s,argv[2],atol(argv[3]));
   puts("string        fill    number    out");
   printf("%6s%8s%8s%8s  %s\n",argv[0],argv[1],argv[2],argv[3],s,strlen(s));
  }
  return el;
 }                                                             /* END */