Вращающийся отрезок - QBasic

Формулировка задачи:

Нарисовать отрезок, который будет вращаться вокруг своей середины.

Решение задачи: «Вращающийся отрезок»

textual
                            Листинг программы 
                        

                            SCREEN 12
CONST Pi = 3.14159265358#
x0 = 320: y0 = 240: rs = 200
WHILE INKEY$ = ""
    LINE (x0, y0)-(xs1, ys1), 0
    LINE (x0, y0)-(xs2, ys2), 0
    xs1 = CINT(x0 - rs * COS((Pi / 180) * (6 * s + 90)))
    ys1 = CINT(y0 - rs * SIN((Pi / 180) * (6 * s + 90)))
    xs2 = CINT(x0 - rs * COS((Pi / 180) * (6 * ((s + 30) MOD 60) + 90)))
    ys2 = CINT(y0 - rs * SIN((Pi / 180) * (6 * ((s + 30) MOD 60) + 90)))
    LINE (x0, y0)-(xs1, ys1), 4
    LINE (x0, y0)-(xs2, ys2), 4
    IF s < 60 THEN s = s + 1 ELSE s = 0
    SLEEP 1
WEND
                        