MODE 3
K=360
Dim SinT(K), CosT(K)
For i=0 To K
 T=i*2*Pi/K: SinT(i)=Sin(T): CosT(i)=Cos(T)
Next
Do
U=120: V=-60: D=2: N=7: A=70
Color Rnd*&HFFFFFF
If Rnd>.5 Then CLS
For J=1 To 40
For T=0 To K*2
Z=A*CosT(((T*N)\D)Mod K)
X=U+Z*CosT(T Mod K)
Y=V+Z*SinT(T Mod K)
E=X*X
R=Sqr(E+Y*Y)
F=Y+K
G=Sqr(E+F*F)
L=Y+60
I=X-120
H=Sqr(I*I+L*L)
If (G>220 And R>K) Then Continue For
If (R>380 And Abs(X)<160 And Abs(X) Mod 32>4 And R Mod 48>4) Then Continue For
If (J>1 And H<90) Then Continue For
If (-300<Y And Y<-160 And -X*2-Y>180) Then Continue For
Pixel 320+X\2,186-Y\2: Pixel 320-X\2,186-Y\2
Next T
U=Rnd*K: V=Rnd*940-520
D=Rnd*3+1: N=Rnd*5+2: A=Rnd*80+50
Color RGB(White)
Next J
Loop While Inkey$=""