Triggers

function conv takes integer int , string abc returns string
    local string ausgabe = ""
    local integer eingabe = int
    loop
        exitwhen eingabe == 0
        set ausgabe = SubStringBJ(abc,ModuloInteger(eingabe,StringLength(abc)),ModuloInteger(eingabe,StringLength(abc))) + ausgabe
        set eingabe = (eingabe - ModuloInteger(eingabe,StringLength(abc))) / StringLength(abc)
    endloop
    loop
        exitwhen SubStringBJ(ausgabe,1,1) != "0"
        set ausgabe = SubStringBJ(ausgabe,2,StringLength(ausgabe))
    endloop
    return ausgabe
endfunction

function unconv takes string str , string abc returns integer
    local integer ausgabe = 0
    local string eingabe = str
    local integer i = 1
    local integer j = 1
    local integer array mal
    set mal[1] = StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc)
    set mal[2] = StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc)
    set mal[3] = StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc)
    set mal[4] = StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc)
    set mal[5] = StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc)
    set mal[6] = StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc)
    set mal[7] = StringLength(abc) * StringLength(abc) * StringLength(abc) * StringLength(abc)
    set mal[8] = StringLength(abc) * StringLength(abc) * StringLength(abc)
    set mal[9] = StringLength(abc) * StringLength(abc)
    set mal[10] = StringLength(abc)
    set mal[11] = 1
    loop
        exitwhen SubStringBJ(eingabe,i,i) == ""
        loop
            exitwhen SubStringBJ(abc,j,j) == ""
            if SubStringBJ(eingabe,i,i) == SubStringBJ(abc,j,j) then
                set ausgabe = ausgabe + (j * mal[i + (11 - StringLength(eingabe))])
            endif
            set j = j + 1
        endloop
        set j = 1
        set i = i + 1
    endloop
    return ausgabe
endfunction