#Region Project Attributes
#ApplicationLabel: Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: landscape
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: True
#IncludeTitle: False
#End Region
Sub Process_Globals
End Sub
Sub Globals
Dim PlayThread As Thread
Private lblStory As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
lblStory.Text = "0"
lblStory.Invalidate
PlayThread.Initialise("PlayWav")
PlayThread.Start(Null, "PlayWav", Null)
End Sub
Sub PlayWav()
Dim i As Int
For i = 1 To 1000
lblStory.Text = i
'lblStory.Invalidate
'PlayThread.sleep(10)
Next
Log("Made it")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub