function [long_out,lat_out]=get_continent

pntx=[];
pnty=[];

button(1)=1;

while button(1)~=13,

[xxx,yyy,button]=ginput(1);
if(isempty(button)==1)
	button=13;
else,
	xx(1)=xxx; yy(1)=yyy;
end


% Click mouse to enter a point
   if button==1,
        pntx=[pntx xx(1)];
        pnty=[pnty yy(1)];
        hold on
        plot(xx(1),yy(1),'o')
        hold off
        end

% % Type letter "d" to delete point
%    if button==100,
%        test=abs(pntx-xx(1));
%        pnt=find(test==min(test));
%        notpnt=find((1:length(pntx))~=pnt);
%        pnty=pnty(notpnt);
%        pntx=pntx(notpnt);
%        plot(x(indx),y(indx),sym)
%        text(xplt,yplt,txt,'sc')
%        hold on
%        plot(pntx,pnty,'o')
%        hold off
%        end


end
  

[long_out,lat_out]=m_xy2ll(pntx,pnty);
