Создать анимацию движущегося предмета из угла в угол — QBasic(Бейсик)

SCREEN 12
CLS
x = 0
y = 0
dx = 1
dy = 1
DO
    LINE (x, y) - (x+8, y+6), 0, BF
    x = x + dx
    y = y + dy
    IF x >= 640 THEN
        dx = -1
    ELSEIF x <= 0 THEN
        dx = 1
    END IF
    IF y >= 480 THEN
        dy = -1
    ELSEIF x <= 0 THEN
        dy = 1
    END IF
    LINE (x, y) - (x+8, y+6), 15, BF
    FOR i = 1 TO 10000:NEXT
LOOP WHILE INKEY$ = ""

SCREEN 12
a=1
y=10
FOR x=10 TO 620 STEP a
LINE (x,y)-STEP(10,10),12,bf
y=y+0.75*a
IF x>619 THEN SLEEP
LINE (x,y)-STEP(10,10),0,bf
NEXT