{* Cужающийся квадрат *}

REM basic

' Cужающийся квадрат


SCREEN 9 
CLS
1 x = 0: y = 0: x1 = 0: y1 = 300: x2 = 300
z = 0: s = 50: z1 = 300: s1 = 50
c = 1 + INT(RND * 15): c1 = 1 + INT(RND * 15)
For i = x To x2
LINE (i, y)-(i, y1), c
LINE (i - 1, y)-(i - 1, y1), 0

LINE (z, i)-(z1, i), c1
LINE (z, i - 1)-(z1, i - 1), 0
 If i = 150 Then SWAP c, c1
LINE (x2 - i, y)-(x2 - i, y1), c
LINE (x2 - i + 1, y)-(x2 - i + 1, y1), 0

LINE (z, x2 - i)-(z1, x2 - i), c1
LINE (z, x2 - i + 1)-(z1, x2 - i + 1), 0

For t = 1 To 10000
Next t
Next i
LINE (0, 0)-(300, 300), 1 + INT(RND * 15), BF
GoTo 1