Exemple  ( niveau 1 )

         SOIENT

                     Mot UNE CHAINE;  C   UN CAR;   M UNE MACHINE_C ;

            DEBUT

                     CREER_MCAR(M, ['  Jhh  Jsthd Lkql ifd ']);

                     LIRECAR(M, C);

                     TANTQUE C <> '.'

                              TQ (C=' ') ET (C <> '.')

                                        LIRECAR(M, C)

                               FTQ   ;

                              Mot := '';

                              TQ (C <> ' ') ET (C <> '.')

                                    Mot := Mot + C ;

                                       LIRECAR(M, C)

                               FTQ;

                               SI Mot <> ''  ECRIRE(Mot) FSI

                     FINTANTQUE

             FIN