; WriteFile Example
; -----------------

; WriteFile creates a new file (or overwrites an old one) and
; returns a stream handle ready for writing
file=WriteFile("demo_savegame.dat")

; Save the player's progress
WriteString file,"Robo"
WriteInt file,11657
WriteFloat file,12.5
WriteFloat file,-3.25
CloseFile file
Print "Saved game to demo_savegame.dat ("+FileSize("demo_savegame.dat")+" bytes)"

; Load the save back to prove it worked
file=ReadFile("demo_savegame.dat")
name$=ReadString$(file)
score=ReadInt(file)
x#=ReadFloat(file)
y#=ReadFloat(file)
CloseFile file
Print "Loaded: "+name$+", score "+score+", position "+x+","+y

; Clean up the demo file
DeleteFile "demo_savegame.dat"
Print "Deleted demo_savegame.dat"

Print ""
Print "Press any key to close the example"
WaitKey

End