{**********************************************************************}
{ Get cursor position and print it on the screen			}
{**********************************************************************}

procedure print_cursor_pos;
var
row,col : integer;
begin
    get_cursor_position(seg(row),ofs(row),seg(col),ofs(col));
    writeln('Cursor row and column are ', row,', ', col);
end;