SET MODE "color"
        SET WINDOW 0,1026,0,750
        SET BACKGROUND COLOR "white"
        LET x=0.25
        LET y=0
        LET a=0
        LET b =0
        LET s1=410/2
        LET s2 =s1*750/1026
        RANDOMIZE
        PRINT"3 STAR HEX-Julia I.F.S."
        PRINT"BY R.L.BAGULA 10 April 2000 (C)"
        LET r1=4
        LET W=0
        FOR n= 1 TO 2560000
        LET a =RND
        LET xa=-4*x+COS(4*W)
        LET ya=-4*Y+SIN(4*W)
        LET r=sqr(xa^2+ya^2)
        IF xa<>0 then LET w=angle(xa,ya) else LET w=0
        IF a <= 1/2 THEN
        LET x1=- COS( W)-r^.5*cos(w/2)/2
        LET y1=- SIN( W)+r^.5*sin(w/2)/2
        END IF
        IF a<= 1 AND a>1/2 THEN
        LET x1=- COS( W)+r^.5*cos(w/2)/2
        LET y1=- SIN( W)-r^.5*sin(w/2)/2
        END IF
        SET COLOR 255-16*int(a*4)
        LET x=x1
        LET y=y1
        IF n>10 THEN PLOT 1026/2+s1*x+50,750/2+s2*y
        NEXT n
        END