XProfan

Cls
font 2
declarar h$,dez!
imprimir "Test\n----\n"

Repeat

    imprimir "hex2dez: ";:input h$

    if h$="":h$="1FFFFFFFFFFFFF":imprimir h$,"=", :endif

        imprimir format$("##################0",hex2dez(h$))
        imprimir "dez2hex: ";:input dez!
        caso dez!=-1:dez!= 9007199254740991'1099511627775 'Testwerte
        imprimir dez2hex(dez!)

    until %key=27

    End

    proc dez2hex :parámetros dez!

        if dez!>9007199254740991

            imprimir "Overflow Error"
            volver 0

        endif

        declarar m!,n!,h$

        repeat

            n!=intf(dez!/16):
            m!=round(dez!-16*n!,0)
            caso m!>9:m!=m!+7
            h$=chr$(m!+48)+h$
            dez!=n!

        until dez!<=0

        volver h$

    ENDPROC

    proc hex2dez :parámetros h$

        declarar d$,a&,dn!
        h$=upper$(h$)
        h$=trim$(h$)

        if left$(h$,1)="-"

            imprimir "Undefined Sign Error"
            volver 0

        endif

        whileloop len(h$)

            d$=mid$(h$,&bucle,1)
            a&=ord(d$)-48
            caso a&>9:a&=a&-7
            dn!=16*dn!+a&

        endwhile

        volver dn!

    ENDPROC

    proc intf :parámetros x!

        var s!=(x!>0)-(x!<0)
        x!=abs(x!)
        x!=x!-frac(x!)
        volver s!*x!

    ENDPROC

    proc frac :parámetros x!

        var s!=(x!>0)-(x!<0)
        x!=abs(x!)
        x!=x!-round(x!,0)
        caso x!<0:x!=1+x!
        volver s!*x!

    ENDPROC