@verb #4529:"cm_chdr_anyin" this none this rxdo #3135
@program #4529:"cm_chdr_anyin" this none this
s = args[1]
r = 0
for i in [1..4]
  if (index(s, this.dr_in[i]))
    r = 1
  endif
endfor
return r
"Last modified by whiz (#3135) on Mon Apr 26 20:23:20 1999 MDT."
.