! Socket server test program.
ip$="192.168.0.105"
port=10001
print "Xport at "ip$;" Port:";format$(" #####",port)

! Connect to the Xport Client
! 
socket.client.connect ip$,port
print "Connected to ";ip$
! Wait for Client to send a message
! or time out after 10 seconds
maxclock = clock() + 10000

do
 socket.client.read.ready flag
 if clock() > maxclock 
   print "Read time out"
   end
 endif
print ".";
pause 100
until flag
print " "
print "flag=";flag
! Message recu 
socket.client.read.line recept$
print recept$
! Send a message back to client
socket.client.write.line "h"
pause 3000
cls
j=0
flag=0
debug.on
do
! normal sending from XPORT is every 2 secondes test with +10%
maxclock=clock()+2200
 while (flag=0)
socket.client.read.ready flag
if(clock()> maxclock
print "Timeout sur reception trame"
end if
repeat
!debug.on
print format$("##",j);" ";
socket.client.read.line recept$
split rec_Array$[],recept$,";"
array.length longueur, rec_Array$[]
debug.print "longueur : ";longueur
debug.print "recu :"; recept$
for i= 1 to longueur
print rec_Array$[i]
next i
unDim rec_Array$[]
debug.off

j=j+1
until j>10
pause 3000
socket.client.close 
print "deconnection" 
Tone 440,1000
end