53〜80行にかけて、あちこちでKの値を操作してますが、次に撃つ弾の番号がKということなら、Aボタンが押された時のIF文の最後(ENDIFの直前)にKのカウントと、100個めチェックをすれば良いですね。 TXA[K]=Xも同じで、Aボタンが押された時のIF文の内側に移せばうまく動くと思います。