Sub Process_Globals
DimLoggerAsLogCat
DimArgs(1) AsString
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime AsBoolean)
Logger.LogCatStart(Args,"MyLogCatName")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed AsBoolean)
Logger.LogCatStop()
End Sub
Sub MyLogCatName_LogCatData(Buffer() AsByte, Length AsInt)
Dim data AsString
data = BytesToString(Buffer,0,Length,"UTF-8")
End Sub