'*************************************************************************
'
'   Hex32$ Routine f�r DWORD in PowerBASIC 3.0/3.2
'
'   entwickelt von / developed by   :  Thomas Gohel
'
'                           Fido    :  Thomas Gohel@2:2410/330.1
'                           InterNet:  author@pbsound.snafu.de
'                           Homepage:  http://www.snafu.de/~pbsound/
'
'*************************************************************************

d??? = &h1111FF11
PRINT DHex$(d???)

FUNCTION DHex(HexDWord???) AS STRING
        DIM Lo AS WORD
        DIM Hi AS WORD
        ! les  bx, [bp+6]
        ! mov  ax, es:[bx+0]
        ! mov  Lo??, ax
        ! mov  ax, es:[bx+2]
        ! mov  Hi??, ax
        DHex = RIGHT$("000" + HEX$(Hi??), 4) + RIGHT$("000" + HEX$(Lo??), 4)
END FUNCTION