***

* c++

**



VOID itoax( 

    INT n, 

    LPTSTR pszBuff) 

{ 

    INT i; 

    INT j; 

     pszBuff[0] = CHAR_0; 

    pszBuff[1] = CHAR_X; 

     for (i = 5; i > 1; i--) { 

        j = n & 15; 

         if (j > 9) 

            pszBuff[i] = (TCHAR)(j + (CHAR_A - 10)); 

        else 

            pszBuff[i] = (TCHAR)(j + CHAR_0); 

         n = n >> 4; 

    } 

     pszBuff[6] = CHAR_NULL; 

}



---------



**

* Fox

*



PROCEDURE itoax

  pszBuff=""

  do whil n>0

     j = BITAND(n, 15)

     pszBuff= iif(j>9,chr(j+asc("A")-10), chr(j+asc("0")))+ pszBuff

     n = BITRSHIF(n, 4)

  enddo

ENDPROC