/******************** stateMENTS********************************** ** ** PUT CHR(n) ** Imprime qualquer caracter constante ** na relacao da tabela ASCII ** **********************************************************************/ Código: OUTPUT TO dados.txt. FOR EACH customer WITH NO-BOX: PUT CHR(34) customer.cust-num customer.name customer.phone CHR(34). PUT SKIP. END.