Sub AppStart (Args() As String)
Dim m As Map
Dim path As String = "../Files/compiletime.txt"
If File.Exists(path, "") Then
m = File.ReadMap(path, "")
Else
m.Initialize
End If
m.Put("autoversion", m.GetDefault("autoversion", 0) + 1)
m.Put("time", DateTime.Now)
File.WriteMap(path, "", m)
End Sub