{**********************************************************************}
{ Scroll upper left quarter of the 80x25 screen up by	6 lines 	}
{**********************************************************************}

procedure sample_scroll_text;
var
i,j : integer;
ch : char;
begin
	for i := 0 to 24 do
		begin
		for j := 0 to 59 do     { Fill screen with data         }
			write_char(Chr(Ord('A')+i), i, j);
		end;
        ch := ReadKey;                  { Wait for key to be pressed    }
	scroll_text(1,3,12,19, 6);	{ Scroll text window up		}
        ch := ReadKey;
        scroll_text(1,3,12,19,-6);      { Scroll text window down       }
end;