{***********************************************************************}
{									}
{ __HorzWin   Horizontally scroll text within the current window.	}
{									}
{ procedure __HorzWin(NumCols,Fore,Back : byte; Left : boolean);	}
{									}
{	      NumCols	The number of columns to scroll within the	}
{			window. To scroll the entire area, 0 is 	}
{			specified					}
{	      Fore,Back The attributes used to fill the columns within	}
{			the window scrolled.				}
{	      Left	If TRUE, the area is scrolled left, otherwise	}
{			it is scrolled right.				}
{									}
{ Description This procedure scrolls text within the current window by	}
{	      making a call to __HorzScn.  The global variable		}
{	      _CurWindow is used to determine the current window. See	}
{	      __HorzScn for more information on Horizontal scrolling.	}
{	      The parameters NumCols, Fore and Back are forced to	}
{	      reasonable values (Fore and Back by __HorzScn).		}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc.  1987		}
{_______________________________________________________________________}

procedure __HorzWin(NumCols,Fore,Back : byte; Left : boolean);

  begin {__HorzWin}

    with _CurWindow do
      begin
	if (NumCols < 0) then
	   NumCols := 1 	       { Scroll just one line		}
	else if (NumCols > _XLower - _XUpper) then
	   NumCols := 0;	       { Scroll the entire window	}
	__HorzScn(_XUpper,_YUpper,_XLower,_YLower,NumCols,Fore,Back,Left)
      end

  end;	{__HorzWin}
