Помогите ! Какую программу надо ввести в qBAsic чтобы ** экране появился прямоугольник...

Question

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

Answer 1

От числа 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