REM "парад звезд"
gr.open 255,0,0,0
gr.orientation 1
gr.screen w,h

 gr.CLS


for i=0 to 10000 step 1

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.point zv,x,y


gr.render

next i

pause 10000