Нарисовать американский флаг - QBasic

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

Помогите пожалуйста нарисовать американский флаг.Мне очень нужно, чтобы звездочки были через цикл, то есть каждая сторона была через цикл.Спасибо за внимание. Кол-во звезд можно не точное.Помогите пожалуйста и желательно через line, for step вообщем то что по-проще.

Решение задачи: «Нарисовать американский флаг»

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

CLS
FOR I = 1 TO 15
  IF I < 10 THEN
    IF I MOD 2 = 0 THEN
      COLOR 15, 1
      LOCATE I + 5, 15: PRINT " *   *   *   *   *   * ";
      COLOR 15, 7
      PRINT SPACE$(27)
    ELSE
      COLOR 15, 1
      LOCATE I + 5, 15: PRINT "   *   *   *   *   *   ";
      COLOR 15, 4
      PRINT SPACE$(27)
    END IF
  ELSE
    IF I MOD 2 = 0 THEN
      COLOR 15, 7
      LOCATE I + 5, 15: PRINT SPACE$(50)
    ELSE
      COLOR 15, 4
      LOCATE I + 5, 15: PRINT SPACE$(50)
    END IF
  END IF
NEXT I
COLOR 7, 0

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

Сначала мы очищаем экран с помощью команды CLS.
Затем мы используем цикл FOR для прохода по всем строкам от 1 до 15.
В каждой итерации цикла проверяем, является ли номер строки четным (с помощью оператора MOD).
Если номер строки четный, то печатаем звездочки на флаговом поле с помощью команды PRINT * * * * * *.
Если номер строки нечетный, то печатаем звездочки на флаговом поле с помощью команды PRINT * * * * * .
Если номер строки больше или равен 10, то печатаем горизонтальные линии на флаговом поле с помощью команды PRINT SPACE$(27).
Если номер строки меньше 10, то печатаем вертикальные линии на флаговом поле с помощью команды PRINT SPACE$(50).
После завершения цикла, печатаем горизонтальные линии на флаговом поле с помощью команды PRINT SPACE$(50).
Задаем цвета для печати с помощью команды COLOR 15, 1 и COLOR 15, 4.
Используем команду LOCATE для определения места печати на экране.
Используем команду PRINT для вывода символов на экран.
Используем команду NEXT I для перехода к следующей итерации цикла.
Используем команду COLOR 7, 0 для установки цвета курсора обратно в исходный.
В данном коде нет использования переменных, поэтому здесь нет элементов название переменной: значение переменной.