Sub LoadPrefs
Dim raf As RandomAccessFile
raf.Initialize(File.DirInternal , "prefs.sav", True)
prefs = raf.ReadObject (raf.CurrentPosition)
raf.Close
End Sub
Sub SavePrefs
Dim raf As RandomAccessFile
raf.Initialize(File.DirInternal , "prefs.sav", False)
raf.WriteObject(prefs, True, raf.CurrentPosition)
raf.Close
End Sub