23行目を消して、27行目(whileとwendの間)にIF (BUTTON(2) AND 16)==16 THEN BEFP 8 にすれば一応動きます。 あとwhile の後にVSYNK　1かWAIT 1を入れることをオススメします。