{***********************************************************************}
{									}
{ __WrAttScn  Write attributes only directly to the screen		}
{									}
{ procedure __WrAttScn(X,Y : byte; Count : word; Fore,Back : byte);	}
{									}
{	      X,Y	Column and row position where the attributes	}
{			are to be written.				}
{	      Count	The number of attributes to modify.		}
{	      Fore,Back Foreground and background attributes to be	}
{			written to the screen buffer.			}
{									}
{ Description __WrAttScn writes copies of the attribute specified by	}
{	      Fore and Back at the specified cursor position.  The	}
{	      text screen buffer consists of alternating characters and }
{	      attributes.  This routine alters the attributes only,	}
{	      leaving the characters as is.  You can use this routine	}
{	      to change the color of a line text.  __WrAttScn invokes	}
{	      __FastScn with mode _ATTRONLY_SCN.			}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc. 1987		}
{_______________________________________________________________________}

procedure __WrAttScn(X,Y : byte; Count : word; Fore,Back : byte);

  begin {__WrAttScn}

    __FastScn(X,Y,NIL,Count,Fore,Back,_ATTRONLY_SCN)

  end;	{__WrAttScn}
