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


procedure __ClearWin(Fore,Back : byte);

  begin {__ClearWin}

    __VertWin(0,Fore,Back,TRUE)

  end;	{__ClearWin}
