cap program drop title1
program title1, rclass
di "{hline}"
di in red "`1'"
di _col(40) "Date and time: ",c(current_date),"  ",c(current_time)
di _col(40)  "Stata version: ", c(stata_version)
di _col(40) "Operating system: ",c(os)," ",c(osdtl)," on ",c(machine_type)," with ",c(processors)," processors"
di _col(40) "using ",c(memory), "bytes of memory"
di _col(40) "Working directory: ",c(pwd)
di _col(40) "Stata data file: ",c(filename)
di _col(40) " data file has ",c(k), " variables"
di _col(40) "  and ", _N, " observations"
di "  "
di as result "`1' follows:"
di "{hline}"
end