var k, r, x, y : int
r := 200
loop
randint (k, 1, 255)
% randint (x, 0, maxx)
% randint (y, 0, maxy)
for i : 0 .. 320 by 40
drawarc (200, 200, r, r, i, i + 40, k)
r := r - 1
end for
delay (100)
exit when r < 5
end loop
r:=200
k:=0
loop
%randint (k, 1, 255)
for decreasing i : 340 .. 0 by 20
drawarc (200, 200, r, r, i, i + 40, k)
r := r + 1
end for
delay (100)
exit when r < 200
end loop