10 REM Sierpinski Triangle.

   20 CLG

   30 X=RND(1):Y=RND(1)

   40 FOR K=1 TO 3000

   50   N=RND(1)

   60   IF N<=1/3 THEN X=X/2:Y=Y/2 ELSEIF N<=2/3 THEN X=(.5+X)/2:Y=(1+Y)/2 ELSE X=(1+X)/2:Y=Y/2

   70   PLOT 69,X*96,64-Y*64

   80 NEXT K