Шиза- я сказала я пошла к Денису или к тому кто курит , замените имя на Juliet
Зоя- прости , да
7841 LBA-1 igra AI
Зоя- во трубка за 555 р. чтобы бросать курить , вот тебе и Шерлок-Холмс ,
сигареты табак хочется , трубка табак от тех-же сигарет не хочется )
9957
2239
Папюс- табак чтобы спать
шиза.jpg- многие Сигареты
кирилл.png- привет всем
полина.jpg- скоро исходников поможем
кирилл.png- про то что сложное
juliet.jpg- фильм донате форумами Мамы
juliet.jpg- киберБес_конечность попадут сказал
кирилл.png- ПНД-13
juliet.jpg- вас спонтанно Тете
juliet.jpg- Систему влюбился три ясно
Полина- вот что самое сложное в этой программе , спасибо
1136 ИИ Ев
1787 IT Vr
;------------------
; в самом начале программы
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) = " ") : 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