Private Sub Demo
Dim m1 As Map
Dim indx As Int
m1.Initialize
indx = 1
m1.Put(indx, "roer")
indx = 900
m1.Put(indx, "roer 900")
m1.Put("alfa", "romeo")
For Each v As Object In m1.Keys
Log(v)
If v Is String Then Log("string")
If v Is Int Then Log("int")
Next
File.WriteMap(File.DirData("appname"), "file1.map", m1)
m1.Initialize
m1 = File.ReadMap(File.DirData("appname"), "file1.map")
Log("Load data")
For Each v As Object In m1.Keys
Log(v)
If v Is String Then Log("string")
If v Is Int Then Log("int")
Next
indx = 900
Log("Search for 900 as int =" & m1.ContainsKey(indx))
Log("Search for 900 forced as string =" & m1.ContainsKey(indx & ""))
End Sub