$filename = "xxxxxxxx.txt"

dim $start, $start1
$start = @ticks
$dir = ReadFileToArray( $filename )
$start = @ticks - $start

if not @error
	$start1 = @ticks
	for each $line in $dir
		$line ?
	next
	$start1 = @ticks - $start1
endif

"file read in      " $start " ms" ?
"file displayed in " $start1 " ms" ?


function ReadFileToArray( $filename )
	dim $handle, $nbmax

	$nbmax = 4095
	redim $ReadFileToArray[$nbmax]

	$handle=freefilehandle()
	if Open($handle, $filename)<>0	exit 2	endif

	dim $line, $i
	$i = -1
	$line = Readline($handle)
	while not @error
		$i = $i + 1
		if $i > $nbmax
			$nbmax = $nbmax*2+1
			redim preserve $ReadFileToArray[$nbmax]
		endif
		$ReadFileToArray[$i] = $line

		$line = Readline($handle)
	loop
	$=Close($handle)

	if $i>-1
		redim preserve $ReadFileToArray[$i]
		exit 0
	else
		exit 1
	endif
endfunction