View.Set ("graphics")

proc yingyang (x, y, size : int)
    var radius : int := size div 2
    drawfillarc (x, y, size, size, 270, 90, black)
    drawfilloval (x, y + radius, radius,radius, black)
    drawfilloval (x, y + radius, size div 10, size div 10, white)
    drawfilloval (x, y - radius, radius,radius, white)
    drawfilloval (x, y - radius, size div 10, size div 10, black)
    drawoval (x,y,radius*2,radius*2,black)
end yingyang

yingyang (300, 300, 150)