.版本 2
.程序集 窗口程序集1
.程序集變量 l, 整數(shù)型
.程序集變量 r, 整數(shù)型
.程序集變量 ml, 整數(shù)型
.程序集變量 mr, 整數(shù)型
.子程序 _取位置標(biāo)簽_鼠標(biāo)左鍵被按下, 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
l ＝ 取位置標(biāo)簽.左邊
r ＝ 取位置標(biāo)簽.頂邊
ml ＝ 取鼠標(biāo)水平位置 ()
mr ＝ 取鼠標(biāo)垂直位置 ()
時(shí)鐘1.時(shí)鐘周期 ＝ 10
.子程序 _時(shí)鐘1_周期事件
.判斷開始 (取鼠標(biāo)水平位置 () ＜ _啟動(dòng)窗口.左邊)
  取位置標(biāo)簽.左邊 ＝ 0
.判斷 (取鼠標(biāo)垂直位置 () ＜ _啟動(dòng)窗口.頂邊)
  取位置標(biāo)簽.頂邊 ＝ 0
.判斷 (取鼠標(biāo)水平位置 () ＞ _啟動(dòng)窗口.寬度 ＋ _啟動(dòng)窗口.左邊)
  取位置標(biāo)簽.左邊 ＝ _啟動(dòng)窗口.寬度 － 20
.判斷 (取鼠標(biāo)垂直位置 () ＞ _啟動(dòng)窗口.高度 ＋ _啟動(dòng)窗口.頂邊)
  取位置標(biāo)簽.頂邊 ＝ _啟動(dòng)窗口.高度 － 50
.默認(rèn)
  取位置標(biāo)簽.左邊 ＝ l － ml ＋ 取鼠標(biāo)水平位置 ()
  取位置標(biāo)簽.頂邊 ＝ r － mr ＋ 取鼠標(biāo)垂直位置 ()
  返回 ()
.判斷結(jié)束
時(shí)鐘1.時(shí)鐘周期 ＝ 0
.子程序 _取位置標(biāo)簽_鼠標(biāo)左鍵被放開, 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
時(shí)鐘1.時(shí)鐘周期 ＝ 0
.子程序 __啟動(dòng)窗口_鼠標(biāo)位置被移動(dòng), 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
時(shí)鐘2.時(shí)鐘周期 ＝ 10
標(biāo)簽4.左邊 ＝ 取鼠標(biāo)水平位置 () － _啟動(dòng)窗口.左邊
標(biāo)簽5.頂邊 ＝ 取鼠標(biāo)垂直位置 () － _啟動(dòng)窗口.頂邊
.子程序 _時(shí)鐘2_周期事件
左邊標(biāo)簽.標(biāo)題 ＝ 到文本 (取鼠標(biāo)水平位置 () － _啟動(dòng)窗口.左邊)
頂邊標(biāo)簽.標(biāo)題 ＝ 到文本 (取鼠標(biāo)垂直位置 () － _啟動(dòng)窗口.頂邊)
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
標(biāo)簽4.高度 ＝ _啟動(dòng)窗口.高度
標(biāo)簽5.寬度 ＝ _啟動(dòng)窗口.寬度
.子程序 _取位置標(biāo)簽_鼠標(biāo)位置被移動(dòng), 邏輯型
.參數(shù) 橫向位置, 整數(shù)型
.參數(shù) 縱向位置, 整數(shù)型
.參數(shù) 功能鍵狀態(tài), 整數(shù)型
標(biāo)簽4.左邊 ＝ 取鼠標(biāo)水平位置 () － _啟動(dòng)窗口.左邊
標(biāo)簽5.頂邊 ＝ 取鼠標(biāo)垂直位置 () － _啟動(dòng)窗口.頂邊