Нужен проект по информатике qbasic коды с движущимся , если кто такое делал, то !

SCREEN 7
COLOR 1, 2
FOR x = 1 TO 200 STEP 10
    PSET (x, 50), 4
    SLEEP 1
    PSET (x, 50), 2
NEXT x
END
Движение точки.

Без DOSBOX
COLOR 1, 2
FOR x = 1 TO 20
    CLS
    LOCATE 5, x
    PRINT "*"
    SLEEP 1
NEXT x
END