色々変えましたがZが-1になってしまいました IF Z>=1 THAN ・・・ をPRUNTの前にもってきたけどだめでした。