{***************************************************************}
{ Change 8 characters starting at row 24 and column 40 		}
{ to black characters on white background			}
{***************************************************************}

procedure make_reverse;
const
GRAY = 7;
BLACK = 0;
var
i : integer;
begin
	set_cursor_position(12,40);		{ Move cursor to 20,40 }
	writeln(' Reverse ');                   { Put a string there   }
	for i := 0 to 7 do			{ Change its attribute }
		write_attribute(12,40 + i, GRAY, BLACK);
end;