0 IF READDIR$("ini")="" THEN GOSUB 800
1 GOTO 5500
4 IF READDIR$(PATH$)="" THEN GOTO 10
5 DELETE PATH$
10 INPUT "INPUT Text",Q$
15 GOSUB 500
20 ZAP$="http://translate.google.com/translate_tts?q="+Q$
30 PATH$=PATH$+"play.mp3"
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"
230 IF INKEY(0)=-5 THEN GOTO 5500
250 GOTO 230
500 REZ$=""
505 FOR I%=1 TO LEN(Q$)
510 B$=MID$(Q$,I%,1)
520 IF B$=" " THEN B$="%20"
530 REZ$=REZ$+B$
535 NEXT I%
540 Q$=REZ$:REZ$=""
545 PRINT Q$
570 RETURN
800 OPEN #4,"ini","OUTPUT"
805 GELLOAD"alert","alert.png"
810 ALERT"Warning!","Input path to folder for saving file","alert",2,3000
815 PATH$="file://E:/"
820 EDIT%=EDITFORM("Warning!","Save","Cansel","Input path:",PATH$,100,3)
830 IF EDIT%<0 THEN GOTO 850
840 GOTO 870
850 CLOSE #4
860 RETURN
870 PRINT #4,PATH$
880 GOTO 850
5500 OPEN #5,"ini","INPUT"
5510 INPUT #5,PATH$
5550 CLOSE 5#
5560 STEP%=SCREENWIDTH(0)/255:WIDTH%=SCREENWIDTH(0):HEIGHT%=SCREENHEIGHT(0): GO7%=HEIGHT%/7
5570 FOR I%=0 TO WIDTH%
5580 IF I%<(WIDTH%/2) THEN SETCOLOR 255-STEP%*2,0,0
5590 IF I%>(WIDTH%/2) THEN SETCOLOR 0+STEP%*2,0,0
5600 DRAWLINE I%,0,I%,GO7%
5610 NEXT I%
5620 GELGRAB"kur",0,0,WIDTH%,GO7%
5625 ID%=40
5630 SETCOLOR 0,0,0
5640 FILLRECT 0,0,WIDTH%,HEIGHT%
5650 SETCOLOR 255,255,255
5660 DRAWSTRING"MobVoice",WIDTH%/2-STRINGWIDTH("MobVoice")/2
5670 DRAWSTRING"Ok",5,HEIGHT%-15
5680 DRAWSTRING"Exit",WIDTH%-5-STRINGWIDTH("Exit"),HEIGHT%-15
5690 DRAWGEL"kur",ID%
5700 DRAWSTRING"INPUT TEXT",WIDTH%-STRINGWIDTH("INPUT TEXT")/2,40
5710 DRAWSTRING"OPEN FILE",WIDTH%-STRINGWIDTH("OPEN FILE")/2,40+GO7%
5720 DRAWSTRING"OPEN WWW",WIDTH%-STRINGWIDTH("OPEN WWW")/2,40+GO7%*2
5730 KLAVA%=INKEY(0)
5740 IF ID%<40 THEN ID%=40+2*GO7%
5750 IF ID%>40+2*GO7% THEN ID%=40
5760 IF KLAVA%=-1 THEN ID%=ID%-GO7%:SLEEP 200
5770 IF KLAVA%=-2 THEN ID%=ID%+GO7%
5780 GELGRAB"vse",0,0,WIDTH%,HEIGHT%
5790 SPRITEGEL"vse","vse"
5800 SPRITEMOVE"vse",0,0
5810 IF KLAVA%=-5 AND ID%=40 THEN GOTO 4
6000 GOTO 5630