BEGIN
OWNBYTEINTEGER CHAR=NL
OWNBYTEINTEGERARRAY XCHAR(1:10)=NL(*)
      if Char=10 and xchar(5)=10 then printstring("Test OK") elsec
         printstring("FAIL")
      NEWLINE
ENDOFPROGRAM