struct        StringsBase     *StringsBase=0L;

#define RUN
#ifdef  RUN

int StrCmp(cs,ct) register char *cs,*ct; {    /*  */
  register char c;
  do ; while( (c=*cs++)  && (c==*ct++));
  if(c) ct--;
  return(c-*ct);
 };                                               /* $VER: StrCmp 0.1 */

#endif

long test(cs,ct) char *cs,*ct; {
  char o[64]; long el=StrCmp(cs,ct);
  sprintf(o,"<%s>",cs); printf(" %8s ",o); sprintf(o,"<%s>",ct);
  printf(" %8s ",o); if(el)  printf("UNGLEICH ");
  if(!el) printf(" GLEICH "); printf(" %ld\n",el);
  return el; /*  */
 }

int main() {                             /* MAIN */
  long el=0; char *s[256];
  StringsBase=(struct StringsBase *)OpenLibrary("Strings.library",0);
  puts("     cs        ct");
  el=test("strcmp","strcmp"); el=test("strcmp","strCmp");
  el=test("w","h");       el=test("w","w");
  el=test("wenn","wenn");    el=test("wen","wenn");
  el=test("wennf","wenn");   el=test("wenn","wennh");
  el=test("wenn","wen");     el=test("wenn","kwenn");
  el=test("wen","kwenn");    el=test("wen","");
  el=test("","wen");         el=test("","");
  if(StringsBase) CloseLibrary(StringsBase);
  return 0;
 }                                                             /* END */
#ifdef  COMMENT

     cs        ct
 <strcmp>  <strcmp>  GLEICH  0
 <strcmp>  <strCmp> UNGLEICH  32
      <w>       <h> UNGLEICH  15
      <w>       <w>  GLEICH  0
   <wenn>    <wenn>  GLEICH  0
    <wen>    <wenn> UNGLEICH  -1
  <wennf>    <wenn> UNGLEICH  1
   <wenn>   <wennh> UNGLEICH  -1
   <wenn>     <wen> UNGLEICH  1
   <wenn>   <kwenn> UNGLEICH  12
    <wen>   <kwenn> UNGLEICH  12
    <wen>        <> UNGLEICH  1
       <>     <wen> UNGLEICH  -1
       <>        <>  GLEICH  0
#endif