Sub Globals
Dim Recording(16,100,2) As String
Dim r2 (,,) As String = kvs.GetObject("recording")
'... etc
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
kvs.Initialize(File.DirDefaultExternal, "datastore")
'... etc
End If
'If VERY FirstTime create file to be read by "Sub Activity_Resume" to stop it spitting the dummy
Dim DataStore_Flag As Int
If File.Exists(File.DirDefaultExternal, "datastore") Then DataStore_Flag = 1 Else DataStore_Flag = 0
kvs.Initialize(File.DirDefaultExternal, "datastore")
If DataStore_Flag = 0 Then
kvs.PutObject("Recording", Recording)
End If
'... etc
End Sub
Sub Activity_Resume
r2 = kvs.GetObject("Recording")
'Reload "Recording" array from r2
For FNM = 0 To 15
For STEPS = 0 To 99
For DATA2 = 0 To 1
Recording(FNM,STEPS,DATA2) = r2(FNM,STEPS,DATA2)
Next
Next
Next
'... etc
End Sub
Sub Activity_Pause (UserClosed As Boolean)
kvs.PutObject("recording", Recording)
'... etc
End Sub