#include <MyIncludes:StringDefinations.h>

long instr(char *as,*bs,long posl) {
  long l=0,pl=0; register char *ac,*bc=as; bc+=posl; ac=bc;
  while(*ac++==*bs++) pl++;
  bs--; if(bs) pl=0;
/*  ac=strstr(bc,bs); if ( ac != NULL ) { l=strlen(as)-strlen(ac)+1; }
*/
  return pl;
 } /* instr */

main() {
  long l=0; int i=0; char *sc[256]; strcpy(sc,"qwertyuio");
  static char *c="t", *a="a", *b="q", *d="o", *e="qw", *f="uio", *g="wert";
  static char *h="qwertyuio", *j="qwertyuiop", *k="wertg", *m="tfu", *n="";
  l=instr(sc,a,0); printf(" sc = %s   a = %s  position =  %ld\n" ,sc,a,l);
  l=instr(sc,b,0); printf(" sc = %s   b = %s  position =  %ld\n" ,sc,b,l);
  l=instr(sc,c,0); printf(" sc = %s   c = %s  position =  %ld\n" ,sc,c,l);
  l=instr(sc,d,0); printf(" sc = %s   d = %s  position =  %ld\n" ,sc,d,l);
  l=instr(sc,e,0); printf(" sc = %s   e = %s  position =  %ld\n" ,sc,e,l);
  l=instr(sc,f,0); printf(" sc = %s   f = %s  position =  %ld\n" ,sc,f,l);
  l=instr(sc,g,0); printf(" sc = %s   g = %s  position =  %ld\n" ,sc,g,l);
  l=instr(sc,h,0); printf(" sc = %s   h = %s  position =  %ld\n" ,sc,h,l);
  l=instr(sc,j,0); printf(" sc = %s   j = %s  position =  %ld\n" ,sc,j,l);
  l=instr(sc,k,0); printf(" sc = %s   k = %s  position =  %ld\n" ,sc,k,l);
  l=instr(sc,m,0); printf(" sc = %s   m = %s  position =  %ld\n" ,sc,m,l);
  l=instr(sc,n,0); printf(" sc = %s   n = %s  position =  %ld\n" ,sc,n,l);
  strcpy(sc,"qwertyuioptasd"); strcpy(n,"t");
  l=instr(sc,n,5); printf(" sc = %s   n = %s  position =  %ld\n" ,sc,n,l);
  l=instr(sc,n,4); printf(" sc = %s   n = %s  position =  %ld\n" ,sc,n,l);
  l=instr(sc,n,0); printf(" sc = %s   n = %s  position =  %ld\n" ,sc,n,l);
  return 0;
 } /* main */