struct        StringsBase     *StringsBase=0L;


long t(str,ss,rs) char *str,*ss,*rs;
  {
  long el=0; char *p; char s[128]; strcpy(s,"");
   p=ReplaceStrCpy(s,str,ss,rs);
   if(p)  printf("<%16s> <%8s> <%8s> <%16s> <%ld>\n",str,ss,rs,s,p);
   if(!p) printf("searchstring <%s> not found  p = <%ld>\n",ss,p);
  return el; /*  */
 }

int main()                            /* MAIN */    {
  long el=0,i,j,l; char *ins[64],*ss[64],*rs[64],*str[64],*p,*s[128];
  strcpy(str,"ABCDE12D34");
  StringsBase=(struct StringsBase *)OpenLibrary("Strings.library",0);
  puts(" Inputstring   searchstring   replacestring   outputstring  Adr");
el=t(str,"ABCD","test"); el=t(str,"4","9");      el=t(str,"E12","678");
el=t(str,"12D","a");     el=t(str,"ABC"  ,"");   el=t(str,"D","");
el=t(str,"4",",.");      el=t(str,"","");        el=t(str,"ABC"  ,"FGHI");
el=t(str,"D","QW");      el=t(str,"ABC"  ,"QW"); el=t(str,"CDE1","gh");
el=t(str,"12D"  ,"");    el=t(str,"test","gh");  el=t(str,"12D34","");
el=t(str,"12D34","gh");  el=t(str,"4"    ,"");   el=t(str,"A","gh");
el=t(str,"12D"  ,"");    el=t(str,"test","gh");  el=t(str,"12D"  ,"");
el=t(str,"A","ghj");     el=t(str,"A","ghjk");   el=t(str,"34","test");
el=t(str,"34","");       el=t(str,"l7+l99","func");
/*
  strcpy(s,"l7+l99");     printf(" using <%s>    func   = ",s);
  ReplaceStr(s,"l","func"); printf("OUT s = <%s>\n",s);
*/
  if(StringsBase)       { CloseLibrary(StringsBase); }
  return el;
 }