{***********************************************************************}
{									}
{ __IsCurScn  Return the status of the cursor				}
{									}
{ function  __IsCurScn : boolean;					}
{									}
{ Description __IsCurScn returns TRUE is the cursor is visible and	}
{	      FALSE if it is not.  The visibility of the cursor is	}
{	      determined by calling the BIOS function which returns	}
{	      the scan lines.  If bit 5 is set in the returned	CH	}
{	      register, the cursor is invisible; otherwise it is on.	}
{	      The POWER TOOLS procedure __COffScn turns the cursor	}
{	      off by setting the bit.					}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc. 1987		}
{_______________________________________________________________________}

function  __IsCurScn : boolean;

  var
    Reg : registers;

  begin {__IsCurScn}

    with Reg do 			     { Return the scan lines.	}
      begin
	AH := $03;			     { BIOS VIDEO subfunction 3 }
	BH := _CurDisplayPage;
	Intr(_VIDEO,Reg);
	__IsCurScn := ((CH and $20) = 0)     { Visible if bit 5 of CH	}
      end				     { is off.			}

  end;	{__IsCurScn}
