; ReadString Example
; ------------------

; Save two strings so there is something to read
file=WriteFile("demo_savegame.dat")
WriteString file,"Robo"
WriteString file,"The Caves of Doom"
CloseFile file

; ReadString$ reads the 4-byte length written by WriteString,
; then exactly that many characters - any length round-trips
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