{**********************************************************************}
{ Clear screen and then draw 16 boxes					}
{**********************************************************************}

procedure solid_box16;
const
MONO = 5;
COLOR = 4;
VMONO = 7;
var
i, j, x, y, box_color : 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);

	solid_box(0,0,640,350,0);		{ Clear screen 	}
	for j := 0 to 3 do	 		{ Loop over rows of b's}
	begin
		for i := 0 to 3 do		{ Loop over columns	}
		begin
			y := j * 200 div 4;	{ Draw the box 	}
			x := i * 640 div 4;
			box_color := i + j * 4;
			solid_box(x,y,x + 640 div 4,y + 200 div 4,box_color);
		end;
	end;
	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;