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