C
      DO 666 ILM=1,8
      ARRAY1(ILM)=.NOT.ARRAY1(ILM)
  666 CONTINUE
      DECODE(8,701,ARRAY1)VAR8
  701 FORMAT(A8)
C
