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

SCREEN 9, , 1, 0
CONST pi = 3.14159265358#
cv1 = 9: cv2 = 14: u = 0: spd = .5
DO: t = TIMER
    IF t <> TIMER THEN 'Sync
        u = u + spd: t = TIMER
        IF u > 2 * pi THEN u = u - 2 * pi
        IF u > pi THEN COLOR cv1 ELSE COLOR cv2
        CLS 2
        LINE (320 - 50, 175)-(320 + 50, 175 - SIN(u) * 100), , BF
        PCOPY 1, 0 'flip
    END IF
LOOP WHILE INKEY$ = ""