/* write your code below */
 

Lyogd3JpdGUgeW91ciBjb2RlIGJlbG93ICovCg==

U3ViIFByb2Nlc3NfR2xvYmFscwogICAgRGltIG51bTEsIG51bTIsIHJlc3VsdCBBcyBEb3VibGUKICAgIERpbSBvcGVyYXRpb24gQXMgU3RyaW5nCkVuZCBTdWIKClN1YiBBY3Rpdml0eV9DcmVhdGUoRmlyc3RUaW1lIEFzIEJvb2xlYW4pCiAgICBBY3Rpdml0eS5Mb2FkTGF5b3V0KCZxdW90O0xheW91dDEmcXVvdDspCkVuZCBTdWIKClN1YiBidG4wX0NsaWNrCiAgICBFZGl0VGV4dDEuVGV4dCA9IEVkaXRUZXh0MS5UZXh0ICZhbXA7ICZxdW90OzAmcXVvdDsKRW5kIFN1YgoKU3ViIGJ0bjFfQ2xpY2sKICAgIEVkaXRUZXh0MS5UZXh0ID0gRWRpdFRleHQxLlRleHQgJmFtcDsgJnF1b3Q7MSZxdW90OwpFbmQgU3ViCgpTdWIgYnRuMl9DbGljawogICAgRWRpdFRleHQxLlRleHQgPSBFZGl0VGV4dDEuVGV4dCAmYW1wOyAmcXVvdDsyJnF1b3Q7CkVuZCBTdWIKClN1YiBidG4zX0NsaWNrCiAgICBFZGl0VGV4dDEuVGV4dCA9IEVkaXRUZXh0MS5UZXh0ICZhbXA7ICZxdW90OzMmcXVvdDsKRW5kIFN1YgoKU3ViIGJ0bjRfQ2xpY2sKICAgIEVkaXRUZXh0MS5UZXh0ID0gRWRpdFRleHQxLlRleHQgJmFtcDsgJnF1b3Q7NCZxdW90OwpFbmQgU3ViCgpTdWIgYnRuNV9DbGljawogICAgRWRpdFRleHQxLlRleHQgPSBFZGl0VGV4dDEuVGV4dCAmYW1wOyAmcXVvdDs1JnF1b3Q7CkVuZCBTdWIKClN1YiBidG42X0NsaWNrCiAgICBFZGl0VGV4dDEuVGV4dCA9IEVkaXRUZXh0MS5UZXh0ICZhbXA7ICZxdW90OzYmcXVvdDsKRW5kIFN1YgoKU3ViIGJ0bjdfQ2xpY2sKICAgIEVkaXRUZXh0MS5UZXh0ID0gRWRpdFRleHQxLlRleHQgJmFtcDsgJnF1b3Q7NyZxdW90OwpFbmQgU3ViCgpTdWIgYnRuOF9DbGljawogICAgRWRpdFRleHQxLlRleHQgPSBFZGl0VGV4dDEuVGV4dCAmYW1wOyAmcXVvdDs4JnF1b3Q7CkVuZCBTdWIKClN1YiBidG45X0NsaWNrCiAgICBFZGl0VGV4dDEuVGV4dCA9IEVkaXRUZXh0MS5UZXh0ICZhbXA7ICZxdW90OzkmcXVvdDsKRW5kIFN1YgoKU3ViIGJ0blBsdXNfQ2xpY2sKICAgIG51bTEgPSBFZGl0VGV4dDEuVGV4dAogICAgb3BlcmF0aW9uID0gJnF1b3Q7KyZxdW90OwogICAgRWRpdFRleHQxLlRleHQgPSAmcXVvdDsmcXVvdDsKRW5kIFN1YgoKU3ViIGJ0bk1pbnVzX0NsaWNrCiAgICBudW0xID0gRWRpdFRleHQxLlRleHQKICAgIG9wZXJhdGlvbiA9ICZxdW90Oy0mcXVvdDsKICAgIEVkaXRUZXh0MS5UZXh0ID0gJnF1b3Q7JnF1b3Q7CkVuZCBTdWIKClN1YiBidG5NdWx0aXBseV9DbGljawogICAgbnVtMSA9IEVkaXRUZXh0MS5UZXh0CiAgICBvcGVyYXRpb24gPSAmcXVvdDsqJnF1b3Q7CiAgICBFZGl0VGV4dDEuVGV4dCA9ICZxdW90OyZxdW90OwpFbmQgU3ViCgpTdWIgYnRuRGl2aWRlX0NsaWNrCiAgICBudW0xID0gRWRpdFRleHQxLlRleHQKICAgIG9wZXJhdGlvbiA9ICZxdW90Oy8mcXVvdDsKICAgIEVkaXRUZXh0MS5UZXh0ID0gJnF1b3Q7JnF1b3Q7CkVuZCBTdWIKClN1YiBidG5FcXVhbF9DbGljawogICAgbnVtMiA9IEVkaXRUZXh0MS5UZXh0CiAgICBJZiBvcGVyYXRpb24gPSAmcXVvdDsrJnF1b3Q7IFRoZW4KICAgICAgICByZXN1bHQgPSBudW0xICsgbnVtMgogICAgRWxzZSBJZiBvcGVyYXRpb24gPSAmcXVvdDstJnF1b3Q7IFRoZW4KICAgICAgICByZXN1bHQgPSBudW0xIC0gbnVtMgogICAgRWxzZSBJZiBvcGVyYXRpb24gPSAmcXVvdDsqJnF1b3Q7IFRoZW4KICAgICAgICByZXN1bHQgPSBudW0xICogbnVtMgogICAgRWxzZSBJZiBvcGVyYXRpb24gPSAmcXVvdDsvJnF1b3Q7IFRoZW4KICAgICAgICBJZiBudW0yICZsdDsmZ3Q7IDAgVGhlbgogICAgICAgICAgICByZXN1bHQgPSBudW0xIC8gbnVtMgogICAgICAgIEVsc2UKICAgICAgICAgICAgTXNnQm94KCZxdW90O0Vycm9yOiBEaXZpc2lvbiBieSB6ZXJvISZxdW90OywgJnF1b3Q7RXJyb3ImcXVvdDspCiAgICAgICAgICAgIFJldHVybgogICAgICAgIEVuZCBJZgogICAgRW5kIElmCiAgICBFZGl0VGV4dDEuVGV4dCA9IHJlc3VsdApFbmQgU3ViCgpTdWIgYnRuQ2xlYXJfQ2xpY2sKICAgIEVkaXRUZXh0MS5UZXh0ID0gJnF1b3Q7JnF1b3Q7CiAgICBudW0xID0gMAogICAgbnVtMiA9IDAKICAgIHJlc3VsdCA9IDAKICAgIG9wZXJhdGlvbiA9ICZxdW90OyZxdW90OwpFbmQgU3Vi

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