8 lines
264 B
Text
8 lines
264 B
Text
' 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
|