{* Плетенка со снегом *}

REM basic

' Плетенка со снегом


SCREEN 9 {плетенка со снегом
}6 RANDOMIZE TIMER
c = 10 + INT(RND * 6)
f = .01 + (RND * 10)
g = .01 + (RND * 1)
u = 0
cl = 9 + INT(RND * 7)
CLS
465 r = 0
col = 9 + INT(RND * 7)
832 u = u + f
r = r + g
x = r * COS(u)
y = r * 61 / 70 * SIN(u)
CIRCLE (300 + x, 150 + y), 1, col
CIRCLE (300 + x, 150 + y), 1, col
If INKEY$ = "1" Then GoTo 6
COLOR cl, 0
LOCATE 23, 1: PRINT Using "#####.########"; u
LOCATE 20, 1: PRINT Using "#####.########{; r
}LOCATE 3, 4: PRINT TIME$
LINE (0, 340)-(u / 40, 335), cl, BF
LINE (600, 340)-(u / 40, 335), 0, BF
LINE (0, 300)-(r, 295), cl, BF
LINE (170, 300)-(r, 295), 0, BF
        RANDOMIZE TIMER  {stars
}Dim x(15), y(15)
For i = 1 To 15
CIRCLE (x(i), y(i)), 1, 0
If x(i) > 0 Then GoTo 13
x(i) = 130
y(i) = 350 * RND(1)
13 x(i) = x(i) - i
CIRCLE (x(i), y(i)), 1, cl
Next i
        RANDOMIZE TIMER
Dim x1(15), y1(15)
For i1 = 1 To 15
CIRCLE (x1(i1), y1(i1)), 1, 0
If x1(i1) > 500 Then GoTo 35
x1(i1) = 640
y1(i1) = 350 * RND(1)
35 x1(i1) = x1(i1) - i1
CIRCLE (x1(i1), y1(i1)), 1, cl
Next i1
        k = 17000
If f < 1.8 Then k = 1000
If u > k Then GoTo 6
If r < 170 Then GoTo 832 Else GoTo 465
End