SET MODE "color"
SET WINDOW 0,1920,0,1024
SET BACKGROUND COLOR "white"
LET x=.5
LET y=.75
LET a=0
LET b =0
LET s1=850
LET s2 =s1*1024/1920
RANDOMIZE
PRINT"trianguliod FRACTION  I.F.S. "
PRINT"BY R.L.BAGULA 14 feb 20002 ©"
FOR n= 1  TO  3000000
    LET a =RND
    LET b=RND
    IF a <= 1/3 THEN
       LET x1= 2*X*Y/(X^2+Y^2)
       LET y1=(Y^2-X^2)/(Y^2+X^2)
    END IF
    IF  a<=2/3 AND a>1/3 THEN
       LET x1=2/(X+2)-1
       LET y1=2/(Y+2)-1
    END IF
 
    IF  a<= 1 AND a>2/3 THEN
       LET x1=(X^2-Y^2)/(X^2+Y^2) 
       LET y1=2*X*Y/(Y^2+X^2) 
    END IF
    SET COLOR 255
    LET x=x1
    LET y=y1
  
    IF n>10 THEN PLOT 1920/2+s1*x,1024/2+s2*y
NEXT n
END