SET MODE "color"
SET WINDOW 0,1026,0,750
set background color "white"
LET x=1
LET y=1
LET a=0
LET b =0
LET s1=800
LET s2 =s1*750/1026
RANDOMIZE
PRINT"TRIFRACTION X SINE I.F.S."
PRINT"BY R.L.BAGULA 30 OCT 1999 ©"
FOR n= 1  TO  2000000
    LET a =RND
    LET b=RND
    IF a <= 1/3 THEN
       LET x1= sin(1/(x+1))/(1+X) 
       LET y1=Y/(1+Y) 
    END IF
    IF  a<=2/3 AND a>1/3 THEN
       LET x1=X/2 
       LET y1=Y/2 
    END IF
    IF  a<= 1 AND a>2/3 THEN
       LET x1= X/(1+X) 
       LET y1=sin(1/(y+1))/(1+Y) 
    END IF
    SET COLOR 255
    LET x=x1 
    LET y=y1 
    IF n>10 THEN PLOT 1026/2+s1*x-300,750/2+s2*y-200
NEXT n
END