Заполнить экран монитора рисунком паркета "елочка" - QBasic

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

Помогите с задачей. Заполнить экран монитора рисунком паркета "елочка" из прямоугольных дощечек (клепок) заданного размера. Дробные числа при вводе тоже допускаются. А каждая дощечка должна быть обведена по контуру другим цветом.

Решение задачи: «Заполнить экран монитора рисунком паркета "елочка"»

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

                            CONST Pi = 3.14159265358#
CONST U45 = Pi / 4
DIM Cv1 AS INTEGER
CLS : INPUT "Dlina doski: ", DlinDosk
Cv1 = 7      ' Цвет обводки
  SCREEN 12
 
XCounter = 0         ' Счётчики опорной точки
YCounter = 0
 
PlusX = DlinDosk * COS(U45) ' Точно соответствуем длине доски
PlusY = PlusX
PlusX2 = PlusX
PlusY2 = -PlusY
 
PlusX3 = PlusX2 / 2
PlusY3 = PlusY2 / 2
PlusX4 = PlusX / 2
PlusY4 = PlusY / 2
 
 
DO
  DO
   ' Главная точка отсчёта
    DsX = XCounter * PlusX
    DsY = YCounter * PlusY
      ' Посчитаем точку 2
      DsX2 = DsX + PlusX: DsY2 = DsY + PlusY
     
        ' Посчитаем точку 3
      DsX3 = DsX2 + PlusX3: DsY3 = DsY2 + PlusY3
 
        ' Посчитаем точку 4
      DsX4 = DsX + PlusX3: DsY4 = DsY + PlusY3
 
        ' Посчитаем точку 5
      DsX5 = DsX2 + PlusX4: DsY5 = DsY2 + PlusY4
 
        ' Посчитаем точку 6
      DsX6 = DsX5 + PlusX2: DsY6 = DsY5 + PlusY2
 
        ' Посчитаем точку 7
      DsX7 = DsX2 + PlusX2: DsY7 = DsY2 + PlusY2
     
        XCounter = XCounter + 2
      LINE (DsX, DsY)-(DsX2, DsY2), Cv1
      LINE (DsX2, DsY2)-(DsX3, DsY3), Cv1
      LINE (DsX, DsY)-(DsX4, DsY4), Cv1
      LINE (DsX3, DsY3)-(DsX4, DsY4), Cv1
 
      LINE (DsX2, DsY2)-(DsX5, DsY5), Cv1
      LINE (DsX2, DsY2)-(DsX7, DsY7), Cv1
      LINE (DsX5, DsY5)-(DsX6, DsY6), Cv1
      LINE (DsX7, DsY7)-(DsX6, DsY6), Cv1
  LOOP UNTIL DsX7 >= 639
  YCounter = YCounter + 1
  XCounter = 0
LOOP UNTIL DsY6 >= 479
                        