require 'cs.pl' ;

#$ENV{"arcslog"} = "-" ;
$ENV{"arcslog"} = "nul" ;
$rc = &rCsInit() ;
die unless ($rc == 0) ;
$file = &CsIoOpen("udp//10.1.2.3/99",4,0x4003) ;
die unless ($file != 0) ;
&set_blocking($file,1) ;
&set_immediate($file,1) ;	# datagrams - not stream
for (;;)  {
$buf = pack("S",16384) ;
$rc = &rCsIoWrite($buf,1,length($buf),$nb,$file) ;
for ($i=0 ; $i<16 ; $i++)  {
    $rc = &rCsIoRead($buf,1,1200,$nb,$file) ;
#    print join(" ",unpack("C*",$buf)) ;
    printf "Client: received seq %02X length $nb\n",unpack("C",$buf) ;
}
}