{* Гирлянда *}

REM basic

' Гирлянда


{Гирлянда
}SCREEN 9
33 CLS
Dim d(400), f(400)
d(0) = 320
f(0) = 175
a = 1 + INT(RND * 15)
b = 1 + INT(RND * 15)
k = 4 + INT(RND * 13)
For i = 1 To 360
k$ = INKEY$
If k$ = "1" Then GoTo 33
z = 6.2832 * i / 360
d(i) = 320 + 150 * SIN(5 * z) * COS(a * z)
f(i) = 175 + 150 * COS(5 * z) * SIN(b * z)
LINE (d(i - 1), f(i - 1))-(d(i) + k, f(i)), 11
LINE (d(i - 1) + k, f(i - 1))-(d(i) + k, f(i)), 11
For o = 1 To 15000
Next o
Next i
For t = 1 To 180
For i = 1 To 360
c = 9 + INT(RND * 7)
If i / 2 - t = 0 Then GoTo 220
For o = 1 To 100
Next o
k$ = INKEY$
If k$ = "1" Then GoTo 33
200 Next i
Next t
220 LINE (d(i), f(i))-(d(i) + k, f(i)), c
If i > 360 Then GoTo 33
GoTo 200
End