UTF-8 encode and decode: Difference between revisions

=={{header|M2000 Interpreter}}==

<lang M2000 Interpreter>

Module EncodeDecodeUTF8 {

a$=string$("Hello" as UTF8enc)

Print Len(A$)=2.5 ' 2.5 words=5 bytes

b$=string$(a$ as UTF8dec)

Print b$

Print Len(b$)=5 ' 5 words = 10 bytes

Print Len(string$("A" as UTF8enc))=.5 ' 1 byte

Print Len(string$("ö" as UTF8enc))=1 ' 2 bytes

Print Len(string$("Ж" as UTF8enc))=1 ' 2 bytes

Print Len(string$("€" as UTF8enc))=1.5 ' 3 bytes

Print Len(string$("𝄞" as UTF8enc))=2 '4 bytes

a$=string$("𝄞" as UTF8enc)

Buffer Bytes as Byte*4

Return Bytes, 0:=a$

\\ F0 9D 84 9E

Hex Eval(bytes, 0), Eval(bytes, 1), Eval(bytes, 2), Eval(bytes, 3)

}

EncodeDecodeUTF8

</lang>