; ReadAvail Example
; -----------------

; Save five 4-byte integers to a demo file
file=WriteFile("demo_data.dat")
For i=1 To 5
    WriteInt file,i*111
Next
CloseFile file

; For files, ReadAvail reports how many bytes sit ready in the
; stream's internal buffer; for TCP streams, how much has arrived
file=ReadFile("demo_data.dat")
Print "Buffered before any read: "+ReadAvail(file)+" (the buffer fills on first read)"

For i=1 To 5
    value=ReadInt(file)
    Print "Read "+value+"   ReadAvail now: "+ReadAvail(file)
Next
CloseFile file

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

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

End