SUB KSSJ
YF(1)=31 YF(2)=28 YF(3)=31 YF(4)=30 YF(5)=31 YF(6)=30 YF(7)=31 YF(8)=31 YF(9)=30 YF(10)=31 YF(11)=30 YF(12)=31
z0$=" 一月; 二月; 三月; 四月; 五月; 六月; 七月; 八月; 九月; 十月;十一月;十二月"
Y0=12 r0=Y0*4-1
z0$=left$ (z0$,r0)
p$=" 1日; 2日; 3日; 4日; 5日; 6日; 7日; 8日; 9日;10日;11日;12日;13日;14日;15日;16日;17日;18日;19日;20日;21日;22日;23日;24日;25日;26日;27日;28日;29日;30日;31日"
dialog
title"輸入開始月份對話框" 
control statictext
title "請您選擇開始月份："
position 10,5
control popupmenu
title z0$
position 90,8
into R
control okbutton
title "確定"
position 20,80
control cancelbutton
title "取消"
position 90,80
Y0=YF(R)*4
p$=left$(p$,Y0)
dialog
title"輸入開始日期對話框" 
control statictext
title "請您選擇開始日期："
position 10,30
control statictext
title "您選擇了"+R+"月,為"+YF(R)+"天"
position 10,10
control popupmenu
title p$
position 90,5
width 30  height 40
position 90,25
into R0
control okbutton
title "確定"
position 20,80
control cancelbutton
title "取消"
position 90,80
NOTE "您選擇了"+R+"月"+R0+"日"
END SUB