'Open-Source-IDE FreeBASIC-Compiler
'http://www.freebasic.net 

'Program for transform decimal numbers and show in different bases
deflongint a-z
dim d(63)
const max=999999999999999 
cls
do
    i=0
    input "Decimal number  (max. 999999999999999)";ni$
    input "in base (min. 2; max. 999999999999999)";bi$
    n=val(ni$):b=val(bi$)
    if str$(n)<>ni$ or str$(b)<>bi$ or n<0 or b<2 or n>max or b>max then
        ?"Wrong input!"
    else
        do until n<b
            'store digits from least significant digit up to more significant digits
            d(i)=n mod b
            n=n\b
            'count the digits
            i=i+1
        loop
        'store most significant digit
        d(i)=n mod b
        'show the digits numbers
        for i=i to 0 step -1
            'd is digit number
            ?"d";str$(d(i));" ";
        next
        ?
    end if
    ?"<Esc> for exit"
    sleep
    if inkey$=chr$(27) then end
loop