#include <WORK:Strings.DIR/AToL.DIR/AToL.h>

long FormatStr(char *ins,*cs,long pl,al, char *outs) {
  long l=strlen(ins),el=0;
  return pl;
 }							 /* FormatStr */
int main(int argc,char *argv[]) {                             /* main */
  int i; long l,zl[32],el; char *ins[64],*fs[8], *outs[64],;
  static char *s[1024]= {
   "A","1", "RAM:A","12", "RAM:A","12", "RAM:A","12", "RAM:A","12",
   "W:W","", "","1",
  }
  zl[0]= 5; zl[2]= 4; zl[4]= 5; zl[6] =6;  zl[8]=7;  zl[10]=8; zl[12]=5;
  zl[14]=9; zl[16]=6; zl[18]=7; zl[20]=8;
  if (argc==1) {
   puts("inputstring fillstring maxstringlen  outputstring lenfillstr");
   for(i==0; i<14; i++2; ) {
    strcpy(ins,s[i]); strcpy(fs,s[i+1]); l=zl[i];
    el=FillString(ins,fs,zl,outs);
    printf("%12s %11s %ld %s %ld\n",ins,fs,l,outs,el);
   };
  }
  else { l=FillString(argv[1],argv[2],atol(argv[3],s); printf("%s\n",s); }
  return 0;
 }							       /* END */