Sub Globals
Dim MarkerListe As List
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim raf As RandomAccessFile
raf.Initialize(File.DirInternal,"Marker.dat",False)
MarkerListe = raf.ReadObject(0)
raf.Close
...
end sub
Sub Activity_pause
Dim raf As RandomAccessFile
raf.Initialize(File.DirInternal,"Marker.dat",False)
raf.WriteObject(MarkerListe,True,0)
raf.Close
...
end sub