/* write your code below */
Sub Process_Globals
    Dim num1, num2, result As Double
    Dim operation As String
End Sub
 
Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout1")
End Sub
 
Sub btn0_Click
    EditText1.Text = EditText1.Text & "0"
End Sub
 
Sub btn1_Click
    EditText1.Text = EditText1.Text & "1"
End Sub
 
Sub btn2_Click
    EditText1.Text = EditText1.Text & "2"
End Sub
 
Sub btn3_Click
    EditText1.Text = EditText1.Text & "3"
End Sub
 
Sub btn4_Click
    EditText1.Text = EditText1.Text & "4"
End Sub
 
Sub btn5_Click
    EditText1.Text = EditText1.Text & "5"
End Sub
 
Sub btn6_Click
    EditText1.Text = EditText1.Text & "6"
End Sub
 
Sub btn7_Click
    EditText1.Text = EditText1.Text & "7"
End Sub
 
Sub btn8_Click
    EditText1.Text = EditText1.Text & "8"
End Sub
 
Sub btn9_Click
    EditText1.Text = EditText1.Text & "9"
End Sub
 
Sub btnPlus_Click
    num1 = EditText1.Text
    operation = "+"
    EditText1.Text = ""
End Sub
 
Sub btnMinus_Click
    num1 = EditText1.Text
    operation = "-"
    EditText1.Text = ""
End Sub
 
Sub btnMultiply_Click
    num1 = EditText1.Text
    operation = "*"
    EditText1.Text = ""
End Sub
 
Sub btnDivide_Click
    num1 = EditText1.Text
    operation = "/"
    EditText1.Text = ""
End Sub
 
Sub btnEqual_Click
    num2 = EditText1.Text
    If operation = "+" Then
        result = num1 + num2
    Else If operation = "-" Then
        result = num1 - num2
    Else If operation = "*" Then
        result = num1 * num2
    Else If operation = "/" Then
        If num2 <> 0 Then
            result = num1 / num2
        Else
            MsgBox("Error: Division by zero!", "Error")
            Return
        End If
    End If
    EditText1.Text = result
End Sub
 
Sub btnClear_Click
    EditText1.Text = ""
    num1 = 0
    num2 = 0
    result = 0
    operation = ""
End Sub

