Движущаяся стрелка (графика) - QBasic

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

Дана стрелка слева направо, нужно чтобы она двигалась в том же направлении (слева направа). Помогите пожалуйста, задача на зачёт)

Решение задачи: «Движущаяся стрелка (графика)»

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

SCREEN 12
DEFINT A-Z
x = 0: y = 240
LOCATE 14, 34: PRINT "PRESS ANY KEY..."
WHILE INKEY$ = "": WEND: CLS 2
DO
  LINE (x, y)-(x + 100, y), 15
  LINE (x + 60, y - 20)-(x + 100, y), 15
  LINE (x + 60, y + 20)-(x + 100, y), 15
     f! = TIMER: WHILE TIMER = f!: WEND
  LINE (x, y)-(x + 100, y), 0
  LINE (x + 60, y - 20)-(x + 100, y), 0
  LINE (x + 60, y + 20)-(x + 100, y), 0
     x = x + 10
LOOP UNTIL x > 540

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

Открывается экран 12.
Устанавливаются значения переменных A-Z.
Устанавливаются начальные координаты стрелки (x=0, y=240).
Выводится сообщение PRESS ANY KEY....
В цикле пока не будет нажата клавиша.
Очищается экран.
В цикле пока не достигнется максимальное значение x (540).
Вычисляются координаты для линий стрелки.
Рисуются линии стрелки с заданными координатами.
Повторяются шаги 8-9 для каждой линии стрелки.
Увеличивается значение переменной x на 10.
Цикл повторяется до тех пор, пока значение переменной x не превысит 540.