GetScreenAttr


Purpose   Returns the display attribute (colors) at a specific location on
          the screen.

Decln.    GetScreenAttr(X,Y:byte):byte;

Returns   Byte

Remarks   X, Y are the screen coordinates.

          The display color is returned as a combined foreground/background
          attribute.

Example

VAR
  OLDATT:BYTE
BEGIN
    OLDATT := GETSCREENATTR(1,1);
END;

The variable OldAtt is assigned the color attribute of the top left corner
of the display.