beginchar(oct"005",.4em#,.5cap#,0dth#); "B Diatoniki Martiria"; 
picture ENQ;
 path p[];

 z0 = (w/2,h/2);
 x1 = x2 = x4 = .5(w + Diam);
 y1 = .5(h + Diam);
 y2 = 0;
 y3 = y4 = .9h;
 x3 = .5(w - Diam);

 pickup pencircle scaled .8pt;
 p1 = fullcircle scaled Diam shifted (z0);
 p2 = z1--z2;
 draw p1;
 draw p2;
 filldraw fullcircle scaled .05w shifted (z3);
 filldraw fullcircle scaled .05w shifted (z4);
 ENQ = currentpicture;
 endchar;