NbSegments : Entier Virtuel Lecture Public;
Principal /*******/ Variable /******/ E : Nul Ou MessageEdifact; Debut ... Ecran.Ecrire(E.NbSegments); ... Fin Principal