Sub Globals
Dim TabHost_Config As TabHost
Dim txtName as Edittext
End Sub
Sub Activity_Create(FirstTime As Boolean)
TabHost_Config.AddTab ("ConfigTAB", "Config") 'Config is a Layout File
End Sub
Sub loadconfig
sets = File.ReadMap(File.DirInternal, "config.set")
txtName.Text = sets.Get("Name")
End Sub
Sub saveconfig
File.WriteMap(File.DirInternal, "config.set", sets)
sets.Put("Name", txtName.Text)
End Sub