Sub Process_Globals
    'Unless otherwise stated, all objects are global.
End Sub

Sub Globals
    Private btnPay As Button
    Private lblPrice As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Main")
    'نمایش پیام خوش‌آمد
    ToastMessageShow("به فروشگاه خوش آمدید", False)
End Sub

Sub btnPay_Click
    Dim total As Int
    total = 690000
    For i = 1 To 3
        total = total - (total * 0.1)
    Next
    Log("مبلغ نهایی: " & total)
End Sub