ModuleOrigine : Nul Ou Module Lecture Public;
/****************************************************************/
Procedure P()
/* Objet : Procédure quelconque. */
/****************************************************************/
Debut
...
Fin Procedure
Variable
/******/
A : Nul Ou Procedure();
Principal
/*******/
Debut
A=P;
Ecran.Ecrire(A.ModuleOrigine.NomModule);
Fin Principal
- | - | - | - | - | - | - | - | - |