function init_pro

%   Copyright 2003
%   Centre for Nonlinear Dynamics in Physiology and Medicine

global dim_protoc protocole

if(isempty(dim_protoc))dim_protoc=1;end;

%initialize protocole

if(isempty(protocole))
protocole=zeros(5,dim_protoc);
protocole(1,1)=1;
elseif( length(protocole(1,:)) < dim_protoc )
procotole=[protocole zeros(5,dim_protoc-length(protocole(1,:)))];
elseif( length(protocole(1,:)) > dim_protoc )
protocole=protocole(:,1:dim_protoc);
end;

n =dim_protoc+1;
H0=.05; L0=.15;

h_fig = figure('unit','norm','pos', [.25, .1, L0, min([(n + 1) * H0 .95])],...
		 'numbertitle', 'off', 'name', 'set stage', 'user','set stage');

H = 1/(n+1); ; LL =.95; % Hauteur champ, largeur edit, largeur label


for i=1:n-1
posy = H + (n - i) * H;
uicontrol('unit','norm','pos', [0, posy,  LL,  H], 'style', 'pushbutton', 'string',int2str(i),...
'callback','prot_men(str2num(get(gco,''string'')))');
end;
posy = 0;

uicontrol('unit','norm','pos', [0, posy,  LL ,  H], 'style', 'pushbutton', 'string', 'exit',...
'callback','delete(gcf)');
