自分の回答です。 A=1023REPEAT B=RND(10)IF A AND 1<<B THEN ?B;:A=A XOR 1<<B ENDIF UNTIL!A