1 setcolor 0,255,0
2 open #0,"http://limil.id1945.com/online/mb.php","output"
5 password$=str$(rand(0,5))
9 b%=0:data$="":s$="p="+password$
25 for i%=1 to len(s$)
37 put #0,asc(mid$(s$,i%,1))
38 next i%
40 trap 110:get #0,b%
41 if b%=-1 then goto 5
42 data$=data$+chr$(b%):sleep 100
66 cls:drawstring "DATA: "+data$,10,20:repaint:goto 5
110 drawstring "vse----",10,40:repaint:close #0:goto 5
