DEFINITION MODULE tampon3;

IMPORT Str;

TYPE      t_tampon        =       CLASS

          tampon        :       ARRAY[0..10*1024] OF CHAR;
          position      :       CARDINAL;
          fin           :       CARDINAL;

          PROCEDURE insere_car ( car : CHAR);
          PROCEDURE detruit_car;
          PROCEDURE en_avant ( x : CARDINAL );
          PROCEDURE en_arriere (x : CARDINAL);

                                  END ;  (* CLASS t_tampon *)
END tampon3.