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.25
        LET s2 =s1*750/1026
        RANDOMIZE
        PRINT"Star Julia I.F.S."
        PRINT"BY R.L.BAGULA 10 April 2000 (C)"
        LET r1=4
        FOR n= 1 TO 2560000
        LET a =RND
        IF rnd>.5 then LET s=1 else LET s=-1
        LET b=RND
        LET xa=-4*x +1
        LET ya=-4*y
        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=-s*cos(w)-r^.5*cos(w/2)/2
        LET y1=s*sin(w)-r^.5*sin(w/2)/2
        END IF
        IF a<= 1 AND a>1/2 THEN
        LET x1=-s*cos(w)+r^.5*cos(w/2)/2
        LET y1=s*sin(w)+r^.5*sin(w/2)/2
        END IF
        SET COLOR 255
        LET x=x1
        LET y=y1
        IF n>10 THEN PLOT 1026/2+s1*x,750/2+s2*y
        NEXT n
        END