program because_I_can;
global
    string symbols = "0123456789ABCDEF";
    string test;
    int test2;
begin
    decToBase(16,2,&test);
    frame;
    write(0,20,20,3,test);
    test2=baseToDec("FA",16);
    write_int(0,20,40,3,&test2);
    while (!key(_esc))
        frame;
    end
end

string decToBase(int a, int b, string pointer s); // Decimal number, base of new representation, return string pointer.
private
    string result;
    int c=0;
    int d=0;
begin
    if (b>16) *s="";return;end
    if (b<=1) *s="";return;end
    while (a=>pow(b,c+1))
        c++;
    end
    while (c>=0)
        d=0;
        while (a>=(pow(b,c)*(d+1)))
            d++;
        end
        result=result+symbols[d];
        a-=pow(b,c)*d;
        c--;
    end
    *s=result;
    return;
end

int baseToDec(string a, int b);
private
    int result=0;
    int c;
    int d;
begin
    a=ucase(a);
    for (c=0;c<len(a);c++)
        d=find(symbols,a[c]);
        result+=d*pow(b,len(a)-c-1);
    end
    return result;
end