Sub Service_Start (StartingIntent As Intent)
Service.StopAutomaticForeground
If File.Exists(xui.DefaultFolder, "kvs.data")=False Then
Dim kvs As KeyValueStore
kvs.Initialize(xui.DefaultFolder,"kvs.data")
kvs.Put("data1","x1")
kvs.Put("data2","x2")
Else
readKVS
End If
End Sub
Sub readKVS
Dim strVariable As String
strVariable = kvs.Get("data1")
Log(strVariable)
End Sub