.版本 2

.程式集 視窗程式集_啟動視窗

.區域性變數 a, 整數型, , , 偶數，每行最多字元數，一個漢字為兩個字元

.區域性變數 字元總長度, 整數型

.區域性變數 n, 整數型

.區域性變數 規範文字, 文字型

.區域性變數 取出內容, 文字型

a ＝ 26 " 代表每行最多13個字，此處自己修改

n ＝ 1

規範文字 ＝ 子文字替換 (子文字替換 (編輯框1.內容, #換行符, “　”, , , 真), “ ”, “”, , , 真)

字元總長度 ＝ 取文字長度 (規範文字)

.計次迴圈首 (字元總長度 ÷ 2, n)

.如果 (2 × n ≤ a)

取出內容 ＝ 取出內容 ＋ 取文字左邊 (規範文字, 2 × n) ＋ #換行符

.否則

" 取出內容 ＝ 取出內容 ＋ 取文字右邊 (取文字左邊 (規範文字, 2 × n), a) ＋ #換行符

.如果結束

n ＝ n ＋ 1

.計次迴圈尾 ()

編輯框2.內容 ＝ 取出內容