{* Ежик *}

REM basic

' Ежик


{ежик
}SCREEN 9
67 CLS
a = 1 + INT(RND * 10)
b = 1 + INT(RND + 10)
x1 = 320
For i = 1 To 3600
80 z = 6.2832 * i / 360
x2 = 320 + 150 * SIN(5 * z) * COS(a * z)
y2 = 175 + 150 * COS(5 * z) * SIN(b * z)
c = 9 + (7 * RND)
LINE (x1, 100)-(x2, y2), c
For o = 1 To 10000
Next o
k$ = INKEY$
If k$ = "1" Then GoTo 67
Next i
CLS
GoTo 80