pCommon.RemoveView
If Player.Name="" Then
Player.Name=etName.text
End If
Common("Message","MESSAGE","Saving Your Game",1,"","")
If Not (File.Exists(File.DirInternal,Player.Name&Player.Clrs&".dat")) Then
lGames.Add(Player)
WriteGames
End If
raf.Initialize(File.DirInternal,Player.Name&Player.Clrs&".dat",False)
raf.WriteObject(Player,True,raf.CurrentPosition)
raf.WriteObject(aGrid,True,raf.CurrentPosition)
raf.WriteObject(lUndo,True,raf.CurrentPosition)
raf.WriteInt(Player.Clrs,raf.CurrentPosition)
raf.Close
pCommon.RemoveView
Activity.Finish