Switch to edit mode.
Name(s): tohex1: {text, ?prefix = "~"} = args
2: out = ""
3: for x in (decode_binary(text, 1))
4: out = tostr(out, prefix, $string_utils:right($math_utils:base_conversion(x, 10, 16), 2, "0"))
5: endfor
6: return out
7: "Last modified by manta (#7165) on Tue Feb 24 11:45:08 1998 EST."
8: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
9: "Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."