MODULE EssaiVT521; From STextIO IMPORT WriteChar, WriteStr; VAR Chaine : String; BEGIN Chaine := CHR(27) + "E"; WriteString(Chaine); END EssaiVT521.