27a
@verb #3135:"scanforcontrols" none none none rdo #3135
@program #3135:"scanforcontrols" none none none
"Copied from Quadir (#9780):scanforcontrols Sep  7 15:28:11 2001"
player:tell("Starting search, might take awhile...")
found = 0
for object in [#0..max_object()]
  for vrb in [1..length(verbs(object))]
    for line in (verb_code(object, vrb))
      if (index(line, "controls"))
        found = found + 1
      endif
      $cmd_utils:suspend_if_needed(0)
    endfor
    $cmd_utils:suspend_if_needed(0)
  endfor
  $cmd_utils:suspend_if_needed(0)
endfor
player:tell("*** DONE ***: ", found, " possible matches.")
.

0