GOTOMODULE chaussettes

Chaussure Serveur
Serveur@Cordonnier(*(1255))
entier NombreClients
NombreClients=*(0)

%Serveur()
GOTOFIN

§Serveur:ASV
	Chaussette Conn
	encasderreurGOTO %%Fin

	§Debut
		Serveur@Chausser(Conn)
		%Client(&Conn)
	GOTOPASMALIN %%Debut
	
	§Fin
APLUS

§Client:ASV(Conn)
	Chaussette zap Conn
	entier noc
	
	noc=&NombreClients
	NombreClients=+*(1)
	
	GOTOUNIVERSPARALLELEouizzz %%Tache
	REGOTO
	
	§Tache
	encasderreurGOTO %%Fin
	
	%Zut()
	
	GOTOPRINTDUTEXTE(«Nouveau client...;n»)
	§Debut
		Conn@LireLigne(Reponse)
		GOTOPRINTDUTEXTE(&Reponse « : » &noc «Reçu du client »)
		Conn@Remplir(«Ouais, c'est ça.;n»)
	GOTOPASMALIN %%Debut
	
	§Fin
	GOTOPRINTDUTEXTE(« déconnecté...;n» &noc «Client »)
	GOTOFINTACHE
APLUS


§Zut:ASV

APLUS