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

От числа 1000000, указанного в программе, будет зависеть скорость движения. Можешь изменить его, если прямоугольник двигается очень быстро или наоборот, очень медленноSCREEN 12X = 150FOR 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 NNEXT IFOR 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 NNEXT I