Создать игру "Бьющие качающиеся камни" - QBasic

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

Помогите с игрой, самому решить не выходит (т.к. сам писал до этого на паскале). Вот условие: 10 камней хаотично движутся по экрану вверх-вниз. Требуется провести между ними шарик так, чтобы он не попал под камень. За каждый удачный проход начисляются очки. А вся доп. информация есть на картинке ниже

Решение задачи: «Создать игру "Бьющие качающиеся камни"»

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

ON KEY(11) GOSUB u   '  "при нажатии стрелки вверх (возможно, на цифровой панели) перейти на u"
KEY(11) ON ' разрешение отлавливания
DO: LOOP  ' пустой цикл. Отсюда ничего не может вывести программу...
u:
END  ' ... или может (сюда отсылает прерывание key)
RETURN

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

ON KEY(11) GOSUB u - при нажатии стрелки вверх (возможно, на цифровой панели) перейти на подпрограмму u.
KEY(11) ON - разрешение отлавливания.
DO: LOOP - пустой цикл. Отсюда ничего не может вывести программу...
u: - начало подпрограммы u.
END - ... или может (сюда отсылает прерывание key).
RETURN - выход из подпрограммы u.