{* Рог изобилия *}

REM basic

' Рог изобилия


SCREEN 9
2 CLS
1
a = 1 + INT(RND * 10)
For i = 1 To 455
j$ = INKEY$
If j$ = "`" Then End
If j$ = "1{ Then GoTo 2
}clor = INT(i / 68) + 9
{CIRCLE (300 + 170 * (COS(2 * (i / 60))), 160 + 110 * SIN(i / 10)), i / 8, 1
}{PAINT (300 + 170 * (COS(2 * (i / 60))), 160 + 110 * SIN(i / 10)), clor, 1
}{CIRCLE (300 + 170 * (COS(2 * (i / 60))), 160 + 110 * SIN(i / 10)), i / 8, 0
}CIRCLE (300 + 170 * (COS(a * (i / 60))), 160 + 110 * SIN(i / 10)), i / 8, clor
For t = 1 To 3000
k = SQR(t)
Next t
Next i
CLS
GoTo 1