{**********************************************************************}
{ Read first ten attributes at the top of the screen			}
{**********************************************************************}

procedure print_10_attr;
var
i : integer;
attr: byte;
begin
	writeln('Attributes read are: ');
	for i := 0 to 9 do begin
		attr := read_attribute(0, i);
		writeln(attr);
	end;
end;