Anonymous user
Terminal control/Unicode output: Difference between revisions
Add BaCon
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: Fix comment: Perl 6 --> Raku) |
(Add BaCon) |
||
Line 91:
exit 252 # Incompatible hardware
}</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}}==
| |||