{***********************************************************************}
{									}
{ __RCharScn  Return a screen character and attribute			}
{									}
{ function  __RCharScn(var Fore,Back : byte) : char;			}
{									}
{	      Fore,Back The foreground and background attributes at the }
{			current cursor location.			}
{									}
{ Description __RCharScn returns the character, foreground and back-	}
{	      ground attributes at the current cursor location on the	}
{	      current display page.  The functional value is the char-	}
{	      acter found.						}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc.  1987		}
{_______________________________________________________________________}

function  __RCharScn(var Fore,Back : byte) : char;

  var
    Reg : registers;

  begin {__RCharScn}

    with Reg do
      begin
	AH	   := $08;	       { BIOS video function 8		}
	BH	   := _CurDisplayPage;
	Intr(_VIDEO,Reg);
	__RCharScn := Chr(AL);
	Fore	   := AH and $0F;      { Foreground is the low order	}
	Back	   := __HiNybSup(AH)   { nybble and background is high	}
      end			       { order nybble.			}

  end;	{__RCharScn}
