REM 
gr.open 255,0,0,0
gr.orientation 1
gr.screen w,h
gr.set.stroke 2

for k=0 to 210 step 3

for r=0 to 210 step 3

gr.color 255,255,0,0
gr.point c2,r+101,k+200

gr.color 255,0,255,0
gr.point c3,r+202,k+200

gr.color 255,0,0,255
gr.point c4,r+203,k+100

gr.color 255,255,255,200
gr.point c1, r+100,k+100

next r

next k

gr.render

cicl:

goto cicl