'app start
If File.Exists(File.DirDocuments, "1.txt") = False Then
File.WriteString(File.DirDocuments, "1.txt", 0)
End If
Sub Application_Active
Page1.Title = "Value: " & File.ReadString(File.DirDocuments, "1.txt")
End Sub
Private Sub Application_FetchDownload
Log("FetchDownload")
File.WriteString(File.DirDocuments, "1.txt", File.ReadString(File.DirDocuments, "1.txt") + 1)
Dim no As NativeObject = App
no = no.GetField("delegate")
no.RunMethod("completeFetch:", Array(0))
End Sub