Sub WriteConfig
Dim R As RandomAccessFile
Dim AppSettings As Map
R.Initialize(File.DirInternal, "settingsv2.ini", False)
AppSettings.Initialize
AppSettings.Put("ConfigVersion", ConfigVersion)
AppSettings.Put("Brightnessval", CommEngine.Brightnessval)
AppSettings.Put("TeamName", ScoreEngine.TeamName)
AppSettings.Put("GameOptions", ScoreEngine.GameOptions)
AppSettings.Put("GameData", ScoreEngine.GameData)
AppSettings.Put("Baseball", ScoreEngine.Baseball)
AppSettings.Put("Soccer", ScoreEngine.Soccer)
AppSettings.Put("GameClock", ScoreEngine.GameClock)
Log(AppSettings.IsInitialized)
R.WriteB4XObject(AppSettings, 0)
R.Close
End Sub