Составьте программу выводящую на экран движение звездочки(*): а) по первой строчке б) по последнему столбцу в) по диагонали.- QBasic(Бейсик)

FOR i = 1 TO 80
    LOCATE 1, i
    PRINT "*"
    FOR j = 1 TO 100000
    NEXT
    LOCATE 1, i
    PRINT " "
NEXT

FOR i = 1 TO 23
    LOCATE i, 79
    PRINT "*"
    FOR j = 1 TO 100000
    NEXT
    LOCATE i, 79
    PRINT " "
NEXT

FOR i = 1 TO 23
    LOCATE i, (79 \ 23) * i
    PRINT "*"
    FOR j = 1 TO 100000
    NEXT
    LOCATE i, (79 \ 23) * i
    PRINT " "
NEXT