/* split char string s delimited by char string d into int array t

split int t(0);char s(0),d(0) [
 int y,ix,tx,sl,ds;ds=strlen(d);t(0)=s;sl=strlen(s)
 while (sl-tx) [
  ix=index(s+tx,sl-tx,d,ds)
  tx=tx+ix+ds-1;t(++y)=s+tx;s(tx-ds)=0
  ]
 return y
 ]