Таинственный язык программирования

Я нашел некоторый случайный код при очистке сервера на работе, никто, кажется, не знает, что это за язык программирования.

В конце строк нет полуколонов Он использует ключевые слова "if", "then", "for", "to", "do", но не "end", Он использует ключевое слово "как", поэтому, вероятно, Object Oriented

Пока это выглядит как синтаксис F # или Haskell, однако

Он также использует # 0

Мы считаем, что это обозначение типа Pascal для представления символов, поэтому # 0 будет эквивалентом '\ 0' в C

Любая помощь будет большой.

Ниже приведен фрагмент кода.

bc=(ay*ax*az)
check1 = ((bc+bc)*(ax+acx)*(az+acz))
check2 = p_ar.count-9
if check1!=check2 then change(messagebox "rebuild")

--position
dmorr1=#0
dmar2=#0
dmar3=#0

--Y update
if acy>0 and bc
{
    dmar1=#0
    dmar2=#0
    rnum = (bp+ch)
    for i=1 to pcount do
    {
        if (sag m)!=0 then
        {
            append dmar2(getUserProp cnode("cp" + (i as string)))
        }
        else
        }
            append dmar2(getUserProp dconde("cp" + (i as string)))
            append imgt1 dmar2
            dmar2=#0
        }