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