Lyogd3JpdGUgeW91ciBjb2RlIGJlbG93ICovClN1YiBQcm9jZXNzX0dsb2JhbHMKICAgIERpbSBudW0xLCBudW0yLCByZXN1bHQgQXMgRG91YmxlCiAgICBEaW0gb3BlcmF0aW9uIEFzIFN0cmluZwpFbmQgU3ViCgpTdWIgQWN0aXZpdHlfQ3JlYXRlKEZpcnN0VGltZSBBcyBCb29sZWFuKQogICAgQWN0aXZpdHkuTG9hZExheW91dCgiTGF5b3V0MSIpCkVuZCBTdWIKClN1YiBidG4wX0NsaWNrCiAgICBFZGl0VGV4dDEuVGV4dCA9IEVkaXRUZXh0MS5UZXh0ICYgIjAiCkVuZCBTdWIKClN1YiBidG4xX0NsaWNrCiAgICBFZGl0VGV4dDEuVGV4dCA9IEVkaXRUZXh0MS5UZXh0ICYgIjEiCkVuZCBTdWIKClN1YiBidG4yX0NsaWNrCiAgICBFZGl0VGV4dDEuVGV4dCA9IEVkaXRUZXh0MS5UZXh0ICYgIjIiCkVuZCBTdWIKClN1YiBidG4zX0NsaWNrCiAgICBFZGl0VGV4dDEuVGV4dCA9IEVkaXRUZXh0MS5UZXh0ICYgIjMiCkVuZCBTdWIKClN1YiBidG40X0NsaWNrCiAgICBFZGl0VGV4dDEuVGV4dCA9IEVkaXRUZXh0MS5UZXh0ICYgIjQiCkVuZCBTdWIKClN1YiBidG41X0NsaWNrCiAgICBFZGl0VGV4dDEuVGV4dCA9IEVkaXRUZXh0MS5UZXh0ICYgIjUiCkVuZCBTdWIKClN1YiBidG42X0NsaWNrCiAgICBFZGl0VGV4dDEuVGV4dCA9IEVkaXRUZXh0MS5UZXh0ICYgIjYiCkVuZCBTdWIKClN1YiBidG43X0NsaWNrCiAgICBFZGl0VGV4dDEuVGV4dCA9IEVkaXRUZXh0MS5UZXh0ICYgIjciCkVuZCBTdWIKClN1YiBidG44X0NsaWNrCiAgICBFZGl0VGV4dDEuVGV4dCA9IEVkaXRUZXh0MS5UZXh0ICYgIjgiCkVuZCBTdWIKClN1YiBidG45X0NsaWNrCiAgICBFZGl0VGV4dDEuVGV4dCA9IEVkaXRUZXh0MS5UZXh0ICYgIjkiCkVuZCBTdWIKClN1YiBidG5QbHVzX0NsaWNrCiAgICBudW0xID0gRWRpdFRleHQxLlRleHQKICAgIG9wZXJhdGlvbiA9ICIrIgogICAgRWRpdFRleHQxLlRleHQgPSAiIgpFbmQgU3ViCgpTdWIgYnRuTWludXNfQ2xpY2sKICAgIG51bTEgPSBFZGl0VGV4dDEuVGV4dAogICAgb3BlcmF0aW9uID0gIi0iCiAgICBFZGl0VGV4dDEuVGV4dCA9ICIiCkVuZCBTdWIKClN1YiBidG5NdWx0aXBseV9DbGljawogICAgbnVtMSA9IEVkaXRUZXh0MS5UZXh0CiAgICBvcGVyYXRpb24gPSAiKiIKICAgIEVkaXRUZXh0MS5UZXh0ID0gIiIKRW5kIFN1YgoKU3ViIGJ0bkRpdmlkZV9DbGljawogICAgbnVtMSA9IEVkaXRUZXh0MS5UZXh0CiAgICBvcGVyYXRpb24gPSAiLyIKICAgIEVkaXRUZXh0MS5UZXh0ID0gIiIKRW5kIFN1YgoKU3ViIGJ0bkVxdWFsX0NsaWNrCiAgICBudW0yID0gRWRpdFRleHQxLlRleHQKICAgIElmIG9wZXJhdGlvbiA9ICIrIiBUaGVuCiAgICAgICAgcmVzdWx0ID0gbnVtMSArIG51bTIKICAgIEVsc2UgSWYgb3BlcmF0aW9uID0gIi0iIFRoZW4KICAgICAgICByZXN1bHQgPSBudW0xIC0gbnVtMgogICAgRWxzZSBJZiBvcGVyYXRpb24gPSAiKiIgVGhlbgogICAgICAgIHJlc3VsdCA9IG51bTEgKiBudW0yCiAgICBFbHNlIElmIG9wZXJhdGlvbiA9ICIvIiBUaGVuCiAgICAgICAgSWYgbnVtMiA8PiAwIFRoZW4KICAgICAgICAgICAgcmVzdWx0ID0gbnVtMSAvIG51bTIKICAgICAgICBFbHNlCiAgICAgICAgICAgIE1zZ0JveCgiRXJyb3I6IERpdmlzaW9uIGJ5IHplcm8hIiwgIkVycm9yIikKICAgICAgICAgICAgUmV0dXJuCiAgICAgICAgRW5kIElmCiAgICBFbmQgSWYKICAgIEVkaXRUZXh0MS5UZXh0ID0gcmVzdWx0CkVuZCBTdWIKClN1YiBidG5DbGVhcl9DbGljawogICAgRWRpdFRleHQxLlRleHQgPSAiIgogICAgbnVtMSA9IDAKICAgIG51bTIgPSAwCiAgICByZXN1bHQgPSAwCiAgICBvcGVyYXRpb24gPSAiIgpFbmQgU3Vi