0 IF READDIR$("ini")="" THEN GOSUB 800
1 GOTO 5500
2 IF READDIR$(PATH$)="" THEN GOTO 10
4 DELETE PATH$
10 X%=EDITFORM("MobVoice","Читать","Назад","Введите текст",Q$,5000,0)
12 IF X%=-1 THEN SLEEP 500:GOTO 0
15 GOSUB 500
20 ZAP$="http://translate.google.com/translate_tts?q="+Q$
25 SETCOLOR 0,0,0
26 FILLRECT 0,0,WIDTH%,HEIGHT%
30 SETCOLOR 255,255,0
32 DRAWSTRING "Загрузка",WIDTH%/2-STRINGWIDTH("Загрузка"),GO7%
35 GELLOAD "load","load.png"
40 DRAWGEL "load",WIDTH%/2-96,HEIGHT%/2-96
50 GOSUB 10000
90 OPEN #1,PATH$,"output"
100 OPEN #0,ZAP$,"input"
110 TRAP 200
115 GET #0,B%
120 PUT #1,B%
130 GOTO 115
200 CLOSE #0:GOTO 205
205 CLOSE #1
210 SLEEP 1000:PRINT "play.."
220 PLAYWAV PATH$
225 CLS:PRINT "Press 'Ok' for return":GOSUB 10000
230 IF INKEY(0)=-5 THEN GOTO 0
250 GOTO 230
500 REZ$="":B$=""
501 SETCOLOR 0,0,0:FILLRECT 0,0,WIDTH%,HEIGHT%:SETCOLOR 0,0,255
502 FILLRECT 5,HEIGHT%/2-GO7%/2,WIDTH%-5,GO7%:SETCOLOR 255,255,0
503 DRAWSTRING "Идет oбработка",WIDTH%/2-STRINGWIDTH("Идет обр"),HEIGHT%/2
504 GOSUB 10000
505 FOR I%=1 TO LEN(Q$)
510 B$=MID$(Q$,I%,1)
520 IF B$=" " THEN B$="%20"
680 REZ$=REZ$+B$
683 NEXT I%
687 Q$=REZ$:REZ$=""
700 RETURN
800 OPEN #4,"ini","OUTPUT"
815 PATH$="file://E:/play.mp3"
820 EDIT%=EDITFORM("Внимание!","Сохранить","Отмена","Путь временных файлов:",PATH$,100,3)
830 IF EDIT%=-1 THEN GOTO 850
840 GOTO 870
850 CLOSE #4
860 RETURN
870 PRINT #4,PATH$
880 GOTO 850
5500 OPEN #0,"ini","INPUT"
5510 INPUT #0,PATH$
5550 CLOSE #0
5560 WIDTH%=SCREENWIDTH(0):HEIGHT%=SCREENHEIGHT(0):GO7%=HEIGHT%/7:SLEEP 500
5625 ID%=40:N=0
5630 SETCOLOR 0,0,0
5640 FILLRECT 0,0,WIDTH%,HEIGHT%
5641 IF N>1000 THEN N=0
5643 SETCOLOR COS(N)^2*100,0,0
5645 FILLRECT 0,ID%,WIDTH%,GO7%
5646 SETCOLOR SIN(N)^2*100,SIN(N)^2*100,0:DRAWRECT 1,ID%+1,WIDTH%-3,GO7%-3
5647 N=N+0.05
5650 SETCOLOR 255,255,0
5660 DRAWSTRING "MobVoice",WIDTH%/2-STRINGWIDTH("MobVoice")/2,3:DRAWLINE 0,25,WIDTH%,25
5670 DRAWSTRING "Выбор",5,HEIGHT%-20
5680 DRAWSTRING "Выйти",WIDTH%-5-STRINGWIDTH("Выйти"),HEIGHT%-20:DRAWLINE 0,HEIGHT%-20,WIDTH%,HEIGHT%-20
5695 SETCOLOR 255,255,255
5700 DRAWSTRING "Ввести текст",WIDTH%/2-STRINGWIDTH("Ввести текст")/2,47
5710 DRAWSTRING "Из файла",WIDTH%/2-STRINGWIDTH("Из файла")/2,47+GO7%
5720 DRAWSTRING "Из интернета",WIDTH%/2-STRINGWIDTH("Из интернета")/2,47+GO7%*2
5730 KLAVA%=INKEY(0)
5760 IF KLAVA%=-1 THEN ID%=ID%-GO7%:GOSUB 6100
5770 IF KLAVA%=-2 THEN ID%=ID%+GO7%:GOSUB 6100
5773 IF ID%<40 THEN ID%=40+2*GO7%
5775 IF ID%>40+2*GO7% THEN ID%=40
5780 GOSUB 10000
5810 IF (KLAVA%=-5 OR KLAVA%=-6) AND ID%=40 THEN GOTO 4
5820 IF KLAVA%=-7 THEN END
6000 GOTO 5630
6100 KLAVA%=INKEY(0)
6110 IF KLAVA%<>0 THEN GOTO 6100
6120 RETURN
10000 GELGRAB "vse",0,0,WIDTH%,HEIGHT%
10010 SPRITEGEL "vse","vse"
10020 SPRITEMOVE "vse",0,0
10030 RETURN