Нарисовать несколько вложенных прямоугольников - QBasic

как нарисовать несколько вложенных прямоугольников?

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

CLS
SCREEN 12
FOR i = 50 TO 100 STEP 10
  LINE (100-i, 50-i/2)-(100+i, 50+i/2), 1, B
NEXT i

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

CLS — очистка экрана
SCREEN 12 — установка номера экрана на 12
FOR i = 50 TO 100 STEP 10 — цикл, который выполняется от 50 до 100 с шагом 10
LINE (100-i, 50-i/2)-(100+i, 50+i/2), 1, B — рисование линии между точками (100-i, 50-i/2) и (100+i, 50+i/2) с помощью функции LINE, параметр 1 задает ширину линии, B — цвет линии (синий)
NEXT i — переход к следующему шагу цикла
Код повторяется от 5 до 10 раз, рисуя линии разной длины и положения в зависимости от значения переменной i