{* Полет звезд *}

REM basic

' Полет звезд


SCREEN 9  
CLS
Dim x(30), y(30)
36 For i = 1 To 30
CIRCLE (x(i), y(i)), 1, 0
If x(i) > 0 Then GoTo 13
x(i) = 640
y(i) = 350 * RND(1)
13 x(i) = x(i) - i
CIRCLE (x(i), y(i)), 1, 11
Next i
GoTo 36