XProfan

Cls
font 2
declare h$,dez!
imprimer "Test\n----\n"

Repeat

    imprimer "hex2dez: ";:input h$

    si h$=»:h$="1FFFFFFFFFFFFF":imprimer h$,"=", :endif

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

    until %clé=27

    Fin

    proc dez2hex :parameters dez!

        si dez!>9007199254740991

            imprimer "Overflow Error"
            return 0

        endif

        declare m!,n!,h$

        repeat

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

        until dez!<=0

        return h$

    endproc

    proc hex2dez :parameters h$

        declare d$,a&,dn!
        h$=upper$(h$)
        h$=$ Trim(h$)

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

            imprimer "Undefined Sign Error"
            return 0

        endif

        whileloop len(h$)

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

        endwhile

        return dn!

    endproc

    proc intf :parameters x!

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

    endproc

    proc frac :parameters x!

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

    endproc