Japanese Code?

Anyone have examples of Japanese programming code? What about any language other than English? I find it hard to believe the whole world codes in English.

This is what russkie have instead of COBOL. Generally it's like some sort of PL/SQL after googletranslating.

Функция ПечатьСчетаЗаказа(Тип)

   Запрос = Новый Запрос;
   Запрос.Текст =
   "ВЫБРАТЬ
   |   Номер,
   |   Дата,
   |   ДатаПоступления,
   |   ДоговорКонтрагента,
   |   Контрагент КАК Поставщик,
   |   Организация,
   |   СуммаДокумента,
   |   ВалютаДокумента,
   |   УчитыватьНДС,
   |   СуммаВключаетНДС
   |ИЗ
   |   Документ.ЗаказПоставщику КАК ЗаказПоставщику
   |
   |ГДЕ
   |   ЗаказПоставщику.Ссылка = &ТекущийДокумент";
  
   Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект);
  
   Шапка = Запрос.Выполнить().Выбрать();
   Шапка.Следующий();

   Запрос = Новый Запрос;

   Макет = ПолучитьМакет("СчетЗаказ");

   // Определим параметры запроса и табличного документа
   // в зависимости от необходимости отображения артикула поставщика
   Если Тип = "ЗаказПоДаннымПоставщика" Тогда

      ВыводитьКоды    = Истина;
      ТекстКодАртикул = "Код";
        Колонка         = "Артикул" + Символы.ПС + "поставщика";
      ОбластьШапки    = Макет.ПолучитьОбласть("ШапкаСКодом");
      ОбластьСтроки   = Макет.ПолучитьОбласть("СтрокаСКодом");

      Запрос.УстановитьПараметр("Контрагент", ЭтотОбъект.Контрагент);

      ТекстПоляТовараДляТоваров = "
      |   ВЫБОР КОГДА (ВЫРАЗИТЬ (НаименованиеКонтрагента КАК Строка(100)) ЕСТЬ NULL ИЛИ ВЫРАЗИТЬ (НаименованиеКонтрагента КАК Строка(100)) = """") ТОГДА ВЫРАЗИТЬ (ВложенныйЗапрос.Номенклатура.НаименованиеПолное КАК Строка(100)) ИНАЧЕ ВЫРАЗИТЬ (НаименованиеКонтрагента КАК Строка(100)) КОНЕЦ КАК Товар,";

      ТекстПоляТовараДляУслуг = "
      |   ВЫБОР КОГДА (ВЫРАЗИТЬ (НаименованиеНоменклатурыКонтрагента КАК Строка(100)) ЕСТЬ NULL ИЛИ ВЫРАЗИТЬ (НаименованиеНоменклатурыКонтрагента КАК Строка(100)) = """") ТОГДА ВЫРАЗИТЬ (ЗаказПоставщику.Номенклатура.НаименованиеПолное КАК Строка(100)) ИНАЧЕ ВЫРАЗИТЬ (НаименованиеНоменклатурыКонтрагента КАК Строка(100)) КОНЕЦ КАК Товар,";
.....