Sub Activity_Create(FirstTime As Boolean)
Dim map1 As Map
map1.Initialize
map1.Put("a","first item")
map1.Put("b","second item")
map1.Put("c","third item")
File.WriteMap(File.DirInternal, "storage.txt", map1)
Dim map2 As Map
map2.Initialize
map2.Put("a", "")
map2.Put("b", "")
map2.Put("c", "")
map2 = File.ReadMap2(File.DirInternal, "storage.txt", map2)
For i = 0 To map2.Size - 1
Dim a As String
a = map2.GetValueAt(i)
Msgbox(a, "AAAA")
Next
End Sub