{**********************************************************************}
{ Test slow line demo routine						}
{**********************************************************************}

procedure slow_radial_lines;
const
MONO = 5;
VMONO = 7;
COLOR = 4;
ENHANCED = 3;
var
i : integer;
begin
	clear_screen;
	i := get_display_type;
	if i = MONO then set_mode($0F)
	else if i = COLOR then set_mode($0E)
	else set_mode($10);

	for i := 0 to 31 do slow_line(320,100,20*i,0,i);
	for i := 0 to 31 do slow_line(320,100,20*i,199,i);
	for i := 0 to 19 do slow_line(320,100,0,10*i,i);
	for i := 0 to 19 do slow_line(320,100,639,10*i,i);

	i := integer(readkey);
	{--- Set default text mode					}
	i := get_display_type;
	if i = MONO then set_mode(7)
	else	set_mode(3);
end;