anchor.diff:              Result:= 'c:'+IntToStr(NCmd);
           end;
         end;
  +
       categ_OpenedFile:
         begin
           NIndex:= NCmd-cmdFirstFileCommand;
  
positive.code:           else
              Result:= Format('p:%s.%s', [ItemModule, ItemProc]);
        end;
      categ_Lexer:
        begin
          NIndex:= NCmd-cmdFirstLexerCommand;
  
negative.code:         else
            Result:= 'c:'+IntToStr(NCmd);
        end;
  
      else
        Result:= 'c:'+IntToStr(NCmd);
    end;
  