anchor.diff:       M_Console.Lines.Add('Exception : ' + E.Message);
    end;
   
  - M_console.Lines.Add('InCommandRP'+GetZkrVersion(Application.ExeName)+'\>');
  + M_console.Lines.Add('> ');
    E_console.Text := '';
    pole_dat.Free;
   end;//procedure
   
   procedure TF_Console.PM_DeleteConsoleClick(Sender: TObject);
    begin
  -  M_console.Clear;
  -  M_console.Lines.Add('------------------------');
  -  M_console.Lines.Add('InCommandRP'+GetZkrVersion(Application.ExeName)+'\>');
  +  M_console.Clear();
    end;//procedure
   
   end.//unit
  
positive.code:  try
     ExtractStrings([' ','(',')'], [],PChar(LowerCase(E_console.Text)),pole_dat);
  
     M_console.Lines.Strings[M_console.Lines.Count-1] := M_console.Lines.Strings[M_console.Lines.Count-1] + '['+E_console.Text+']';
  
     if (F_Options.CHB_Log_console.Checked) then
       writelog('Console: '+E_console.Text,WR_CONSOLE);
  
negative.code:         if (pole_dat.Count < 2) then Exit;
  
          Blky.GetBlkByID(StrToInt(pole_dat[1]), Blk);
  
          if (Blk = nil) then
           begin
            M_console.Lines.Add('Blok s timto id neexistuje');
           end else begin
            case (Blk.GetGlobalSettings().typ) of
             _BLK_USEK, _BLK_TU: begin
               (Blk as TBlkUsek).Zaver := TZaver.no;
               M_console.Lines.Add('Zrusen zaver useku '+Blk.GetGlobalSettings().name);
             end;
            else
              M_console.Lines.Add('Na bloku s timto typem neumim provest NUZ');
            end;
           end;
         end;
      end;//Count <> 0
   except
  