acls
spseto,o
f=4:spset 0,b
spanim 0,"i" ,f,b,f,b+1,f,b+2,f,b+1,0
spofs 0,100,100
while 1
b=button()
if b and #right then x=x+1.5
if b and #left then x=x-1.5
if b and #a then gosub @1
spofs 0,x,y
vsync
wend
@1
spchr 0,1
beep 3
spchr 0,0
vsync2
return
上のようなプログラムです。小文字で読みにくくてすみません。