Sub Activity_Create
ReadOptions
End Sub
Sub Activity_Pause
SaveOptions
End Sub
Sub SaveOptions
Dim TW As TextWriter
TW.Initialize(File.OpenOutput(File.DirInternal, "[file name]", False))
TW.WriteLine(player)
TW.WriteLine(score)
TW.Close
End Sub
Sub ReadOptions
If File.Exists(File.DirInternal, "[file name]") = False Then Return
Dim TW As TextReader
TW.Initialize(File.OpenInput(File.DirInternal, "[file name]"))
player = TW.ReadLine
score = TW.ReadLine
TW.Close
End Sub