{* Разбегающиеся звезды *}

REM basic

' Разбегающиеся звезды


SCREEN 9 
CLS
Dim x(35), y(35), v(35), u(35)
48 For i = 1 To 35
CIRCLE (x(i), y(i)), 1, 0
If x(i) > 0 And x(i) < 630 And y(i) > 0 And y(i) < 340 Then GoTo 72
x(i) = 300
y(i) = 175
v(i) = -10 + 20 * RND(1)
u(i) = -10 + 20 * RND(1)
72 x(i) = x(i) + v(i)
y(i) = y(i) + u(i)
CIRCLE (x(i), y(i)), 1, 11{9 + INT(RND * 7)
}Next i
GoTo 48
End