word
void word(char *s, int n, char *w);
//ENDH
/**********************************************
    gets the nth word from string s
    n starts with 1 !!!!
***********************************************/
void word(char *s, int n, char *w)
{
	int t;
        int i;
        int z;
	int sp;
	int st;

	sp=0;
        z=0;
        i=0;
	w[0]=0;  /* Ergebnis lschen*/

        for(st=0; st<StrLen(s); st++){
	   if(s[st]>' ') break;
	}
        for(t=st; t<StrLen(s); t++){
	   if(s[t]<=' '){
	      sp++;
	      if(sp==1) z++;
	      if(z>=n) break;
              i=0;
	      w[0]=0;
	   }
	   else{            
              w[i++]=s[t];
	      w[i]=0;
	      sp=0;
	   }
        }
}
