Converter para HexaDecimal

Código:

FUNCTION hex RETURNS CHARACTER (INPUT asc-value AS INTEGER).
   DEF VAR j AS INT  NO-UNDO.
   DEF VAR h AS CHAR NO-UNDO.
   DO WHILE TRUE:
      j = asc-value MODULO 16.
      h = (IF j < 10 THEN STRING(j) ELSE CHR(ASC("A") + j - 10)) + h.
      IF asc-value < 16 THEN LEAVE.
      asc-value = (asc-value - j) / 16.
   END.
   RETURN ("0x" + h).
END FUNCTION.

DEF VAR i AS INT NO-UNDO.
DO i = 1 TO 255 WITH DOWN:
  DISP i hex(i).
END.