{***********************************************************************}
{									}
{ __WCharScn  Write copies of a character				}
{									}
{ procedure __WCharScn(DisplayCh : char; Count : word); 		}
{									}
{	      DisplayCh The character to display			}
{	      Count	The number of copies of DisplayCh to display	}
{									}
{ Description __WCharScn writes Count copies of the character DisplayCh }
{	      starting at the current cursor position.	The characters	}
{	      are written to the current display page (_CurDisplayPage) }
{	      without altering the screen attributes. The cursor	}
{	      position is not altered.					}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc.  1987		}
{_______________________________________________________________________}

procedure __WCharScn(DisplayCh : char; Count : word);

  var
    Reg : registers;

  begin {__WCharScn}

    if (Count <= 0) then
       Exit;				     { Nothing to do.		}
    with Reg do
      begin
	AH := $0A;			     { BIOS video function 10	}
	AL := byte(DisplayCh);
	BH := _CurDisplayPage;
	CX := Count
      end;
    Intr(_VIDEO,Reg)

  end;	{__WCharScn}
