NomProgramme : Caractere Lecture Public;
Principal /*******/ Debut ... Ecran.Ecrire("NomProgramme="+NomProgramme); /* Ecrit le nom du programme courant. */ ... Fin Principal