mydynamicIP="217.156.25.101"
crlf=chr(13)&chr(10)
openssrv (8090)
again:
writesock ("217.156.25.76",8090,mydinamicIP&" 8090 ?ic"&crlf)
repeat
rec=readsock ()
posofcrlf=pos (crlf,rec)
until (posofcrlf<>0)
writefile ("d:\results.txt",rec)
flushsock ()
goto again