{$codepage UTF8} VAR letra01 :char; BEGIN // En UTF-8 #$E282AC representa el € // En BMP es #$20AC. // Asigna #$80 si el S.O. usa Win-1252 // En Linux asigna signo de interrogación, porque es mayor a #$00FF letra01:='€'; Writeln(letra01); // En UTF-8 #$E79FB3 representa el 石 // En BMP es #$77F3 // Asigna signo de interrogacion si el S.O. usa Win-1252 // En Linux asigna signo de interrogación, porque es mayor a #$00FF letra01:='石'; Writeln(letra01); // En UTF-8 #$C3B1 representa la ñ // En BMP es #$00F1 // Asigna #$F1 si el S.O. usa Win-1252 // En Linux asigna #$F1 el segundo byte, porque es menor a #$00FF letra01:='ñ'; Writeln(letra01) END.