NomSegment : Caractere Virtuel Lecture Public Trace;
Principal /*******/ Variable /******/ S : Nul Ou SegmentMessage; Debut ... Ecran.Ecrire(S.NomSegment); ... Fin Principal