Problems reading a txt file..

Hmm, somthing must be wrong, look at this following example:

SetBuffer BackBuffer()

Print "Testing file..."

If FileType("test.txt")=1

Print "File Found!"
Print "Trying to Extract information"

file = ReadFile("test.txt")


Repeat
RL = ReadLine(file)
Print RL





Until Eof(file)
CloseFile(file)

Else

Print "No file Found!"

End If

Delay 5000

gives me:

Testing file...
File Found!
Trying to extract infomation
0
0
0
0