If File.Exists(File.DirDefaultExternal, "datastore") Then
kvs.Initialize(File.DirDefaultExternal, "datastore")
Else
For FNM = 0 To 15 'Write "Strings" in to Recording
For STEPS = 0 To 999
For DATA2 = 0 To 1
Recording(FNM,STEPS,DATA2) = "" 'Recording2(FNM,STEPS,DATA2)
Next
Next
Next
For FNM = 0 To 15 'Write "Strings" in to Results
For STEPS = 0 To 4
For DATA2 = 0 To 1
Results(FNM,STEPS,DATA2) = "" 'Results2(FNM,STEPS,DATA2)
Next
Next
Next
For FCol = 0 To 15 'Write "Strings" in to Fcolours
Fcolours(FCol) = "" 'Fcolours2(FCol)
Next
kvs.Initialize(File.DirDefaultExternal, "datastore")
kvs.PutObject("history", History)
kvs.PutObject("storelist", storelist)
kvs.PutObject("fnumlist", FNumList)
kvs.PutObject("Recording", Recording)
kvs.PutObject("Results", Results)
kvs.PutObject("Settings", Settings)
kvs.PutObject("Fcolours", Fcolours)
End If