Global g_text_pos = 0;
Global g_text$;
Global g_text_word$;
Function  TextBegin(text_$)
 g_text=text_
  g_text_pos = 1 
g_text_word=""
End Function 

Function TextReadWord()
    g_text_word =""

	If (g_text_pos > Len(g_text))Return 0;

	While (Mid(g_text,g_text_pos,1) <> " " And g_text_pos<=Len(g_text))
    g_text_word =g_text_word+ Mid(g_text,g_text_pos,1);
    g_text_pos=g_text_pos+1

	Wend 

	g_text_pos=g_text_pos+1;
	Return 1;
End Function