; FilePos Example
; ---------------

; Save a name, score and x position, watching the write position move
file=WriteFile("demo_savegame.dat")
Print "Position at start        : "+FilePos(file)
WriteString file,"Robo"
Print "After WriteString 'Robo' : "+FilePos(file)+"  (4-byte length + 4 characters)"
WriteInt file,11657
Print "After WriteInt 11657     : "+FilePos(file)+"  (+4 bytes)"
WriteFloat file,12.5
Print "After WriteFloat 12.5    : "+FilePos(file)+"  (+4 bytes)"
CloseFile file

; FilePos works while reading too
file=ReadFile("demo_savegame.dat")
name$=ReadString$(file)
Print "After reading the name   : "+FilePos(file)
CloseFile file

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

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

End