SET MODE "color"
SET WINDOW 0,785,0,565
SET BACKGROUND COLOR "white"
LET x=0.3
LET y=.1
LET a=0
LET b =0
LET s1=310/1.5
LET s2 =s1*565/785
RANDOMIZE
PRINT" Cantor set curved I.F.S."
print" union of circle curve set with Cantor dust set"
PRINT" BY R.L.BAGULA 25 July 1998 ©"
FOR n= 1  TO  2560000
    LET a =RND
    IF rnd>.5 then LET p=1 else LET p=-1
    LET r=sqr(x*x+y*y)
    IF a <= 1/2 THEN
       LET x1=x/r-1
       LET y1=p*y/r
    END IF
    IF  a<= 3/4 AND a>1/2 THEN
       LET x1=x/3
       LET y1=y/3
    END IF
    IF  a<= 1 AND a>3/4 THEN
       LET x1=x/3+2/3
       LET y1= y/3
    END IF
    SET COLOR 255
    LET x=x1
    LET y=y1
    IF n>10 THEN PLOT 785/2+s1*x+50,565/2+s2*y
NEXT n
END

True Basic Program:
SET MODE "color"
SET WINDOW 0,785,0,565
SET BACKGROUND COLOR "white"
LET x=0.3
LET y=.1
LET a=0
LET b =0
LET s1=310/2.1
LET s2 =s1*565/785
RANDOMIZE
PRINT" Cantor set triangulated I.F.S."
PRINT" union of triangle measure   curve set with Cantor dust set"
PRINT" BY R.L.BAGULA 25 July 1998 ©"
FOR n= 1  TO  2560000
    LET a =RND
    LET b=RND
    LET w=angle(x,y)
    LET r=sqr(x*x+y*y)*Max(Max(-cos(w+2*pi/3),-cos(w+4*pi/3)),-cos(w+6*Pi/3))
    REM   curve  measured onto IFS( triangle  )
    REM with alternating y to make double sided
    IF rnd >.5 then LET p=1 else LET p=-1
    IF a <= 1/2 THEN
       LET x1=x/r-1
       LET y1=p*y/r
    END IF
    REM Cantor dust (page 160 Edgar)
    IF  a<= 3/4 AND a>1/2 THEN
       LET x1=x/3-4/3
       LET y1=y/3-p*(8/7) 
    END IF
    IF  a<= 1 AND a>3/4 THEN
       LET x1=x/3+2/3
       LET y1= y/3
    END IF
    SET COLOR 255
    LET x=x1
    LET y=y1
    IF n>10 THEN PLOT 785/2+s1*x+75,565/2+s2*y
NEXT n
END