$counter = 0

$nul = Open(1,"File.csv")

$Line = Readline(1)

While @ERROR = 0

	$file = "Range" + val( int($counter/2000) + 1) + ".csv"
	
	If $file<>$file_old 
		If $file_old<>""
			$nul = Close(2)
		EndIf
		$nul = Open(2,$file,5)
	EndIf

	$nul = WriteLine(2, $Line + @CRLF)
	$file_old = $file
	$counter = $counter + 1

	$Line = Readline(1)

Loop