break on


function makeline
	dim $line
	do 
		$line = $line + chr(rnd(300))
	until len($line) = 50
	$makeline = $line
endfunction

while len($data) < 800000
	$data = makeline +
		makeline +
		makeline +
		makeline +
		makeline +
		makeline +
		makeline +
		makeline +
		makeline +
		makeline +
		makeline +
		makeline +
		makeline +
		makeline +
		makeline +
		makeline +
		makeline +
		makeline +
		makeline +
		makeline + $data

	? len($data)
loop
$ = open(1,"800k.txt",5)
$ = writeline(1,$data)