チラチラ
x=0
y=0
sx=5
sy=5
*main
redraw 1
redraw 0
color 255,255,255
boxf
x+=sx
y+=sy
await 1
if x>600:sx*=-1:x=600
if y>440:sy*=-1:y=440
if x<0:sx*=-1:x=0
if y<0:sy*=-1:y=0
color 0,0,0
boxf x,y,x+40,y+40
await 50
goto*main
ちらちらなし(redraw を入れる)
x=0
y=0
sx=5
sy=5
*main
redraw 1
redraw 0
color 255,255,255
boxf
x+=sx
y+=sy
await 1
if x>600:sx*=-1:x=600
if y>440:sy*=-1:y=440
if x<0:sx*=-1:x=0
if y<0:sy*=-1:y=0
color 0,0,0
boxf x,y,x+40,y+40
await 50
goto*main