REM "звезды"
gr.open 255,0,0,0
gr.orientation 1
gr.screen w,h
gr.set.stroke 4

ccc:

gr.cls % если поставить "!" будет другой эффект

for i=0 to 100

x=0+(rnd()*w)
y=0+(rnd()*h)

r=255*((sgn(rnd()-0.5)+1))
g=255*((sgn(rnd()-0.5)+1))
b=255*((sgn(rnd()-0.5)+1))

gr.color 255,r,g,b,1

!gr.render % если убрать "!"

gr.point zv,x,y

next i

gr.render % если поставить "!"

goto ccc