10 RAD:PI = 3.1415926535897931
20 DIM A(8)
30 WIDTH% = SCREENWIDTH(0)
35 HEIGHT% = SCREENHEIGHT(0)
40 IF WIDTH% > HEIGHT% THEN LEN% = HEIGHT%/2/8:GOTO 60
50 LEN% = WIDTH%/2/8
60 K = PI * ABS(MOD(RND(0),360))  / 180.0
70 D = PI * 2 / 12
74 IF ABS(MOD(RND(0),50)) = 0 THEN K = ABS(MOD(RND(0),360)) * PI / 180.0
75 A(0) = A(0) + SIN(K) / 10.0
80 FOR I% = 1 TO 7
90 A(I%) = A(I%) + (A(I% - 1) - A(I%)) * 0.1
100 NEXT I%
110 SLEEP 0:CLS
120 FOR J% = 0 TO 12
130 X = 0.5 * WIDTH%:Y = 0.5 * HEIGHT%
140 FOR I% = 1 TO 7
150 R = (D * J%) + A(I%)
160 TX = X + COS(R) * LEN%
170 TY = Y + SIN(R) * LEN%
180 DRAWLINE X,Y,TX,TY
190 X = TX:Y = TY
200 NEXT I%
210 NEXT J%
220 GOTO 74
