20 lines
402 B
Text
20 lines
402 B
Text
// Terminal control/Unicode output
|
|
// https://rosettacode.org/wiki/Terminal_control/Unicode_output
|
|
|
|
text @"Menlo" , 18
|
|
|
|
print @"\U000025b3"
|
|
|
|
if error
|
|
print "Unicode is not supported"
|
|
else
|
|
cls
|
|
print
|
|
CFStringRef OutputString
|
|
OutputString = @"Unicode is supported and U+25B3 is "
|
|
OutputString = fn StringbyAppendingString(OutputString,@"\U000025b3")
|
|
print OutputString
|
|
|
|
end if
|
|
|
|
handleevents
|