自機 X,Yとして、
メインループ内に、
IF BUTTON(2) AND #A THEN 'Aが押されたら発射
SPSET 3390 OUT SP '弾のグラフィックを空き番号にセット
SPOFS SP,X,Y '初期位置セット
SPFUNC SP,"TAMA_IDOU" '動きのサブルーチン名をセット
ENDIF
CALL SPRITE 'SPFUNCした内容を、設定した全スプライトで実行
メインループの外に、
DEF TAMA_IDOU
DIM TX,TY,SP=CALLIDX 'CALLIDXで、処理するスプライトNoを取得
SPOFS SP OUT TX,TY '今の座標を取得
SPOFS SP,TX,TY-3 '上に移動させて表示
IF TY<-16 THEN SPCLR SP '弾が画面外に出たら消す(SP解放)
END
