% make_param.m

function y = make_param(x,y,var,init,bgcolor)

uicontrol('Style','Text','Position',[x, y-5, 45 20], ...
    'String',var, ...
    'HorizontalAlignment','Right', ...
    'ForegroundColor','y','BackgroundColor',bgcolor)

x = x+50;

uicontrol('Style','Edit','Position',[x y 80 20], ...
    'Value',init,'String',num2str(init), ...
    'Callback',['set_numeric(gcbo); ' var '=get(gcbo,''Value'');'])

y = y - 22;