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

運行結果：