僕のSTGでは Z=弾数 DIM S[Z] FOR L=0 TO S-1 IF ボタン&&!S[L]THEN 発射 　　 S[L]=1 BREAK ENDIF NEXT のようにしています。