cap program drop title3
program title3, rclass
di "{hline}"
di "title3 : `1'"
di c(current_date)
di c(current_time)
di "computer ", c(machine_type)
di "folder ",c(pwd)
di "Data file ",c(filename)," currrently has ",c(k)," variables and ",c(N)," observations"
end