Fonction Optimiser(Invariant) EnumererEnumeres(Numero : Entier, Aide : Nul Ou Caractere=? Sortie) Retourner Nul Ou Caractere;
En sortie, la variable Aide recueille un libellé donnant la sémantique de l'énuméré et le résultat est le nom de l'énuméré.
Enumere
/*****/
	A Dans (A1, A2);
	B Dans (B1, B2, B3);
Variable
/******/
	M : Nul Ou Module;
	Numero : Entier;
	N : Nul Ou Caractere;
Principal
/*******/
M=Module("M1");
N=M.EnumererEnumeres(++Numero, ?);
/* Enumère les énumérés de 'M1'. */
TantQue N!=Nul Faire
	Ecran.Ecrire(N);
	N=M.EnumererEnumeres(++Numero, ?);
Fin TantQue
Fin Principal
| - | - | - | - | - | - | - | - | - |