404行目の VAR　B=BUTTON(1) の前に WHILE BUTTON(1)!=0:WEND を入れたら症状が改善しました。ボタンのオフチェックを した方がいいと思います。