自機 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