************* fileeof.t ***************

var file:string:="choose.txt"
var fileno:int
var x:int:=0

open: fileno,file,get
put "fileno = ", fileno

loop
	exit when eof(fileno)
	get: fileno, x
	put "x = ",x
end loop

************* choose.txt ***************

4 3 2 1
5 6 7 -1
------ make sure there are no blank lines
------ after the last line of numbers!