.版本 2
.程序集 窗口程序集1
.子程序 __啟動窗口_創(chuàng)建完畢
.局部變量 屏幕快照, 字節(jié)集
屏幕快照 ＝ 快照 (, , )
_啟動窗口.可視 ＝ 真
_啟動窗口.位置 ＝ 3
畫板1.移動 (0, 0, 取屏幕寬度 (), 取屏幕高度 ())
畫板1.底圖 ＝ 屏幕快照
置隨機數種子 ()
播放音樂 (#聲音1, 真)
等待 (500)
獻花 ()
.子程序 獻花
.局部變量 a, 整數型
.局部變量 b, 整數型
.局部變量 c, 整數型
.局部變量 d, 整數型
a ＝ 載入圖片 (#白玫瑰)
b ＝ 載入圖片 (#紅玫瑰)
c ＝ 載入圖片 (#粉玫瑰)
d ＝ 載入圖片 (#紅玫瑰1)
.判斷循環(huán)首 (a ≠ 0)
  畫板1.畫圖片 (a, 取隨機數 (0, 取屏幕寬度 () － 110), 取隨機數 (0, 取屏幕高度 () － 110), , , -16777215)
  等待 (100)
  畫板1.畫圖片 (b, 取隨機數 (0, 取屏幕寬度 () － 110), 取隨機數 (0, 取屏幕高度 () － 110), , , -16777215)
  等待 (100)
  畫板1.畫圖片 (c, 取隨機數 (0, 取屏幕寬度 () － 110), 取隨機數 (0, 取屏幕高度 () － 110), , , -16777215)
  等待 (100)
  畫板1.畫圖片 (d, 取隨機數 (0, 取屏幕寬度 () － 110), 取隨機數 (0, 取屏幕高度 () － 110), , , -16777215)
  等待 (100)
.判斷循環(huán)尾 ()
.子程序 _畫板1_鼠標左鍵被按下, 邏輯型
.參數 橫向位置, 整數型
.參數 縱向位置, 整數型
.參數 功能鍵狀態(tài), 整數型
停止播放 ()
結束 ()
.子程序 _時鐘1_周期事件
畫板1.文本顏色 ＝ 取顏色值 (取隨機數 (0, 255), 取隨機數 (0, 255), 取隨機數 (0, 255))
.子程序 等待
.參數 等待時間, 整數型
.局部變量 i, 整數型
i ＝ 取啟動時間 ()
.循環(huán)判斷首 ()
  處理事件 ()
  延時 (10)
.循環(huán)判斷尾 (取啟動時間 () － i ＜ 等待時間)
.子程序 __啟動窗口_按下某鍵, 邏輯型
.參數 鍵代碼, 整數型
.參數 功能鍵狀態(tài), 整數型
.如果真 (鍵代碼 ＝ #F4鍵 且 功能鍵狀態(tài) ＝ #Alt鍵狀態(tài))
  停止播放 ()
  結束 ()
.如果真結束