*! version 1.1.2   STB-42 dm54
program define infilen

   version 5.0

   parse "`*'", parse(",")
   local one "`1'"
   mac shift 1
   local varlist "opt"
   local options "Nlines(integer 50) *"
   parse "`*'"

   infile `one', `options'
   parse "`one'", parse(" ")
   preserve
   qui infix str C 1-2 str S 3-82 using `2' in 1/`nlines', clear
   local i 0
   local k 0
   local j 0
   while !`i' {
      local j = `j' + 1
      if C[`j'] == "*!" {
      local i = index(S[`j'], "`")
      while `i' {
         qui replace S = substr(S[`j'], 1, `i'-1) + "'" +    /*
                   */    substr(S[`j'], `i'+1, .) in `j'
         local i = index(S[`j'], "`")
      }
         local k = `k' + 1
         local dc`k' = ltrim(S[`j'])
         if "`dc`k''" == "" { local dc`k' "." }
      }
      local i = index(C[`j']+S[`j'], "}") + (`j' >= _N)
   }
   restore
   local i 0
   local j : char _dta[note0]
   if "`j'" == "" { local j 0 }
   while `i' < `k' {
      local i = `i' + 1
      local j = `j' + 1
      nobreak {
         char _dta[note0] `j'
         char _dta[note`j'] "`dc`i''"
      }
   }
end