*!  findbug -- Utility for locating and displaying program errors (STB-23: ip7)
*!  version 1.0.0	November 1994		Timothy J. Schmidt
program define findbug
version 3.1

local varlist "req"
cap parse "`*'"

local optflag = 0
if ("`1'" == "-a") {
   local optflag = 1
   mac shift
}

set more 1
set trace on
cap mac drop S_adoseq
cap log close
log using _findbug, replace
cap noi `*'
if (_rc == 0) { di "* qQ" }
log close
set trace off

if ("$S_OS" == "Unix") {
   !clear
   !logscanu
}
else if ("$S_OS" == "DOS") {
   !cls
   !logscan
}
else {
   di _newline
   di in red "findbug is not compatible with current operating system"
   di _newline
   exit 702
}

cap noi error _rc

if (`optflag') {
   if (_rc) {
      di _newline
      di "Ado-files called (most recent to first):"
      qui do junk
      mac def S_adoseq "$S_adoseq `1'"
      di in white "$S_adoseq"
   }
}
cap erase junk.do
set more 0

end