function x=getnew(D,Text);
lD=length(D);
if(lD>1)
 TD='D: [';
 for k=1:lD
  TD=[TD,num2str(D(k)),';'];
 end
 TD(length(TD))=']';
 y=input([Text,' ? ',TD]);
else
 y=input([Text,' ? ','(D: ',num2str(D),') =>']);
end
[nx,ny]=size(y);
if (nx~=0)
 x=y; 
else
 x=D; 
end
disp(x)