#ifdef _debug
buffer 1,480,720
cls 4
color 200,200,200
repeat 35,1
line -1,cnt*20,481,cnt*20
loop
repeat 23,1
line cnt*20,-1,cnt*20,720
loop
#endif
screen 0,480,720
rad = 0.0
repeat
redraw 0
color 255,255,255
boxf
color
rad += 0.03
x = 240+cos(rad)*100
y = 240+sin(rad)*160
circle x-5,y-5,x+5,y+5
#ifdef _debug
gmode 2
gcopy 1,0,0,480,720
gmode 0
#endif
redraw 1
await 16
loop
じもで2はべんりですね