Движение рисунка - QBasic

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

Как сделать чтоб у меня двигались 2 рисунка одновременно и в разные стороны?

Решение задачи: «Движение рисунка»

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

SCREEN 12
PRINT : PRINT "  Press any key to show demo..."
DO: LOOP UNTIL INKEY$ <> ""
   FOR u = 0 TO 150
     LINE (320 - u, 200)-(200 - u, 280), 15, B
     LINE (320 + u, 200)-(440 + u, 280), 15, B
     WAIT &H3DA, 8
     WAIT &H3DA, 8, 8
     LINE (320 - u, 200)-(200 - u, 280), 0, B
     LINE (320 + u, 200)-(440 + u, 280), 0, B
   NEXT u

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

SCREEN 12 - установка номера экрана на 12.
PRINT : PRINT Press any key to show demo... - вывод сообщения на экран.
DO: LOOP UNTIL INKEY$ <> `` - начало цикла, который будет выполняться до тех пор, пока не будет нажата клавиша.
FOR u = 0 TO 150 - начало цикла, который будет выполняться от 0 до 150.
LINE (320 - u, 200)-(200 - u, 280), 15, B - рисование линии от (320 - u, 200) до (200 - u, 280) с длиной 15 и толщиной B.
LINE (320 + u, 200)-(440 + u, 280), 15, B - рисование линии от (320 + u, 200) до (440 + u, 280) с длиной 15 и толщиной B.
WAIT &H3DA, 8 - задержка в 8 миллисекунд.
WAIT &H3DA, 8, 8 - задержка в 8 миллисекунд с автоповторением 8 раз.
LINE (320 - u, 200)-(200 - u, 280), 0, B - рисование линии от (320 - u, 200) до (200 - u, 280) с длиной 0 и толщиной B.
LINE (320 + u, 200)-(440 + u, 280), 0, B - рисование линии от (320 + u, 200) до (440 + u, 280) с длиной 0 и толщиной B.
NEXT u - переход к следующей итерации цикла.