Регистрация | Вход
;------------------; v nachale programmyGlobal g_text_pos = 0Global g_text$Global g_text_word$;Function Text_begin(text_$)g_text=text_g_text_pos = 1 g_text_word=""End Function Function Text_read_word() g_text_word ="" If (g_text_pos > Len(g_text))Return 0; While (Mid(g_text,g_text_pos,1) = " ") : g_text_pos=g_text_pos+1 : Wend 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