option explicit
option default none
dim x%(9),xd%(9)
dim y%(9),yd%(9)
dim integer i,c,f, xp, yp,k,t
dim float s
' Work in 320x200 resolution RGB565
mode 3,16
cls
'create the coordinates of a star outline
for i=0 to 9 step 2
   x%(i)=-(SIN(rad(i*36))*20)
   y%(i)=-(COS(rad(i*36))*20)
   x%(i+1)=-(SIN(rad((i+1)*36))*7.6)
   y%(i+1)=-(COS(rad((i+1)*36))*7.6)
next i
'Set to write to page 1 and clear it
page write 1
cls
'create 40 random stars on page 1 using the polygon fill command
do
   c=rnd()*255 + ((rnd()* 255)<<8) + ((rnd()* 255)<<16)
   f=rnd()*255 + ((rnd()* 255)<<8) + ((rnd()* 255)<<16)
   xp=rnd()*mm.hres
   yp=rnd()*mm.vres
   s=rnd()
   t=0
   for i=0 to 9
       xd%(i)=x%(i)*s+xp
       yd%(i)=y%(i)*s+yp
       if xd%(i)<0 or yd%(i)<0 or xd%(i)>=MM.Hres or yd%(i)>=MM.Vres then t=1
   next i
   if t=0 then
       polygon xd%(), yd%(), c, f
       k=k+1
   endif
loop until k=40
k=0
'
'Now lets see how fast scroll really is
do
   page copy 1 to 0,d 'copy page 1 to page 0 during frame blanking
   page scroll 1,2,1 'scroll page 1 immediately after
loop