Sub Process_Globals
End Sub
Sub Globals
DimEditTextHelloBoxAsEditText
End Sub
Sub Activity_Create(FirstTime AsBoolean)
EditTextHelloBox.Initialize("EditTextHello")
Activity.AddView(EditTextHelloBox,0,20%y,100%x,50dip)
HelloWorld("Hello World")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed AsBoolean)
End Sub
Sub HelloWorld(Hello AsString)
EditTextHelloBox.Text = Hello
End Sub