10 border not pi:paper not pi:ink 4:cls:for x=-100 to 100:for y=-100 to 100
30 if (x/2-25)*(x/2-25)+(y-50)*(y-50)<200 or (x/2+25)*(x/2+25)+(y-50)*(y-50)<200 or ((x>-20 and x<=0 and y<2*x+40 or (x>=0 and x<20 and y<40-2*x)) and y>0) or abs((x/2)*(x/2)+(y+30)*(y+30)-400)<10 or abs(y-(x/8)*(x/8)+80)<0.5 then plot 122+x,175+20-(100-y)
40 next y:next x
