' Svjatoslav Agejenko 2000

DECLARE SUB cir (x!, y!, r!, c!)
SCREEN 13
pi = 3.1415926#
PAINT (1, 1), 1
1
x = SIN(a) * 40 + 160
x1 = SIN(a + pi) * 40 + 160
y = COS(a) * 34 + 100
y1 = COS(a + pi) * 34 + 100
cir x, y, 40, 0
cir x1, y1, 40, 1
a = a + .05
IF INKEY$ <> "" THEN SYSTEM
GOTO 1

SUB cir (x, y, r, c)
cc1 = 0
cc2 = 15
IF c = 1 THEN SWAP cc1, cc2
FOR a = 1 TO r
IF a < r / 2 THEN c1 = cc1 ELSE c1 = cc2
CIRCLE (x, y), a, c1
NEXT a
END SUB