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

U3ViIFByb2Nlc3NfR2xvYmFscwogICAgRGltIG51bTEsIG51bTIsIHJlc3VsdCBBcyBEb3VibGUKICAgIERpbSBvcGVyYXRpb24gQXMgU3RyaW5nCkVuZCBTdWIKClN1YiBBY3Rpdml0eV9DcmVhdGUoRmlyc3RUaW1lIEFzIEJvb2xlYW4pCiAgICBBY3Rpdml0eS5Mb2FkTGF5b3V0KCJMYXlvdXQxIikKRW5kIFN1YgoKU3ViIGJ0bjBfQ2xpY2sKICAgIEVkaXRUZXh0MS5UZXh0ID0gRWRpdFRleHQxLlRleHQgJiAiMCIKRW5kIFN1YgoKU3ViIGJ0bjFfQ2xpY2sKICAgIEVkaXRUZXh0MS5UZXh0ID0gRWRpdFRleHQxLlRleHQgJiAiMSIKRW5kIFN1YgoKU3ViIGJ0bjJfQ2xpY2sKICAgIEVkaXRUZXh0MS5UZXh0ID0gRWRpdFRleHQxLlRleHQgJiAiMiIKRW5kIFN1YgoKU3ViIGJ0bjNfQ2xpY2sKICAgIEVkaXRUZXh0MS5UZXh0ID0gRWRpdFRleHQxLlRleHQgJiAiMyIKRW5kIFN1YgoKU3ViIGJ0bjRfQ2xpY2sKICAgIEVkaXRUZXh0MS5UZXh0ID0gRWRpdFRleHQxLlRleHQgJiAiNCIKRW5kIFN1YgoKU3ViIGJ0bjVfQ2xpY2sKICAgIEVkaXRUZXh0MS5UZXh0ID0gRWRpdFRleHQxLlRleHQgJiAiNSIKRW5kIFN1YgoKU3ViIGJ0bjZfQ2xpY2sKICAgIEVkaXRUZXh0MS5UZXh0ID0gRWRpdFRleHQxLlRleHQgJiAiNiIKRW5kIFN1YgoKU3ViIGJ0bjdfQ2xpY2sKICAgIEVkaXRUZXh0MS5UZXh0ID0gRWRpdFRleHQxLlRleHQgJiAiNyIKRW5kIFN1YgoKU3ViIGJ0bjhfQ2xpY2sKICAgIEVkaXRUZXh0MS5UZXh0ID0gRWRpdFRleHQxLlRleHQgJiAiOCIKRW5kIFN1YgoKU3ViIGJ0bjlfQ2xpY2sKICAgIEVkaXRUZXh0MS5UZXh0ID0gRWRpdFRleHQxLlRleHQgJiAiOSIKRW5kIFN1YgoKU3ViIGJ0blBsdXNfQ2xpY2sKICAgIG51bTEgPSBFZGl0VGV4dDEuVGV4dAogICAgb3BlcmF0aW9uID0gIisiCiAgICBFZGl0VGV4dDEuVGV4dCA9ICIiCkVuZCBTdWIKClN1YiBidG5NaW51c19DbGljawogICAgbnVtMSA9IEVkaXRUZXh0MS5UZXh0CiAgICBvcGVyYXRpb24gPSAiLSIKICAgIEVkaXRUZXh0MS5UZXh0ID0gIiIKRW5kIFN1YgoKU3ViIGJ0bk11bHRpcGx5X0NsaWNrCiAgICBudW0xID0gRWRpdFRleHQxLlRleHQKICAgIG9wZXJhdGlvbiA9ICIqIgogICAgRWRpdFRleHQxLlRleHQgPSAiIgpFbmQgU3ViCgpTdWIgYnRuRGl2aWRlX0NsaWNrCiAgICBudW0xID0gRWRpdFRleHQxLlRleHQKICAgIG9wZXJhdGlvbiA9ICIvIgogICAgRWRpdFRleHQxLlRleHQgPSAiIgpFbmQgU3ViCgpTdWIgYnRuRXF1YWxfQ2xpY2sKICAgIG51bTIgPSBFZGl0VGV4dDEuVGV4dAogICAgSWYgb3BlcmF0aW9uID0gIisiIFRoZW4KICAgICAgICByZXN1bHQgPSBudW0xICsgbnVtMgogICAgRWxzZSBJZiBvcGVyYXRpb24gPSAiLSIgVGhlbgogICAgICAgIHJlc3VsdCA9IG51bTEgLSBudW0yCiAgICBFbHNlIElmIG9wZXJhdGlvbiA9ICIqIiBUaGVuCiAgICAgICAgcmVzdWx0ID0gbnVtMSAqIG51bTIKICAgIEVsc2UgSWYgb3BlcmF0aW9uID0gIi8iIFRoZW4KICAgICAgICBJZiBudW0yIDw+IDAgVGhlbgogICAgICAgICAgICByZXN1bHQgPSBudW0xIC8gbnVtMgogICAgICAgIEVsc2UKICAgICAgICAgICAgTXNnQm94KCJFcnJvcjogRGl2aXNpb24gYnkgemVybyEiLCAiRXJyb3IiKQogICAgICAgICAgICBSZXR1cm4KICAgICAgICBFbmQgSWYKICAgIEVuZCBJZgogICAgRWRpdFRleHQxLlRleHQgPSByZXN1bHQKRW5kIFN1YgoKU3ViIGJ0bkNsZWFyX0NsaWNrCiAgICBFZGl0VGV4dDEuVGV4dCA9ICIiCiAgICBudW0xID0gMAogICAgbnVtMiA9IDAKICAgIHJlc3VsdCA9IDAKICAgIG9wZXJhdGlvbiA9ICIiCkVuZCBTdWI=