subr label,s,ix,iy, parent
 f4='-adobe-helvetica-bold-r-normal--14*'
 lab1 = xmlabel(parent,s,f4)
 xmposition,lab1, ix, iy
 endsubr
 ;============================================================================