§ Скриншот

§ Исходный код

1SCREEN 13
2
3WINDOW (-5, 0)-(5, 10)
4RANDOMIZE TIMER
5
6DO
7
8  SELECT CASE RND
9
10    CASE 0 TO .01
11      nextx = 0
12      nexty = .16 * y
13    CASE .01 TO .08
14      nextx = .2 * x - .26 * y
15      nexty = .23 * x + .22 * y + 1.6
16    CASE .08 TO .15
17      nextx = -.15 * x + .28 * y
18      nexty = .26 * x + .24 * y + .44
19    CASE ELSE
20      nextx = .85 * x + .04 * y
21      nexty = -.04 * x + .85 * y + 1.6
22
23  END SELECT
24
25  x = nextx
26  y = nexty
27  i = i + 1
28  IF RND < .5 THEN c = 2 ELSE c = 10
29
30  PSET (x, y), c
31
32LOOP WHILE i < 32768
33
34SLEEP 0