Get the appliations root folder
for each child folder
  for each scx file
    open the scx table (use formname.scx)
      locate for baseclass = 'form'
      find the string 'procedure' immediately before the string 'init'
      find the string 'endproc' immediately following the string 'init'
      if the string 'setfocus()' occurs between the strings located above
        the form matches, record this as a hit
      endif
    close the scx table
  end for && each scx file
endfor && each child folder