FindCursor


Purpose   Determines the size and location of the cursor.

Decln.    FindCursor(var X,Y,Top,Bot:byte);

Remarks   The four parameters must be variables.

          X, Y are updated with the coordinates of the cursor.
          Top, Bot are updated with the top and bottom cursor scan lines.

          The scan codes refer to the actual location of the top and bottom
          of the cursor within a character field, where 0 is the top of the
          field (such as the top stroke of the letter T), and either 12 or
          7 is the bottom of the field, on monochrome and color displays
          respectively.

Example

VAR
  COL,ROW,T,B : BYTE;
BEGIN
    FINDCURSOR(COL,ROW,T,B);
END;