1 setcolor 20,20,20
5 ms%=milliseconds(0):fp%=0
10 cls:username$="test1":password$="1":txt$=""
15  s$="?username="+usermame$+"&password="+password$
20 open #0,"http://limil.id1945.com/online/script.php?username="+usermame$+"&password="+password$,"output"
30 open #1,"http://limil.id1945.com/online/test1","input"
32 if (milliseconds(0)-ms%)<1000 then fp%=fp%+1
33 cls:password$="2"
35 for i%=1 to len(s$)
37 trap 80:put #0,asc(mid$(s$,i%,1))
38 next i%
40 trap 80:get #1,b%
66 drawstring "DATA: "+str$(b%),10,20:repaint
67 if (milliseconds(0)-ms%)>1000 then fps%=fp%:ms%=milliseconds(0):fp%=0
68 drawstring "fps: "+str$(fps%),0,0:repaint
69 goto 32
80 close #0:close #1:goto 20
90 cls:drawstring "DATA: "+txt$,10,20
110 drawstring "vse----",0,0:repaint:sleep 5000:end