InitNetwork()

Structure ClientParam
  ID.i
  ; Далее должны быть другие параметры клиента.
EndStructure

NewList ClientList.ClientParam()

Procedure Client(List Clients.ClientParam())
  ; Здесь необходимо "просмотреть" весь список клиентов и отправить данные некоторым, если это нужно.
EndProcedure

If CreateNetworkServer(0, 1000)

  *Buffer = AllocateMemory(1000)

  Repeat
    
    SEvent = NetworkServerEvent()
    
    If SEvent
      
      ClientID = EventClient()
      
      Select SEvent
          
        Case #PB_NetworkEvent_Connect
          If AddElement(ClientList()) ; Подключен новый клиент - запоминаем его ID.
            ClientList()\ID = ClientID
          EndIf
          
        Case #PB_NetworkEvent_Data ; Клиент прислал данные
          
          InBytes = ReceiveNetworkData(ClientID, *Buffer, 1000)
          
          If InBytes>0
            
            ForEach ClientList()
              If ClientList()\ID = ClientID ; Нашли клтента в списке
                
                ; Работа с клиентом.
                
                Break
              EndIf
            Next
            
          EndIf
          
        Case #PB_NetworkEvent_Disconnect
          
          ForEach ClientList() ; Клиент отключится - удаем данные о нем.
            If ClientList()\ID = ClientID
              DeleteElement(ClientList())
              Break
            EndIf
          Next
          
      EndSelect
      
    Else ; Нет событий сервера.
      Delay(20)
    EndIf
    
    Client(ClientList())
    
  ForEver
EndIf

          Select SEvent
            ;Case #PB_NetworkEvent_Connect
            Case #PB_NetworkEvent_Disconnect
              Peer_ServerDisconnect(@Local_TorrentList, ClientID)
            Case #PB_NetworkEvent_Data
              FillMemory(*Buffer, 65536, 0)
              
              Size = ReceiveNetworkData(ClientID, *Buffer, 65536)
              If Size>0 And Size<=65536
                Peer_ServerCore(ClientID, *Buffer, Size, @Local_TorrentList)
              EndIf
              
          EndSelect