{* Окно *}

REM basic

' Окно


SCREEN 9 {окно
}CLS
11 RANDOMIZE TIMER
{x = 20: y = 20: x1 = 20: y1 = 300
}{x2 = 500: y2 = 300: x3 = 500: y3 = 20
}x = 15 + RND * 11
y = 15 + RND * 11
x1 = 15 + RND * 11
y1 = 315 + RND * 11
x2 = 595 + RND * 11
y2 = 315 + RND * 11
x3 = 595 + RND * 11
y3 = 15 + RND * 11
  n = 50000
LINE (x, y)-(x1, y1), 14
LINE (x1, y1)-(x2, y2), 13
LINE (x2, y2)-(x3, y3), 12
LINE (x3, y3)-(x, y), 11
    For t = 1 To n
    Next t
LINE (x, y)-(x1, y1), 0
LINE (x1, y1)-(x2, y2), 0
LINE (x2, y2)-(x3, y3), 0
LINE (x3, y3)-(x, y), 0
    GoTo 11