set more 1

/*
File:	cepr_org_y2k.do
Date:	Feb 21, 2006
Desc:	Converts files from 2-digit to 4-digit year
*/

capture program drop y2kit
program define y2kit
version 5.0
while "`1'"~="" {
	if $gnulin==1 {
use "$locin/morg`1'.dta", clear
local year=year in 1
save "$locin/morg`year'.dta", replace
}
	if $gnulin==0 {
use "$locin\morg`1'.dta", clear
local year=year in 1
save "$locin\morg`year'.dta", replace
}
mac shift
}
end

y2kit 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 00 01 02