{* Задача67 *}

REM basic

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


CLS
SCREEN 9, , 1, 0
x = 100
s = 10
clr1 = 5
clr2 = 7
While INKEY$ = ""
PCOPY 1, 0
LINE (400, 100)-(100, 300), 0, BF
LINE (200, 50)-(200, 350), 15
LINE (x, 100)-(200, 300), clr1, BF
LINE (400 - x, 100)-(200, 300), clr2, BF
x = x + s
If x = 200 Then s = -s: SWAP clr1, clr2
If x = 100 Then s = -s
t = TIMER
While t = TIMER
Wend
Wend
End