.支持庫 ePY
.子程序 取漢字區位碼, 文本型
.參數 _字, 文本型, , 只取第壹個字
.局部變量 高字節, 整數型
.局部變量 低字節, 整數型
.局部變量 區碼, 整數型
.局部變量 位碼, 整數型
.如果真 (取字符串長度 (_字) = 0)
返回 (“0”)
.如果真結束
高字節 = 位與 (取代碼 (_字, 1), 255)
低字節 = 位與 (取代碼 (_字, 2), 255)
區碼 = 高字節 - 160
位碼 = 低字節 - 160
返回 (到文本 (區碼 × 100 + 位碼))