Изобразить движение тела брошенного по параболе под действием сил тяжести - QBasic

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

изобразить движение тела брошенного по параболе под действием сил тяжести помогите пожалуйста...не знаю как делать,завтра уже сдавать(((

Решение задачи: «Изобразить движение тела брошенного по параболе под действием сил тяжести»

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

vx = 20
vy = 50
x = 0: y = 200
s = 1:
DO
  stime = TIMER
  SCREEN 7, 1, s, 1 - s
  s = 1 - s
  CLS
  WHILE TIMER - stime < .1: WEND: stime = TIMER
  CIRCLE (x, y), 10
  x = x + vx
  y = y - vy
  vy = vy - 7.5
LOOP UNTIL x > 320

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

Переменные vx и vy инициализируются значением 20 и 50 соответственно.
Переменные x и y инициализируются значением 0 и 200 соответственно.
Переменная s инициализируется значением 1.
В основной цикл DO запускается выполнение кода.
В первой строке цикла вычисляется время, прошедшее с момента начала выполнения программы.
Строка SCREEN 7, 1, s, 1 - s выводит на экран графический элемент в виде стрелки, направленной вверх или вниз в зависимости от значения переменной s.
Значение переменной s инвертируется.
Экран очищается с помощью команды CLS.
В цикле WHILE проверяется, прошло ли уже 0,1 секунды с момента предыдущего измерения времени. Если прошло, то цикл заканчивается и значение переменной stime обновляется.
Команда CIRCLE (x, y), 10 рисует окружность на графике с центром в точке (x,y) радиусом 10.
Значение переменной x увеличивается на значение переменной vx.
Значение переменной y уменьшается на значение переменной vy.
Значение переменной vy уменьшается на 7,5.
Цикл LOOP выполняется до тех пор, пока значение переменной x не станет больше 320.