BUTTON(0)をBUTTON(2)に変えてGOTOの前の行にVSYNC 1を挿入すると良い感じになりますよ。