{***********************************************************************}
{									}
{ __AttrScn   Write copies of a character with a specified attribute	}
{									}
{ procedure __AttrScn(DisplayCh : Char; Count : word;			}
{				    Fore,Back : byte);			}
{									}
{	      DisplayCh  The character to display			}
{	      Count	 The number of copies of DisplayCh to display	}
{	      Fore,Back  The foreground and background attributes used	}
{			 when displaying the specified character.	}
{									}
{ Description __AttrScn writes Count copies of the character DisplayCh	}
{	      starting at the current cursor position.	The characters	}
{	      are written to the current display page (_CurDisplayPage) }
{	      with attributes specified by Fore and Back.  The values	}
{	      for the foreground and background attributes are forced	}
{	      in the range 0 to 15.					}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc.  1987		}
{_______________________________________________________________________}

procedure __AttrScn(DisplayCh : char; Count : word; Fore,Back : byte);

  var
    Reg : registers;

  begin {__AttrScn}

    if (Count <= 0) then
       Exit;				   { Nothing to do.		}

    with Reg do
      begin
	AH := $09;			   { BIOS video function 9	}
	AL := byte(DisplayCh);
	BH := _CurDisplayPage;
	BL := __2ByteSup(Back,Fore);
	CX := Count
      end;
    Intr(_VIDEO,Reg)

  end;	{__AttrScn}
