{***********************************************************************}
{									}
{ __ClearScn  Clear the current screen with specified attributes	}
{									}
{ procedure __ClearScn(Fore,Back : byte);				}
{									}
{	      Fore,Back Foreground and background attributes used when	}
{			clearing the screen.				}
{									}
{ Description __ClearScn clears the screen by making a call to the	}
{	      procedure __VertScn to scroll the entire screen, filling	}
{	      the blank lines with the specified attributes. Unlike,	}
{	      the Turbo Pascal procedure ClrScr, __ClearScn does not	}
{	      consider the current window and, moreover, fills blank	}
{	      lines with attributes.					}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc.  1987		}
{_______________________________________________________________________}

procedure __ClearScn(Fore,Back : byte);

  begin {__ClearScn}

    __VertScn(1,1,_CurColumns,_CurRows,0,Fore,Back,TRUE)

  end;	{__ClearScn}
