ジャンプの速さに関しては、y＝10のところをy＝5のように小さくしてみれば良いんじゃないかなと思います。 無限ジャンプしてしまう点は、JP＝1の後ろに:Y=10をついかし、16行目をIF Yく10 THEN JP＝1に書き換えてみて下さい。 わかりずらかったら画像を貼りますんで教えてくださいね