1 setcolor 0,255,0
5 username$="limil":password$="qwerty"
9 b%=0:data$=""
15  s$="u="+username$+"&p="+password$
20 open #0,"http://127.0.0.1/mb.php","output"
35 for i%=1 to len(s$)
37 put #0,asc(mid$(s$,i%,1))
38 next i%
40 trap 66:get #0,b%:if b%=-1 then goto 66
41 data$=data$+chr$(b%):goto 40
66 drawstring "DATA: "+data$,10,20:repaint
110 drawstring "vse----",10,40:repaint:sleep 5000:end