.版本 2.程式集 視窗程式集1.程式集變數 行文字, 文字型, , "0".子程式 __啟動視窗_建立完畢行文字 ＝ 分割文字 (#abc, #換行符, ).子程式 _編輯框1_內容被改變.區域性變數 i, 整數型.區域性變數 找到文字, 整數型.區域性變數 找到所在行文字, 文字型, , "0"編輯框2.內容 ＝ “”編輯框3.內容 ＝ “”編輯框4.內容 ＝ “”.計次迴圈首 (取陣列成員數 (行文字), i) 找到文字 ＝ 尋找文字 (行文字 [i], 編輯框1.內容 ＋ “$”, , 假) .如果真 (找到文字 ＝ 1) 找到所在行文字 ＝ 分割文字 (行文字 [i], “$”, ) .如果真 (取陣列成員數 (找到所在行文字) ＝ 4) 編輯框2.內容 ＝ 找到所在行文字 [2] 編輯框3.內容 ＝ 找到所在行文字 [3] 編輯框4.內容 ＝ 找到所在行文字 [4] .如果真結束 .如果真結束.計次迴圈尾 ()

.版本 2

.程式集 視窗程式集1

.如果 (編輯框1.內容 ＝ “123”)

載入 (視窗1, , 真)

.否則

銷燬 ()