rogs.BAS

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

REM basic

' Программа построения рога изобилия


10 CLS
10 SCREEN 1, 0: COLOR 1, 0
20 For I = 1 To 125
40 CIRCLE (160 + 100 * COS(I / 20), 90 + 80 * SIN(I / 20 )), 45 - I/3, 3
50 Next I
60 GoTo 60