acls spset 0,1 bx=100:by=100:vx=1:vy=1 @loop spofs 0,bv,by if bx<=0 then vx=1 if bx>＝400 then vx=-1 if by<=0 then vy=1 if by>=240 then vy=-1 bx=bx+vx:by=by+vy vsync goto @loop これでいいかな？