RosettaCodeData/Task/Terminal-control-Unicode-output/Mathematica/terminal-control-unicode-output.math

If[StringMatchQ[$CharacterEncoding, "UTF*"], Print[FromCharacterCode[30000]], Print["UTF-8 capable terminal required"]]
->田
Initial data commit 2023-07-01 11:58:00 -04:00			`If[StringMatchQ[$CharacterEncoding, "UTF*"], Print[FromCharacterCode[30000]], Print["UTF-8 capable terminal required"]]`
			`->田`