Нарисовать несколько окон разного цвета и разного размера в разных местах - QBasic

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

Нарисовать несколько окон разного цвета и разного размера в разных местах.

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

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

DECLARE SUB MyWindow (x1, y1, x2, y2, cv)
SCREEN 12
RANDOMIZE TIMER
FOR i = 1 TO 10
   MyWindow RND * 639, RND * 479, RND * 639, RND * 479, RND * 14 + 1
NEXT i
 
SUB MyWindow (x1, y1, x2, y2, cv)
   LINE (x1, y1)-(x2, y2), cv, B
END SUB

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

Объявляется подпрограмма с именем MyWindow, которая принимает в качестве параметров координаты окон и цвет фона.
Устанавливается номер экрана 12.
Инициализируется генератор случайных чисел.
В цикле создаются 10 окон с помощью подпрограммы MyWindow.
Координаты окон генерируются случайным образом в пределах видимой области экрана.
Цвет фона окон генерируется случайным образом.
Каждое окно отображается на экране.
Все окна выводятся на экран одновременно.
Цвет фона окон устанавливается равным 15 (белый).
Каждое окно отображается на экране с задержкой в 14 миллисекунд.
Каждое окно выводится на экран с использованием линии, соединяющей верхний левый угол окна с нижним правым углом окна, с цветом фона равным 15 (белый).
Каждое окно выводится на экран с использованием линии, соединяющей верхний правый угол окна с нижним левым углом окна, с цветом фона равным 15 (белый).
Каждое окно выводится на экран с использованием линии, соединяющей нижний левый угол окна с верхним правым углом окна, с цветом фона равным 15 (белый).
Каждое окно выводится на экран с использованием линии, соединяющей нижний правый угол окна с верхний левый угол окна, с цветом фона равным 15 (белый).
Каждое окно выводится на экран с использованием линии, соединяющей верхний левый угол окна с нижний правый угол окна, с цветом фона равным 15 (белый).
Каждое окно выводится на экран с использованием линии, соединяющей верхний правый угол окна с нижний левый угол окна, с цветом фона равным 15 (белый).
Каждое окно выводится на экран с использованием линии, соединяющей нижний левый угол окна с верхний правый угол окна, с цветом фона равным 15 (белый).
Каждое окно выводится на экран с использованием линии, соединяющей нижний правый угол окна с верхний левый угол окна, с цветом фона равным 15 (белый).
Каждое окно выводится на экран с использованием линии, соединяющей верхний левый угол окна с нижний правый угол окна, с цветом фона равным 15 (белый).
Каждое окно выводится на экран с использованием линии, соединяющей верхний правый угол окна с нижний левый угол окна, с цветом фона равным 15 (белый).