;適当なんで応用性はないと思う
px=1,1,1,1:py=1,1,1,1
repeat
wait 15
stick k,15,1:if(k!0):gosub *key
redraw 0
color:boxf
color 255,255,255
repeat 4
pos px.cnt*16,py.cnt*16
mes cnt
loop
redraw 1
loop

*key
switch k
case 1:gosub *@f:px--:swbreak
case 2:gosub *@f:py--:swbreak
case 4:gosub *@f:px++:swbreak
case 8:gosub *@f:py++:swbreak
swend
return

*@f
i=3:j=2
repeat 3
px.i=px.j
py.i=py.j
i--:j--
loop
return