Terminal control/Unicode output: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: Fix comment: Perl 6 --> Raku) |
(Add BaCon) |
||
Line 91: | Line 91: | ||
exit 252 # Incompatible hardware |
exit 252 # Incompatible hardware |
||
}</lang> |
}</lang> |
||
=={{header|BaCon}}== |
|||
<code>LANG</code> environment test borrowed from C solution. |
|||
<lang freebasic>' Determine if the terminal supports Unicode |
|||
' if so display delta, if not display error message |
|||
LET lc$ = GETENVIRON$("LANG") |
|||
IF INSTR(LCASE$(lc$), "utf8") != 0 THEN |
|||
PRINT UTF8$(0x25B3) |
|||
ELSE |
|||
EPRINT "Sorry, terminal is not testing as unicode ready" |
|||
END IF</lang> |
|||
=={{header|BBC BASIC}}== |
=={{header|BBC BASIC}}== |