macro TextWrite;
{	This macro demonstrates writing to a TextEdit window.  }
var
	str255 : name;
	longint : i;
	integer : h,m,s;
begin
	DisposeUnclose;
	name:='Example Text';
	NewText(name);
	SetWindowSize(name,200,100,FALSE);
	for(i,1,100)
		GetTime(h,m,s);
		writeln(name,'This is line: ',i:1,' at ',h:1,':',m:1,':',s:1);
	endfor;
	SetWindowSize(name,200,100,FALSE);
end;
