Sub Process_Globals
Private KVS As KeyValueStore
End Sub
Sub AppStart (Args() As String)
If File.Exists(File.DirApp, "test.kvs") Then File.Delete(File.DirApp, "test.kvs")
KVS.Initialize(File.DirApp, "test.kvs")
Log("Initial file size: " & File.Size(File.DirApp, "test.kvs"))
For i = 0 To 100
KVS.Put(i, "This is a test string")
Next
Log("File size after put: " & File.Size(File.DirApp, "test.kvs"))
KVS.DeleteAll
Log("File size after delete: " & File.Size(File.DirApp, "test.kvs"))
End Sub