ACLS SPSET 0,500 WHILE 1 STICK OUT STX,STY MYX=MYX+STX MYY=MYY-STY SPOFS 0,MYX,MYY VSYNC WEND でスライドパットで動かせます。