procedure __attrib(x1, y1, x2, y2, f, b: byte);