またまた失礼します IF A==0　THEN も IF A==1　THEN の間違いですね。恥ずかしい。