Tabela ASCII

Tabela ASCII

Código:

DEFINE VARIABLE i_cont AS INTEGER.
DEFINE VARIABLE c_character AS CHARACTER FORMAT “x(10)” EXTENT 255.
DO i_cont = 1 TO 255:
ASSIGN c_character[i_cont] = STRING(i_cont) + ‘ - ‘ + CHR(i_cont).
END.
DISPLAY c_character WITH NO-LABELS TITLE ” ASCII Table “.