10 SCREEN 1
20 WINDOW (0, 1)-(1, O)
25 RANDOMIZE (TIMER)
30 x = RND
40 y = RND
50 FOR k = 1 TO 23000
60 n = RND
70 IF n < (1 / 3) OR n = (1 / 3) THEN x = .5 * x
80 IF n < (1 / 3) OR n = (1 / 3) THEN y = .5 * y
90 IF n > (1 / 3) AND n < (2 / 3) OR n = (2 / 3) THEN x = .5 * (.5 + x)
100 IF n > (1 / 3) AND n < (2 / 3) OR n = (2 / 3) THEN y = .5 * (1 + y)
110 IF n > (2 / 3) THEN x = .5 * (1 + x)
120 IF n > (2 / 3) THEN y = .5 * y
130 PSET (x, y)
140 NEXT k