UTF-8 encode and decode: Difference between revisions

Content added Content deleted
(Added BaCon version.)
Line 145: Line 145:


FOR x IN letter$
FOR x IN letter$
PRINT x, TAB$(1), "U+", HEX$(UCS(x)), TAB$(2), COIL$(LEN(x), HEX$(x[_-1] & 255))
PRINT x, TAB$(1), "U+", HEX$(UCS(x)), TAB$(2), COIL$(LEN(x), HEX$(x[_-1] & 255))
NEXT</lang>
NEXT</lang>
{{out}}
{{out}}
Retrieved from "https://rosettacode.org/wiki/UTF-8_encode_and_decode"