{**********************************************************************}
{ Get current cursor size using library function			}
{**********************************************************************}

procedure print_cursor_size;
var
start : integer;
stop : integer;
begin
    get_cursor_size(seg(start),ofs(start),seg(stop),ofs(stop));
    writeln('Cursor starts at ',start,' and stops at ',stop);
end;