14 lines
451 B
Text
14 lines
451 B
Text
$ include "seed7_05.s7i";
|
|
include "environment.s7i";
|
|
include "console.s7i";
|
|
|
|
const proc: main is func
|
|
begin
|
|
if pos(lower(getenv("LANG")), "utf") <> 0 or
|
|
pos(lower(getenv("LC_ALL")), "utf") <> 0 or
|
|
pos(lower(getenv("LC_CTYPE")), "utf") <> 0 then
|
|
writeln(STD_CONSOLE, "Unicode is supported on this terminal and U+25B3 is: △");
|
|
else
|
|
writeln("Unicode is not supported on this terminal.");
|
|
end if;
|
|
end func;
|