@verb #3515:"is_unlocked_for" this none this rxdo #3135
@program #3515:"is_unlocked_for" this none this
for x in ({"TV", "radio", "VCR", "television", "t.v", "v.c.r"})
  if (index(args[1]:title(1), x))
    return 0
  endif
endfor
return args[1]:isa(#3100) ? 0 | pass(@args)
return 1
.