１５行目を IF (B AND 16) && JP<=1 THEN JP=JP+1:A=-3 １６行目は・・・無条件で A=A+0.1 だけでいいかも？ 18と20行目は必要かなぁ？ 21行目の最後に「JP=0」があればいい気もします。 試していませんが、理屈的には↑でいけると思います。