_z1=etyiqr(0,14)
keyw,xfemcrk,0
*do,_z2,1,_z1,1
_ztyp=etyiqr(_z2,-2)
*if,_ztyp,eq,182,then
keyw,xfemcrk,1
*endif
*enddo