@verb #8084:"convert_ucs_to_utf" this none this rxdo #60
@program #8084:"convert_ucs_to_utf" this none this
{ucs} = args
ucs = $math_utils:base_conversion(ucs, 16, 2)
player:tell("Binary is ", ucs)
if (length(ucs) < 8)
  player:tell("1 byte UTF-8, ", $math_utils:base_conversion(ucs, 2, 16))
elseif (length(ucs) < 12)
  ucs = ("000000000" + ucs)[$ - 10..$]
  player:tell("2 byte UTF-8, ", $math_utils:base_conversion("110" + ucs[1..5], 2, 16), " ", $math_utils:base_conversion("10" + ucs[6..$], 2, 16))
endif
"Last modified by Lao-Tzu (#8084) on Mon Jun  3 13:48:52 2002 MDT."
.