Фрактальные алгоритмы в QBasic

[student2008]

Здравствуйте! Прошу помощи при создании программы в Qbasic:

Разработать алгоритм для построения фрактального изображения на основе «черепашьей графики». Для реализации этой графики используйте возможности GML и оператора DRAW. Формируемое изображение должно базироваться на «графическом примитиве» На рисунке - то, что должно в результате получиться
У меня есть программа с фракталами, но там другая фигура:

DECLARE SUB A (i AS INTEGER)
DECLARE SUB B (i AS INTEGER)
DECLARE SUB C (i AS INTEGER)
DECLARE SUB D (i AS INTEGER)
CLS
DIM i AS INTEGER
INPUT "Poryadok krivoy", i
SCREEN 9: PSET (600, 0)
CALL A(i)

SUB A (i AS INTEGER)
IF i > 0 THEN
CALL D(i - 1): DRAW "L 20"
 CALL A(i - 1): DRAW "D 20"
 CALL A(i - 1): DRAW "R 20"
 CALL B(i - 1)
END IF
END SUB

SUB B (i AS INTEGER)
IF i > 0 THEN
CALL C(i - 1): DRAW "U 20"
 CALL B(i - 1): DRAW "R 20"
 CALL B(i - 1): DRAW "D 20"
 CALL A(i - 1)
END IF
END SUB

SUB C (i AS INTEGER)
IF i > 0 THEN
CALL B(i - 1): DRAW "R 20"
 CALL C(i - 1): DRAW "U 20"
 CALL C(i - 1): DRAW "L 20"
 CALL D(i - 1)
END IF
END SUB

SUB D (i AS INTEGER)
IF i > 0 THEN
CALL A(i - 1): DRAW "D 20"
CALL D(i - 1): DRAW "L 20"
CALL D(i - 1): DRAW "U 20"
CALL C(i - 1)
END IF
END SUB