{***********************************************************************}
{									}
{ __VertWin   Scroll text within the current window.			}
{									}
{ procedure __VertWin(NumRows,Fore,Back : byte; Up : boolean);		}
{									}
{	      NumRows	The number of rows to scroll within the window	}
{			To scroll the entire area, 0 is specified.	}
{	      Fore,Back The attributes used to fill the rows within the }
{			window scrolled.				}
{	      Up	If TRUE, the area is scrolled up, otherwise it	}
{			is scrolled down.				}
{									}
{ Description This procedure scrolls text within the current window by	}
{	      making a call to __VertScn.  The global variable		}
{	      _CurWindow is used to determine the current window. See	}
{	      __VertScn for more information on vertical scrolling.	}
{	      The parameters NumRows, Fore and Back are forced to	}
{	      reasonable values (Fore and Back by __VertScn).		}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc.  1987		}
{_______________________________________________________________________}

procedure __VertWin(NumRows,Fore,Back : byte; Up : boolean);

  begin {__VertWin}

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

  end;	{__VertWin}
