10 CLEAR ALL
20 SCREEN LOAD "IMG_7455.JPG"
30 SLEEP
40 SCREEN BITMAP 1280,800
50 RANDOMIZE TIMER
60 np=800:n=180:m=30:k=0.02
70 FOR i=0 TO n
80     x=RND(1):y=RND(1)
90     FOR j=0 TO m
100         x_pixel=INT(np*x):y_pixel=INT(np*y)
110         screenX=x_pixel+(1280-np)/2
120         screenY=y_pixel
130         IF j>0 THEN
140             color=prevX*prevX+prevY*prevY
150             rr=4*(color MOD 256)
160             gg=color MOD 256
170             bb=(255-color DIV 2) MOD 256
180             INK RGB(rr,gg,bb)
190             LINE prevX,prevY,screenX,screenY
200         END IF
210         prevX=screenX:prevY=screenY
220         xx=2*x-1:yy=2*y-1
230         IF xx<>0 THEN an=ATN(yy/xx) ELSE an=PI/2*SGN(yy)
240         IF xx<0 THEN an=an+PI*SGN(yy)
250         an=an+4*PI/3+SIN(6*PI*SQR(xx*xx+yy*yy))/4
260         x=x+k*COS(an):y=y+k*SIN(an)
270         IF x<=0 OR x>=1 OR y<=0 OR y>=1 THEN EXIT FOR
280     NEXT j
290 NEXT i
300 END
