[Crayzi]

Сервер:

tm=CreateTimer(60)
svrGame=CreateTCPServer(8080) 

While Not KeyHit(1)
WaitTimer(tm)
strStream=AcceptTCPStream(svrGame) 
If strStream Then 
	Print ReadLine$(strStream);Читаем что прислал клиент.
	WriteLine strStream,"test compleate";Отправляем клиенту сообщение "test compleate"
End If
Wend

Клиент:

strmGame=OpenTCPStream("192.168.137.196",8080) 
tm=CreateTimer(60)
While Not KeyHit(1)
WaitTimer(tm)
If KeyHit(2)
	WriteLine strmGame,"test" 
EndIf
If ReadAvail(strmGame)>0
   Print ReadLine$(strmGame);Читаем сообщение сервера.
EndIf 
Wend