IMPLEMENTATION MODULE tampon3;

IMPORT Str;

TYPE      t_tampon        =       CLASS

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

          PROCEDURE insere_car ( car : CHAR);
           BEGIN
            Str.Insert(tampon,car,position);
           END insere_car;

          PROCEDURE detruit_car;
           BEGIN
            Str.Delete(tampon,position,1);
           END detruit_car;

          PROCEDURE en_avant ( x : CARDINAL );
           BEGIN
            IF position < fin THEN INC(position)
            END;
           END en_avant;

          PROCEDURE en_arriere (x : CARDINAL);
           BEGIN
            IF position > 0 THEN DEC(position)
            END;
           END en_arriere;

                                  END ;  (* CLASS t_tampon *)
END tampon3.