/******************** stateMENTS********************************** ** ** CHR(n) ** Esta funcao imprime todos os caracte- ** res relacionados na tabela ASCII ** ** **********************************************************************/ Código: DEF VAR cont AS INTEGER. DO cont = 1 TO 280: DISPLAY cont LABEL "Codigo" CHR(cont) LABEL "CHR" WITH FRAME f-chr DOWN . DOWN WITH FRAME f-chr. END.