10 REM Sierpinski Triangle by Texas Instruments.

   20 REM Taken from the TI-83 Plus Guidebook.

   30 CLG

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

   50 FOR K=1 TO 3000

   60   N=RND(1)

   70   IF N<=1/3 THEN X=.5*X : Y=.5*Y

   80   IF 1/3<N AND N<=2/3 THEN X=.5*(.5+X) : Y=.5*(1+Y)

   90   IF 2/3<N THEN X=.5*(1+X) : Y=.5*Y

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

  110 NEXT K