OpenConsole()
InitNetwork()


port.w = 6833

serveur = CreateNetworkServer(#PB_Any,port,#PB_Network_TCP)

time = 0

While 1


  Repeat
  event = NetworkServerEvent()
  client = EventClient()

  If event = #PB_NetworkEvent_Data

      size = 0
      ReceiveNetworkData(client, @size, 4)
      PrintN("size needed = " + Str(size))

     *buffer = AllocateMemory(size)
      ReceiveNetworkData(client, *buffer , size)
      texte.s = PeekS(*buffer)
      PrintN("data = " + texte)

  EndIf

  Until event =  #PB_NetworkEvent_None



Wend