CASE m.cCMD="JSON" .AND. !modaКодирование  && JSON-раскодирование, "\u042f" --> "Я", раскодируются только русские буквы!
            m.t = m.r  && исходная JSON-закодированная строка
            m.r = ""   && возвращаемая ASCII-строка
            m.a = CURtoUNICODE(1)  && границы диапазона UNICODE-кодов для букв текущей локали (для русской CP=1251 - 0x0400-0x045F)
            m.b = CURtoUNICODE(2)
            m.i = 0    && счетчик символов в исходной строке
            m.k = LEN(m.t)
            DO WHILE m.i<m.k  && перебираем входные символы
               m.i = m.i + 1
               m.l = SUBSTR(m.t, m.i, 1)
               IF m.l="\" .AND.;  && JSON-декодируемые символы представлены в строке как 6-байтовые слова, типа "\u042f" (русская буква "Я")
                  m.i+5<=m.k
                  m.x = SUBSTR(m.t, m.i+1, 5)  && считываем еще 5 символов, типа "u042f"
                  IF m.x="u"
                     m.x = iSUBSTR(m.x, 2.1, -4)  && считать число, представленное нибблами - 4ками битов (символами "0-F"), 4 символа, первая 4ка в строке - старшая в числе
                     IF !ISNULL(m.x)  && если все 4 символа - "0-F"
                        IF BETWEEN(m.x, m.a, m.b)  && это (2х-байтовое) число - UNICODE-буква славянских алфавитов из кодировки ISO 8859-5
                           m.l = UNICODEtoCUR(m.x)   && меняем байты местами, интерпретируем как UNICODE, должна получиться русская ASCII-буква...
                           m.i = m.i + 5
                        ENDIF
                     ENDIF
                  ENDIF
               ENDIF
               m.r = m.r + m.l
            ENDDO  && перебирали входные символы
            * Также в JSON предполагается раскодировать некоторые символы (типа, [<>'"]), примерно как для XML... а {} и др. скобки надо?...
            * Также в JSON предполагается раскодировать заэкранированные символы: \" - это КВЧ, которые не считать JSON-разделителями, но считать как КВЧ ВНУТРИ JSON-элемента
            * Но делать это надо ПОСЛЕ распарсивания на элементы (символы-разделители: {}[] и ЗПТ,КВЧ), и только для значений каждого элемента по отдельности (иначе потом не распарсишь)
            * m.r = XMLencodedToCUR(m.r)