{* Квадратная спираль *}

REM basic

' Квадратная спираль


SCREEN 9 {квадр спираль
}CLS
PSET (300, 170)
61 v = v + 1
If x = 1 - y Then y = y + v
If x = y Then x = x + v
If x = -y Then y = y - v
If x = p - 1 Then x = x - v
p = y
LINE -(300 + x, 170 + y), RND * 15
For i = 1 To 5000
Next i
If v < 330 Then GoTo 61