{***********************************************************************}
{									}
{ __WhereWin  Return the cursor position and cursor size		}
{									}
{ procedure __WhereWin(var X,Y,TopScan,BotScan : byte); 		}
{									}
{	      X,Y	The column and row numbers where the cursor is	}
{			positioned on the current window.		}
{	      TopScan	Cursor top scan line.  It is a value between 0	}
{			and 13 (15 for the VGA).			}
{	      BotScan	Cursor bottom scan line.  It is a value between }
{			0 and 13 (15 for the VGA).			}
{									}
{ Description This procedure returns the cursor position and mode	}
{	      (that is, size as determined by the 'top' and 'bottom'	}
{	      scan lines or markers).  The cursor position is relative	}
{	      to the current window (_CurWindow).    Unlike the Turbo	}
{	      Pascal functions WhereX and WhereY, the position is	}
{	      properly returned if the current display page is not	}
{	      the active page.						}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc.  1987		}
{_______________________________________________________________________}

procedure __WhereWin(var X,Y,TopScan,BotScan : byte);

  begin {__WhereWin}

    __WhereScn(X,Y,TopScan,BotScan);
    with _CurWindow do
      begin
	X := X - _XUpper + 1;
	Y := Y - _YUpper + 1
      end

  end;	{__WhereWin}
