function proved
clear fun pprt

ht1=findobj('Tag','vdmm');
ht2=findobj('Tag','vdmt');

pb1=findobj('Tag','Pushbprik');
pb2=findobj('Tag','PushbuttonDale');
pb3=findobj('Tag','Pushbkont');
pb4=findobj('Tag','Pushbhelpt');
pb5=findobj('Tag','Pushbkon');
pb6=findobj('Tag','Pushbnap');
pb7=findobj('Tag','Pushbspu');
pb8=findobj('Tag','Listbox1m');
pb9=findobj('Tag','Listbox3m');

endale=get(pb2,'Enable');

set(pb1,'Enable','off')
set(pb2,'Enable','off')
set(pb3,'Enable','off')
set(pb4,'Enable','off')
set(pb5,'Enable','off')
set(pb6,'Enable','off')
set(pb7,'Enable','off')
set(pb8,'Enable','off')
set(pb9,'Enable','off')

set(ht1,'HandleVisibility','off')
set(ht2,'HandleVisibility','off')


disp('                                    ')
disp('             >>>>    ZAČÁTEK PŘÍKLADU    <<<<')
disp('                                    ')
format compact
echo on
pprt  %>>>>   ZAČÁTEK PŘÍKLADU   <<<<<%
echo off
disp('                                    ')
disp('              >>>>    KONEC PŘÍKLADU    <<<<')
disp('                                    ')

set(ht1,'HandleVisibility','callback')
set(ht2,'HandleVisibility','callback')

set(pb1,'Enable','on')
if strcmp(endale,'on')
  set(pb2,'Enable','on')
end
set(pb3,'Enable','on')
set(pb4,'Enable','on')
set(pb5,'Enable','on')
set(pb6,'Enable','on')
set(pb7,'Enable','on')
set(pb8,'Enable','on')
set(pb9,'Enable','on')
