10 PI = 3.14159265
20 DIM A(8)
30 WIDTH% = SCREENWIDTH(0)
40 HEIGHT% = SCREENHEIGHT(0)
50 LEN% = WIDTH%/2/8
60 K = ABS(MOD(RND(0),360))+1 
60 PRINT ABS(MOD(RND(0),360))+1
70 D = PI * 2 / 12
74 IF ABS(MOD(RND(0),50))+1 = 1 THEN K = ABS(MOD(RND(0),360))+1 
75 A(0) = A(0) + SIN(K) / 10.0
80 FOR I% = 1 TO 7:A(I%) = A(I%) + (A(I% - 1) - A(I%)) * 0.1:NEXT I%
110 SETCOLOR 0,0,0:FILLRECT 0,0,WIDTH%,HEIGHT%
120 FOR J% = 0 TO 12
130 X = 0.5 * WIDTH%:Y = 0.5 * HEIGHT%
140 FOR I% = 1 TO 7
150 R =(J% * D) + A(I%):TX = X + COS(R) * LEN%:TY = Y + SIN(R) * LEN%
175 SETCOLOR 255,255-255*I%/8,255
180 DRAWLINE X,Y,TX,TY
190 X = TX:Y = TY
200 NEXT I%
210 NEXT J%
220 REPAINT:GOTO 74
