; ReadLine Example
; ----------------

; Write a plain-text save file so there is something to read
file=WriteFile("demo_savegame.txt")
WriteLine file,"player=Robo"
WriteLine file,"score=11657"
WriteLine file,"level=7"
CloseFile file

Print "Lines read from demo_savegame.txt:"

; ReadLine$ reads one whole line of text, without its line ending
file=ReadFile("demo_savegame.txt")
While Not Eof(file)
    Print "  "+ReadLine$(file)
Wend
CloseFile file

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

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

End