MODE 2
FRAMEBUFFER layer
FRAMEBUFFER layer top
FRAMEBUFFER write T
'Box i,MM.VRes\6*2,MM.HRes\4,MM.VRes\3,10,RGB(red),R
GB(green)
FRAMEBUFFER write l
'Circle MM.HRes\2,MM.VRes\2,MM.HRes\4,10,1,RGB(blue)
,RGB(yellow)
'Text MM.HRes\2,MM.VRes\2,"MIDDLE",CM,,3,RGB(CYAN),-
1
d=1
i=0
rr=0
x=Sin(Rad(0))*40
y=Cos(Rad(0))*40
Do
FRAMEBUFFER write n
r = Rnd * 255
g = Rnd * 255
b = Rnd * 255
Circle Rnd * MM.HRes, Rnd * MM.VRes, Rnd * MM.HRes/7
,,, 0, RGB(r,g,b)
Inc rr,3
xl=x
yl=y
x=Sin(Rad(rr))*40
y=-Cos(Rad(rr))*40
FRAMEBUFFER wait
FRAMEBUFFER write l
Circle MM.HRes\2+xl,MM.VRes\2+yl,MM.HRes\6,0,1,0,0
Circle MM.HRes\2+x,MM.VRes\2+y,MM.HRes\6,10,1,RGB(bl
ue),RGB(yellow)
Text MM.HRes\2+x,MM.VRes\2+y,"MIDDLE",CM,,2,RGB(CYAN
),-1
FRAMEBUFFER write t
Box i,MM.VRes\6*2,MM.HRes\4,MM.VRes\3,0,0,0
Inc i,d
Box i,MM.VRes\6*2,MM.HRes\4,MM.VRes\3,10,RGB(red),RG
B(green)
Text i+MM.HRes/8,MM.VRes\2,"TOP",CM,,3,RGB(magenta),
RGB(green)
If i>=MM.HRes/4*3 Then d=-1
If i=0 Then d=1
Loop