{***********************************************************************}
{ Scroll the screen by  6 lines up					}
{***********************************************************************}

procedure sample_scroll_page;
var
i : integer;
begin
	for i := 1 to 25 do
		writeln('This is line',i);	{ Fill screen with data }
        i := integer(ReadKey);                  { Wait for <Enter> key  }
	scroll_page( 6);		{ Scroll page up by  6 rows	}
end;