26行目を IF (CY==9) AND (B AND16) THEN @SEISU にしたら、出来ると思います。