///////////////////////////////////////////////////////////////////////
SetWindowTitle("TestSaveGame")
SetWindowSize(640,480,0)
SetVirtualResolution(640,480)
SetPrintSize(16)
SetSyncRate(30,0)

SetRawWritePath(GetDocumentsPath() + "/My Games/TestSaveGame")



///////////////////////////////////////////////////////////////////////
DO
   Print(GetWritePath())
   Print(GetReadPath())
   Print("")
   Print("Click to save file..")

   IF GetPointerReleased() THEN WriteSaveFile()

   Sync()
LOOP


///////////////////////////////////////////////////////////////////////
FUNCTION WriteSaveFile()
   OpenToWrite(1,"savegame",0)
      WriteString( 1,"Test String 123")
      WriteInteger(1,123)
      WriteInteger(1,456)
      WriteInteger(1,678)
   CloseFile(1)

   Print("Done!")
ENDFUNCTION