SCREEN 12
DIM X(50), Y(50)
RANDOMIZE TIMER
T = 15
 '                     вхякн рнвей мю нйпсфмнярх (2...30)
M = 2
' вепег яйнкэйн рнвей лнфмн янедхмърэ (M <= T/2)
PI = 3.14159
FOR N = 1 TO T
X(N) = 320 + 200 * COS(PI * 2 * N / T - PI / 2)
Y(N) = 240 + 200 * SIN(PI * 2 * N / T - PI / 2)
NEXT N

FOR j = 1 TO T: FOR i = 1 TO j - 1
IF ABS(i - j) < M THEN GOTO 111
IF ABS(i + T - j) < M THEN GOTO 111
LINE (X(i), Y(i))-(X(j), Y(j)), 11
111
NEXT i: NEXT j

SLEEP