{***************************************************************}
{ Fetch maximum number of scanline and print it			}
{***************************************************************}

procedure print_scanlines;
var
i : integer;
begin
i := get_scanlines;
writeln('Maximum number of scanlines is ',i);
end;