.版本 2.程序集 窗口程序集1.程序集變量 快捷信息, 文本型.程序集變量 分割信息, 文本型, , "0".子程序 _輸入編輯框_內容被改變.局部變量 M, 整數型.如果真 (輸入編輯框.內容 ＝ “”)  內容列表框.可視 ＝ 假  返回 ().如果真結束內容列表框.清空 ().計次循環首 (取數組成員數 (分割信息), M)  .如果 (尋找文本 (分割信息 [M], 輸入編輯框.內容, , 假) ≠ -1)    內容列表框.插入項目 (0, 分割信息 [M], )    內容列表框.可視 ＝ 真  .否則  .如果結束.計次循環尾 ().如果 (內容列表框.取項目數 () ＝ 0)  內容列表框.可視 ＝ 假.否則  .如果真 (內容列表框.取項目數 () ≤ 10)    內容列表框.高度 ＝ 14 × 內容列表框.取項目數 ()  .如果真結束  .如果真 (內容列表框.取項目數 () ＞ 10)    內容列表框.高度 ＝ 140  .如果真結束.如果結束.子程序 __啟動窗口_創建完畢快捷信息 ＝ 到文本 (讀入文件 (取運行目錄 () ＋ “/信息源.txt”))分割信息 ＝ 分割文本 (快捷信息, “*”, ).子程序 _錄入按鈕_被單擊寫到文件 (取運行目錄 () ＋ “/信息源.txt”, 到字節集 (輸入編輯框.內容 ＋ “*” ＋ 快捷信息))__啟動窗口_創建完畢 ().子程序 _內容列表框_列表項被選擇輸入編輯框.內容 ＝ 內容列表框.取項目文本 (內容列表框.現行選中項)內容列表框.清空 ()內容列表框.可視 ＝ 假.子程序 _輸入編輯框_按下某鍵, 邏輯型.參數 鍵代碼, 整數型.參數 功能鍵狀態, 整數型.如果真 (鍵代碼 ＝ 40)  內容列表框.現行選中項 ＝ 內容列表框.現行選中項 ＋ 1.如果真結束.如果真 (鍵代碼 ＝ 38)  內容列表框.現行選中項 ＝ 內容列表框.現行選中項 － 1.如果真結束.如果真 (鍵代碼 ＝ 13)  _內容列表框_列表項被選擇 ().如果真結束