1 ' Svjatoslav Agejenko 2000
\r
3 DECLARE SUB cir (x!, y!, r!, c!)
\r
8 x = SIN(a) * 40 + 160
\r
9 x1 = SIN(a + pi) * 40 + 160
\r
10 y = COS(a) * 34 + 100
\r
11 y1 = COS(a + pi) * 34 + 100
\r
15 IF INKEY$ <> "" THEN SYSTEM
\r
18 SUB cir (x, y, r, c)
\r
21 IF c = 1 THEN SWAP cc1, cc2
\r
23 IF a < r / 2 THEN c1 = cc1 ELSE c1 = cc2
\r
24 CIRCLE (x, y), a, c1
\r