ThreadMode(threadSectionCritique)
// crée une socket sur le poste serveur
SI SocketCrée ( "Serveur" , 4902 ) = Faux ALORS
	Erreur ( "Erreur de création " + ErreurInfo ( errMessage ))
SINON
	// Gestion des connexions des postes clients dans un thread
	ThreadExécute ( "Thread1" , threadNormal , ProcedureAttente )
FIN

BOUCLE
	SI SocketAttendConnexion ( "Serveur" ) ALORS
		Canal est une chaîne
		Trace("connection etabli")
		// Si la connexion est acceptée, 
		// la gestion de cette connexion est réalisée dans un thread spécifique
		Canal = SocketAccepte ( "Serveur" )
		ThreadExécute (Canal, threadNormal , ProcedureGestion , Canal )
	FIN
FIN 

Trace("entrer gestion")
lu est une chaîne

lu=SocketLit(canal)
Trace( "gestion:" + lu)
RETOUR

#include <sys/socket.h>
#include <sys/types.h> 
#include <netinet/in.h> 
#include <unistd.h> 
#include <stdlib.h> 

#define MAX_SEND 100 

int main() 
{ 
  int sock;
  struct sockaddr_in sin;
  char buffer[512];
  int i=0;

  sock = socket(AF_INET, SOCK_STREAM, 0);
  if(sock==-1){
     perror("erreur creation socket");
     return 0;
  }
  sin.sin_addr.s_addr			= inet_addr("127.0.0.1");
  sin.sin_family				= AF_INET;
  sin.sin_port				= htons(4902);
  if(connect(sock, (struct sockaddr *)&sin, sizeof(sin))==-1) {
     perror("erreur connect");
     return 0;
  }
  strcpy(buffer,"bonjour windev");
  for(i=0;i<20;i++)
    printf("%d\n",send(sock, buffer, sizeof(buffer), 0));

  return 0;
}