20 lines
689 B
Plaintext
20 lines
689 B
Plaintext
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
|