Помогите ! Какую программу надо ввести в qBAsic чтобы на экране появился прямоугольник вытянутый в низ постепенно шел в низ и дойдя до y=480 начал поднимать вверх! Ребят помогите!

От числа 1000000, указанного в программе, будет зависеть скорость движения. Можешь изменить его, если прямоугольник двигается очень быстро или наоборот, очень медленно SCREEN 12 X = 150 FOR I = 0 TO 460     LINE (X, Y)-(X + 10, Y + 20), 0, B     Y1 = I     LINE (X, Y1)-(X + 10, Y1 + 20), , B     Y = Y1     FOR N = 1 TO 1000000     NEXT N NEXT I FOR I = 460 TO 0 STEP -1     LINE (X, Y)-(X + 10, Y + 20), 0, B     Y1 = I     LINE (X, Y1)-(X + 10, Y1 + 20), , B     Y = Y1     FOR N = 1 TO 1000000     NEXT N NEXT I