* SHAZAM code downloaded from UCLA Econ 143 (CAMERON) WebSite: 
* HTML file called e143sh27.htm, and should have 
*  been downloaded as fail.sha

read(failn.dat) yrmo fail / skiplines=1
read(mfgprod.dat) yrmo mfgprod / skiplines=1
genr t=time(0)
genr yr=(yrmo-mod(yrmo,100))/100
genr mo=mod(yrmo,100)
stat
if(mo.eq.1) jan=1
if(mo.eq.2) feb=1
if(mo.eq.3) mar=1
if(mo.eq.4) apr=1
if(mo.eq.5) may=1
if(mo.eq.6) jun=1
if(mo.eq.7) jul=1
if(mo.eq.8) aug=1
if(mo.eq.9) sep=1
if(mo.eq.10) oct=1
if(mo.eq.11) nov=1
if(mo.eq.12) dec=1

months:feb mar apr may jun jul aug sep oct nov dec