1 setcolor 20,20,20
5 ms%=milliseconds(0):fp%=0
6 if (milliseconds(0)-ms%)<1000 then fp%=fp%+1
10 cls:username$="test":password$=str$(rand(0,5)):txt$=""
20 open #0,"http://limil.id1945.com/online/script.php?username="+username$+"&password="+password$,"input":close #0
30 open #1,"http://limil.id1945.com/online/test","input"
40 trap 80:get #1,b%
60 txt$=txt$+chr$(b%)
80 close #1
90 drawstring "DATA: "+txt$,10,20:repaint
100 if (milliseconds(0)-ms%)>1000 then fps%=fp%:ms%=milliseconds(0):fp%=0
110 drawstring "fps: "+str$(fps%),0,0:repaint:goto 6