program Test_TCP_Client;
import "net.dll"
PRIVATE
	check=666;
begin
	full_screen=false;
 	net_init();
 	net_resolvehost(0,"127.0.0.1",16660);
 	net_tcp_open(0);
  	write(0,10,10,3,"Client");
  	net_tcp_send(0,&check,4);
  	net_tcp_close(0);
  	net_quit();
end