{**********************************************************************}
{ Draw a set of radial lines from center of the screen to the outside	}
{**********************************************************************}

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

	for i := 0 to 31 do line(320,100,20*i,0,i);
	for i := 0 to 31 do line(320,100,20*i,199,i);
	for i := 0 to 19 do line(320,100,0,10*i,i);
	for i := 0 to 19 do 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 if i = VMONO then set_mode(7)
	else	set_mode(3);
end;