{************************************************
                 Hugo Eti‚vant

         - Le CyberZo‹de Qui Fr‚tille -

       http://cyberzoide.developpez.com
       
       (pour une aide en Turbo Pascal 7.0)
*************************************************}

Program Chaine;

Var a:String;

BEGIN
a:='Eti‚vant';
a[2]:='Z';
a[0]:=Chr(4);
WriteLn(a);
a[0]:=Chr(28);
Write(a,'\tagada');
END.