こういう方法もあるんですね！
非常に参考になりました。

実は配列で行おうと思っていたのですが、記載いただいたものを参考にして
一度標識に値を入れて、それを配列に移そうと思います。

コメントありがとうございました。

*IN(I)　=　NOT　*IN(I)
ARY(I)　=　%DEC(*IN(I):1:0)