For文の繰り返しの中に、vsync 1 を足してください。次に、sx-1 と sx+1 の部分を sx=sx-1 sx=sx+1 と書いてあげてください。これでスプライトが動きます。 でも、for文がこのままだと、for文の後ろのプログラムが実行されないので変える必要があります。 また、button関数でバグが出るかもしれません。その時は、 k=button(0) If k==4 ... If k==8 ... というようにしてみて下さい。