Как сформировать точку, дабы она двигалась по КОНТУРУ заданного прямоугольник? - QBasic

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

Задача в оригинале: Сформировать точку, движущуюся по контуру квадрата с заданными размерами и расположением. Если не код, то хотя бы словесно как-нибудь.

Решение задачи: «Как сформировать точку, дабы она двигалась по КОНТУРУ заданного прямоугольник?»

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

SCREEN 12
DATA 10, 10, 100, 100
READ x0, y0, w, l
x = x0: y = y0
LINE (x0, y0)-(x0 + w, y0 + l), 1, B
DO UNTIL INKEY$ <> ""
  IF y = y0 + l AND x < x0 + w THEN PSET (x + 1, y), 15: x = x + 1: PSET (x - 2, y), 1
  IF y = y0 AND x > x0 THEN PSET (x - 1, y), 15: x = x - 1: PSET (x + 2, y), 1
  IF x = x0 AND y < y0 + l THEN PSET (x, y + 1), 15: y = y + 1: PSET (x, y - 2), 1
  IF x = x0 + w AND y > y0 THEN PSET (x, y - 1), 15: y = y - 1: PSET (x, y + 2), 1
LOOP

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

В этом коде используется язык программирования QBasic. Список действий, которые выполняются в этом коде, оформленные в виде нумерованного списка с названиями и значениями переменных в кавычках:

SCREEN 12 - устанавливает разрешение экрана на 12 точек.
DATA 10, 10, 100, 100 - вводит координаты прямоугольника в переменные x0, y0, w, l.
READ x0, y0, w, l - считывает значения переменных x0, y0, w, l.
x = x0: y = y0 - присваивает значения переменным x и y.
LINE (x0, y0)-(x0 + w, y0 + l), 1, B - рисует линию по контуру прямоугольника.
DO UNTIL INKEY$ <> `` - выполняет цикл до тех пор, пока не будет нажата клавиша.
IF y = y0 + l AND x < x0 + w THEN PSET (x + 1, y), 15: x = x + 1: PSET (x - 2, y), 1 - рисует точки на правой стороне прямоугольника.
IF y = y0 AND x > x0 THEN PSET (x - 1, y), 15: x = x - 1: PSET (x + 2, y), 1 - рисует точки на верхней стороне прямоугольника.
IF x = x0 AND y < y0 + l THEN PSET (x, y + 1), 15: y = y + 1: PSET (x, y - 2), 1 - рисует точки на нижней стороне прямоугольника.
IF x = x0 + w AND y > y0 THEN PSET (x, y - 1), 15: y = y - 1: PSET (x, y + 2), 1 - рисует точки на правой стороне прямоугольника.
LOOP - повторяет цикл. Этот код создает и движет точку по контуру прямоугольника, рисуя его на экране.