§ Фрактал Дракона

110 DIM X(16): DIM Y(16)
220 FOR I=1 TO 4
330 FOR J=1 TO 4
440 LET K=4*I+J-4
550 LET X(K)=J-3: LET Y(K)=I-3
660 NEXT J: NEXT I
770 LET X(2)=0: LET Y(2)=-3
880 LET X(8)=2: LET Y(8)=0
990 LET X(9)=-3: LET Y(9)=-1
10100 LET X(15)=-1: LET Y(15)=2
11110 FOR I=1 TO 16
12120 FOR J=1 TO 16
13130 FOR K=1 TO 16
14140 LET XX=16*X(I)+4*X(J)+X(K)
15150 LET YY=16*Y(I)+4*Y(J)+Y(K)
16160 PLOT 126+XX,88+YY
17170 NEXT K: NEXT J: NEXT I

§ Папоротник

110 PAPER 0: INK 4: BORDER 0: CLS: LET nx = 0: LET ny = 0: LET x = 0: LET y = 0
220 LET r = RND
330 IF r <= 0.01 THEN GO TO 70
440 IF r <= 0.08 THEN GO TO 80
550 IF r <= 0.15 THEN GO TO 90
660 LET nx = .85 * x + .04 * y
761 LET ny = -.04 * x + .85 * y + 1.6
862 GO TO 100
970 LET nx = 0
1071 LET ny = .16 * y
1172 GO TO 100
1280 LET nx = .2 * x - .26 * y
1381 LET ny = .23 * x + .22 * y + 1.6
1482 GO TO 100
1590 LET nx = -.15 * x + .28 * y
1691 LET ny = .26 * x + .24 * y + .44
17100 LET x = nx: LET y = ny
18110 PLOT OVER 1;128 + x*15, y*15
19120 GO TO 20