MODE 1
Do
 Q=Int(Rnd*5+3): If Q=7 Then Q=30
 A=Rad(360/Q): S=Sin(A): C=Cos(A)
 X=Rnd*MM.HRes: Y=Rnd*MM.VRes
 R=Rnd*(Sqr(Y+X)/20)*40+16
 For L=-R/5 To R/5
   N=(Abs(L)<R/8)*Int(Rnd*2)
   U=R+L: V=U
   X1=X+U: Y1=Y+V
   For I=1 To Q
     T=V*C-U*S: U=V*S+U*C: V=T
     X2=X+U: Y2=Y+V
     Line X1,Y1,X2,Y2,,N
     X1=X2: Y1=Y2
   Next
 Next
Loop While Inkey$=""