この処理と、「4.自機の弾を移動する」はメインループ内に入れます。
　弾は、押しっぱなしで連射することを前提とします。一昔前は、オプションに「連射ＯＦＦ／ＯＮ」という項目がありました。今のシューティングにはそういった項目さえなく、ボタンを押しっぱなしで連射するのが普通になっていると思います。
　ここでは、まっすぐ上に進む弾を出すことにします。

　弾を出すとは、こういう事です。

　　もしショットボタンが押されていたら、以下を行う。
　　　1)弾の座標(shotx.n , shoty.n)を、自機のすぐ上に設定する。
　　　2)弾の状態(shotf.n)を「存在する」にする。
　　　3)該当する座標に、弾の絵を描く。

　弾の絵をsamplecg.bmpに追加しました。ファイル中の座標、幅、高さは図の通りです。
　　
　弾のｙ座標は自機より弾の高さ分上にします。ですから、自機のｙ座標−１６ドットになります。ｘ座標は、自機のど真ん中にします。自機の幅は３２ドット、弾の幅は４ドットです。すると、自機のｘ座標＋１４ドットが真ん中になります。なお、自機の座標も弾の座標も、キャラクタの左上隅の位置です。
「自機の移動」処理で、すでに「キー、ジョイパッドの入力」サブルーチンを呼んでいます。そしてその中で、ショットボタンが押されているかどうかも判別しています。自機の処理を行ってから、弾の処理を始めるまでの時間は、無視できるほどの短いものです。新たに呼びなおす必要はありません。
　よって、ｎ番目の弾を出す処理は以下のようになります。
    if ckey=1 {
        shotx.n=playerx+14
        shoty.n=playery-16
        shotf.n=1
        ddpos shotx.n,shoty.n
        ddsetrect 96,0,4,16
        ddgcopy 1
    }

　さて、ｎはどのように決めたらいいでしょうか？　普通に考えて最初が０、次が１、次が２、最後が３ですね。ところが、２発目の弾が今敵に当たったとしたら、それは消さなければいけません。３発弾を出した時点で、２発目が消えた場合、その存在状態はこのようになります。

　このように、きれいに１が左から並ぶというわけではなく、歯抜け状態になります。４発目は配列変数のどの要素に割り当てればよいでしょうか？　１発目(shotf.0)と３発目(shotf.2)はまだ存在していますから、それに割り当てるわけにはいきません。順番通り、shotf.3でもいいのですが、空いている（shotf.nが０である）所だったらどこでもいいですね。そこで、左(shotf.0)から順に見ていき、最初に見つかった空いている要素に割り当てることにします。
    n=-1
    repeat 4
        if shotf.cnt=0 {
            n=cnt
            break
        }
    loop
　最初にnに−１を入れます。shotf.0から順に見ていき、値が０であるものを見つけたら、その時のcntをnに代入します。
　breakは、ループから抜け出す命令です。例えば上の表の場合、cntが１の時にループから抜けます。repeat文のそれ以降の処理（cntが２の時、３の時の処理）は行われません。
　４つとも値が１だった場合（４発とも存在している場合）、ｎは−１になります。この時は弾を出しません。すると、変数に値を設定する部分はこうなります。
    if n!-1 {
        shotx.n=playerx+14
        shoty.n=playery-16
        shotf.n=1
    }

　さて、メインループのこの処理を通るたびに弾を出すとどうなるでしょうか？　弾同士がくっついてしまいます。そこで、何回かに１回だけ出すことにします。例えば４回に１回とするならば、メインループ４回分ショットボタンを押し続けてやっと弾が出るということです。この処理を何回通ったかを数える変数をshotcntとします。shotcntを最初０にしておき（「2.自機の弾の変数に初期値を代入する」の所で０にしました）、ショットボタンが押されていたら１増やします。４になったら、弾を出すと同時にshotcntを０に戻します。４回に１回ですから、残りの３回の間に前の弾は進んでいて、十分な間隔があきます。
　弾の変数を設定する部分はこうなります。
    ; 自機弾の射出
    if ckey=1 {
        shotcnt=shotcnt+1
        if shotcnt=4 {
            shotcnt=0
            n=-1
            repeat 4
                if shotf.cnt=0 {
                    n=cnt
                    break
                }
            loop
            if n!-1 {
                shotx.n=playerx+14
                shoty.n=playery-16
                shotf.n=1
            }
        }
    }
　このように、何かの数を数えるものをカウンターといいます。システム変数cntもカウンターです。初期値が０で、１ずつ増えていくとは決まっていません。増えるのではなく、用途によっては減らす場合もあります。

　弾の描画は、４発のうち存在するものだけを描きます。
    ; 自機弾を描画
    repeat 4
        if shotf.cnt=1 {
            ddpos shotx.cnt,shoty.cnt
            ddsetrect 96,0,4,16
            ddgcopy 1
        }
    loop

　なお、これはあくまでも本講座での例です。「自機から弾を発射する」という簡単な処理でも、人によってアルゴリズムも違えば、出来上がるプログラムも違います。

　４発のうち存在するものだけを上に移動します。ここでは１度に１６ドット動かすことにします。一番上まで来たら、弾を消します。つまりｙ座標が０より小さくなったら、状態を「存在しない」に変えます。
    ; 自機弾の移動
    repeat 4
        if shotf.cnt=1 {
            shoty.cnt=shoty.cnt-16
            if shoty.cnt<0 { shotf.cnt=0 }
        }
    loop

　以上をふまえて、自機の弾の処理をまとめます。

	; プログラム起動時の初期設定

	; 自機弾の配列宣言
	dim shotx,4
	dim shoty,4
	dim shotf,4


	; ステージスタート時の初期設定
	repeat 4
		shotf.cnt=0
	loop
	shotcnt=0


	; メインループ

	; 自機弾の移動
	repeat 4
		if shotf.cnt=1 {
			shoty.cnt=shoty.cnt-16
			if shoty.cnt<0 { shotf.cnt=0 }
		}
	loop

	; 自機弾の射出
	if ckey=1 {
		shotcnt=shotcnt+1
		if shotcnt=4 {
			shotcnt=0
			n=-1
			repeat 4
				if shotf.cnt=0 {
					n=cnt
					break
				}
			loop
			if n!-1 {
				shotx.n=playerx+14
				shoty.n=playery-16
				shotf.n=1
			}
		}
	}

	; 自機弾を描画
	repeat 4
		if shotf.cnt=1 {
			ddpos shotx.cnt,shoty.cnt
			ddsetrect 96,0,4,16
			ddgcopy 1
		}
	loop

　自機弾の射出より移動の処理を先にしています。どうしてかというと、射出を前に行うと、その後続いて移動の処理も行ってしまい、１回目に描かれる場所が、１つ移動した位置になってしまうからです。

実行画面