'画面設定
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
'ループ終わったッ!第3部完ッ!
wend
1そうだね プレイ済み