lcPersonID = "" FOR i = 1 TO 10 lcPersonID = lcPersonID + NumToHexStr(ASC(SUBSTR(PersonID,i,1))) NEXT *-- NumToHexStr--* LPARAMETERS num LOCAL nh, nl, sh, sl If num < 0 or num > 255 RETURN "??" ENDIF nh = INT(num / 16) nl = MOD(num, 16) sh = IIF(nh < 10, chr(48 + nh), chr(55 + nh)) sl = IIF(nl < 10, chr(48 + nl), chr(55 + nl)) RETURN sh + sl