Когда шары двигаются линия не удаляется, а в конце и сам шар исчезает - QBasic

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

когда шары двигаются линия не удаляется, а в конце и сам шар исчезает ,хотя не должен. помогите

Решение задачи: «Когда шары двигаются линия не удаляется, а в конце и сам шар исчезает»

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

SCREEN 12
CIRCLE (160, 230), 20
FOR x = 1 TO 80
   CIRCLE (240 - x, 230), 20, 15
   CIRCLE (80 + x, 230), 20, 15
   IF x > 40 THEN 100
   LINE (220 - x, 230)-(180, 230), 15
   LINE (140, 230)-(100 + x, 230), 15
100
   FOR i = 1 TO 100000: NEXT
   CIRCLE (240 - x, 230), 20, 0
   CIRCLE (80 + x, 230), 20, 0
   LINE (220 - x, 230)-(180, 230), 0
   LINE (140, 230)-(100 + x, 230), 0
NEXT x
   CIRCLE (160, 230), 20, 15
END

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

Список элементов кода на языке QBasic:

SCREEN 12 - устанавливает разрешение экрана 12, что означает, что в одной строке будет 12 символов.
CIRCLE (160, 230), 20 - рисует круг с центром в точке (160, 230) и радиусом 20.
FOR x = 1 TO 80 - начинает цикл, который будет выполняться от x = 1 до x = 80.
CIRCLE (240 - x, 230), 20, 15 - рисует круг с центром в точке (240 - x, 230) и радиусом 20, при этом используется палитра 15.
CIRCLE (80 + x, 230), 20, 15 - рисует круг с центром в точке (80 + x, 230) и радиусом 20, при этом используется палитра 15.
IF x > 40 THEN 100 - проверяет условие, если x больше 40, то выполняется блок кода с меткой 100.
LINE (220 - x, 230)-(180, 230), 15 - рисует линию от точки (220 - x, 230) до точки (180, 230), при этом используется палитра 15.
LINE (140, 230)-(100 + x, 230), 15 - рисует линию от точки (140, 230) до точки (100 + x, 230), при этом используется палитра 15.
100 - это метка, на которую переходит выполнение программы, если условие в шестом шаге выполнено.
FOR i = 1 TO 100000: NEXT - начинает цикл, который будет выполняться от i = 1 до i = 100000.
CIRCLE (240 - x, 230), 20, 0 - рисует круг с центром в точке (240 - x, 230) и радиусом 20, при этом используется палитра 0.
CIRCLE (80 + x, 230), 20, 0 - рисует круг с центром в точке (80 + x, 230) и радиусом 20, при этом используется палитра 0.
LINE (220 - x, 230)-(180, 230), 0 - рисует линию от точки (220 - x, 230) до точки (180, 230), при этом используется палитра 0.
LINE (140, 230)-(100 + x, 230), 0 - рисует линию от точки (140, 230) до точки (100 + x, 230), при этом используется палитра 0.
NEXT i - завершает цикл, который выполнялся в десятом шаге.
CIRCLE (160, 230), 20, 15 - рисует круг с центром в точке (160, 230) и радиусом 20, при этом используется палитра 15.
END - завершает выполнение программы.