Fonction Optimiser(Invariant) EnumererVariables(Numero : Entier, TypeVariable : Nul Ou Type=? Sortie, PeutEtreNul : Booleen=? Sortie, Aide : Nul Ou Caractere=? Sortie, NomEnumere : Nul Ou Caractere=? Sortie) Retourner Nul Ou Caractere;
En sortie, la variable Aide recueille un libellé donnant la sémantique de la variable et le résultat est le nom de la variable.
Variable
/******/
	A : Booleen;
	B : Entier;
	C : Reel;
	D : Caractere;
Variable
/******/
	M : Nul Ou Module;
	Numero : Entier;
	N : Nul Ou Caractere;
Principal
/*******/
M=Module("M1");
N=M.EnumererVariables(++Numero, ?, ?, ?, ?);
/* Enumère les variables de 'M1'. */
TantQue N!=Nul Faire
	Ecran.Ecrire(N);
	N=M.EnumererVariables(++Numero, ?, ?, ?, ?);
Fin TantQue
Fin Principal
| - | - | - | - | - | - | - | - | - |