ボム（またはそれに類するもの）も、様々な種類がありますね。

• 自機の前に円形の爆煙が広がる。
• 画面中に稲妻が走り、敵全体にダメージを与える。
• 極太レーザーを発射する。

「画面のあちこちで爆発が起こり」と書きましたが、１度に１０個の爆煙を描こうと思います。そこで、「プログラム起動時の初期設定」に爆煙の座標の配列変数宣言を追加します。
    dim bombx,10:dim bomby,10

「ゲームスタート時の初期設定」で、ボムの個数を設定します。
    nbomb=3

「ステージスタート時の初期設定」で、ボム用のカウンターを−１に設定します。
    bombcnt=-1
　今までカウンターの初期値は０に設定していましたが、これについては−１の時ボムが爆発していない状態、それ以外の時は爆発中の状態とします。

　ボムを爆発させるためのボタンが必要ですので、「キー、ジョイパッドの入力」サブルーチンを修正します。ここではShiftキー、ジョイパッドのボタン２をボムボタンに割り当てます。
　変数skeyにその状態を入れるものとします。（shift keyの略です。）
        ; キー、ジョイパッドの入力
    *In_Key
        pckey=ckey
        pskey=skey　←追加
        pukey=ukey
        pdkey=dkey
        plkey=lkey
        prkey=rkey

        ckey=0
        skey=0　←追加
        ukey=0
        dkey=0
        lkey=0
        rkey=0

        digetkeystate key,0
        if key&256!0 { ckey=1 }
        if key&1!0 { ukey=1 }
        if key&2!0 { dkey=1 }
        if key&4!0 { lkey=1 }
        if key&8!0 { rkey=1 }

        digetkeystate key,1
        if key&16777216!0 { ukey=1 }
        if key&2!0 { dkey=1 }
        if key&64!0 { lkey=1 }
        if key&1048576!0 { rkey=1 }

        digetkeystate key,3　←追加
        if key&(1<<19)!0 { skey=1 }　←追加

        if njoy>0 {
            digetjoystate key,0
            if key&16!0 { ckey=1 }
            if key&32!0 { skey=1 }　←追加
            if key&1!0 { ukey=1 }
            if key&2!0 { dkey=1 }
            if key&4!0 { lkey=1 }
            if key&8!0 { rkey=1 }
        }

        return
　ジョイパッドのボタン２は第５ビットに対応しています。
　Shiftキーの入力はdigetkeystateの第２引数を３にして取得しています。３は「特殊キー」を表します。左Shiftキーは第１９ビットに対応します。ＨＭＭ．ＤＬＬのreadmeを参照していただければ分かるのですが、第２引数が０でもShiftキーの入力は取得できます。ただし、この場合左Shiftキーと右Shiftキーを、別々の入力として判別することはできません。右Shiftキーには反応させたくない場合、第２引数を３にする必要があります。
　なぜ反応させたくないかというと、「↑」キーのすぐ上にあるからです。これでは、自機を上に動かそうとして、間違ってボムを爆発させてしまうことがあります。

　ボムボタンが押されたら、ボムの個数を１つ減らし、bombcntを０に設定します。
　ボムを爆発させる条件は以下の通りです。

• 自機の状態が「通常」または「復活中」である。
• ボムボタンが押された。（ここでは、トリガタイプとします。）
• ボムが１個以上残っている。
• ボムが爆発中ではない。（爆発中に、続けてボムを使うことはできないものとします。）

　ボムが爆発中であれば、敵の弾を全部消します。爆発している間、毎回消し続けます。つまり、ボムボタンを押した瞬間に画面に存在する弾だけでなく、その後新たに発射された弾も消します。
　bombcntを１つずつ増やし、爆発完了の値（ここでは６０とします）に達したら、bombcntを−１に戻します。
    if bombcnt!-1 {
        repeat 100
            eshotf.cnt=0
        loop
        bombcnt=bombcnt+1
        if bombcnt=60 { bombcnt=-1 }
    }

　ボムが爆発中であれば、敵全部にダメージを与えます。対象となるのは通常またはダメージを受けている状態の敵です。爆発している間、毎回与え続けます。
    if bombcnt!-1 {
        repeat 10
            if (enemyf.cnt=1)|(enemyf.cnt=2) {
                enemyno=cnt
                gosub *Enemy_Dmg
            }
        loop
    }
　毎回１ずつダメージを与える処理をbombcntが６０になるまで行いますから、すべての敵に６０のダメージを与えることになります。耐久力(enelife)がそれ以下の敵は全滅します。それより硬い敵は生き残ります。もちろん、爆発の途中で出てきた敵にはもっと小さい値のダメージしか与えられません。