{$codepage UTF8} VAR a:char; BEGIN a:='╦'; //#$E295A6 en UTF8, #$2566 en BMP Writeln(a); //Asignará un signo de interrogación en Linux y Windows //si la codificación de caracteres del S.O. no es IBM 437 a:=#203; //Asignará el código sin tomar en cuenta al administrador de carateres Writeln(a) //Mostrará ╦ siempre y cuando el interprete de comandos este usando //la codificación de caracteres IBM 437 END.