Нарисовать снежинку голубого цвета - QBasic

Формулировка задачи:

Помогите нарисовать в Basic снежинку голубого цвета. пожалуйста

Решение задачи: «Нарисовать снежинку голубого цвета»

Листинг программы

SCREEN 7
'a$ = "c2u10r30u5f5g5u5l30"
a$ = "c1u10r30u5f5g5u5l30"
a1$ = "c0u10r30u5f5g5u5l30"
FOR x = 30 TO 300 STEP 5
y = 120 + COS(x / 5) * SIN(10 * x) * 70
PRESET (x, y)
DRAW "s2a1x" + VARPTR$(a$)
DRAW "s2a2x" + VARPTR$(a$)
DRAW "s2a3x" + VARPTR$(a$)
DRAW "s2a0x" + VARPTR$(a$)
FOR i = 1 TO 10 ^ 5 + 10 ^ 4
NEXT
DRAW "s2a1x" + VARPTR$(a1$)
DRAW "s2a2x" + VARPTR$(a1$)
DRAW "s2a3x" + VARPTR$(a1$)
DRAW "s2a0x" + VARPTR$(a1$)
NEXT x

Объяснение кода листинга программы

Установка размера экрана в 7.
Задание переменной a$ значения c2u10r30u5f5g5u5l30.
Задание переменной a1$ значения c0u10r30u5f5g5u5l30.
Запуск цикла от 30 до 300 с шагом 5.
Вычисление значения переменной y на основе значения x с использованием функций COS и SIN.
Использование команды PRESET для установки текущих координат в x, y.
Использование команды DRAW для рисования снежинки с помощью символа s2a1x и значения переменной a$.
Повторение шага 7 для символов s2a2x, s2a3x и s2a0x с использованием значения переменной `a$.
Запуск цикла от 1 до 10^5 + 10^4.
Повторение шагов 6-8 для значения переменной a1$.
Завершение циклов.