またカーソルの表示ですがボタンによって位置を変更する前に表示を しているためボタンを押したときに正しい位置に表示されていません。 1446行を BT=BUTTON():OSY=SY に変更し、 1456行のVSYNCの前に IF SY!=OSY THEN LOCATE 17,OSY:PRINT " ":LOCATE 17,SY:PRINT "→" ENDIF を追加してみて下さい。