Convertir caracteres chinos a Unicode decimal

. Soporta biblioteca ePY

Subrutina para obtener código de área de caracteres chinos, tipo de texto

Parámetros _palabra, texto, solo los primeros caracteres.

Byte alto de variable local, entero

Byte bajo de variable local, entero

. Código de área de variable local, entero

. Código de bits de variable local, entero

. Si es verdadero (tome la longitud de la cadena (_word) = 0)

Retorno ("0")

Si es verdadero, finalice

Sección de palabras altas = Bit a bit (. tomar código (_word, 1), 255)

Byte bajo = Bit a bit (tomar código (_word, 2), 255)

Área = Byte alto - 160

Código de bits = Byte bajo - 160

Devuelve (a texto (código de área × 100 + código de bits))