function dale
load prom
load ccast
cast=cast+1;
PorKhandl=findobj('Tag','PorKom');
castc=num2str(cast);
castnc=double('Část ');
castdc=double(castc);
castf=[castnc castdc];
castf=char(castf);


[pkom,ppr,jn,poslcast]=tvor(cpk,ipndp,kom,s,jn);
handlkom=findobj('Tag','Listboxkom');
set(handlkom,'String',pkom);

set(PorKhandl,'String', castf);

if poslcast == 1
  set(PorKhandl,'String', 'Poslední část');
end

save prom cpk ipndp kom s jn 
save ccast cast
save prik ppr