% function [a] = Enter(s,a)
% Enter:  input data, showing default and 
%                     accepting a return stroke
%
function [a] = Enter(s,a)

ss = ['Enter ' s ' Default = ' num2str(a) ' : '];
b = input(ss); if size(b) ~= 0 a = b; end