; WriteString Example
; -------------------

; WriteString stores a string with a 4-byte length in front,
; so text of any length round-trips exactly
file=WriteFile("demo_savegame.dat")
WriteString file,"Robo"
WriteString file,"The Caves of Doom"
CloseFile file

Print "Wrote 2 strings - demo_savegame.dat is "+FileSize("demo_savegame.dat")+" bytes"

; Read them back in the same order
file=ReadFile("demo_savegame.dat")
name$=ReadString$(file)
level$=ReadString$(file)
CloseFile file

Print "Player: "+name$
Print "Level : "+level$

; 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