'画面設定 acls:xscreen 3:display 1 'スプライト宣言 spset 0,0 '無限ループって怖くね？ while 1 'タッチ座標の取得 touch out t,x,y '移動済みフラグが0の場合はタッチされた場所へ移動し、移動済みフラグをオンに if f==0&&t then spofs 0,x,y:f=1 '移動済みフラグが1の場合でアニメーションしていない場合はアニメーション[(200,200)へ] if spchk(0)==0&&f==1 then spanim 0,"XY",-60,200,200 '垂直同期 vsync 1 'ループ終わったッ！第３部完ッ！ wend