%BEGIN
%OWNBYTEINTEGER CHAR=NL
%OWNBYTEINTEGERARRAY XCHAR(1:10)=NL(*)
      WRITE(CHAR,5)
      WRITE(XCHAR(5),5)
      NEWLINE
%ENDOFPROGRAM