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.