.版本 2
.程序集 窗口程序集1
.子程序 文本到字節集, 文本型, 公開
.參數 要轉換的文本, 文本型
.局部變量 字節集變量, 字節集
.局部變量 循環次數, 整數型
.局部變量 字節型變量, 字節集
.局部變量 要輸出的文本, 文本型
.局部變量 文本數據, 文本型
文本數據 ＝ 要轉換的文本
字節集變量 ＝ 到字節集 (文本數據)
.計次循環首 (取字節集長度 (字節集變量), 循環次數)
  字節型變量 ＝ 取字節集中間 (字節集變量, 循環次數, 1)
  .如果 (循環次數 ＜ 取字節集長度 (字節集變量))
    要輸出的文本 ＝ 要輸出的文本 ＋ 到文本 (取字節集數據 (字節型變量, #字節型, )) ＋ “,”
  .否則
    要輸出的文本 ＝ 要輸出的文本 ＋ 到文本 (取字節集數據 (字節型變量, #字節型, ))
  .如果結束
.計次循環尾 ()
返回 (要輸出的文本)
.子程序 字節集到文本, 文本型, 公開, 數據必須以“,”分割，且無｛｝
.參數 要轉換的文本型數據, 文本型, , 數據必須以“,”分割，且無｛｝
.局部變量 循環次數, 整數型
.局部變量 整數數組, 整數型, , "0"
.局部變量 文本數組, 文本型, , "0"
.局部變量 文本數據, 文本型
文本數據 ＝ 要轉換的文本型數據
文本數組 ＝ 分割文本 (文本數據, “,”, )
.計次循環首 (取數組成員數 (文本數組), 循環次數)
  加入成員 (整數數組, 到整數 (文本數組 [循環次數]))
.計次循環尾 ()
返回 (到文本 (子字節集替換 (到字節集 (整數數組), { 0 }, { }, , )))
.子程序 字節集型文本到字節集, 字節集, 公開, 數據必須以“,”分割，且無｛｝
.參數 要轉換的文本型數據, 文本型, , 數據必須以“,”分割，且無｛｝
.局部變量 循環次數, 整數型
.局部變量 整數數組, 整數型, , "0"
.局部變量 文本數組, 文本型, , "0"
.局部變量 文本數據, 文本型
文本數據 ＝ 要轉換的文本型數據
文本數組 ＝ 分割文本 (文本數據, “,”, )
.計次循環首 (取數組成員數 (文本數組), 循環次數)
  加入成員 (整數數組, 到整數 (文本數組 [循環次數]))
.計次循環尾 ()
返回 (子字節集替換 (到字節集 (整數數組), { 0 }, { }, , ))
.子程序 _文本到字節集按鈕_被單擊
字節集編輯框.內容 ＝ 文本到字節集 (文本編輯框.內容)
.子程序 _字節集轉換文本按鈕_被單擊
文本編輯框.內容 ＝ 字節集到文本 (字節集編輯框.內容)