If you are downloading this SHAZAM code for use on your own computer, select "File", then "Save As...", and save on your own diskette (a:) or your own hard drive (c:\) using the same filename e143sh27.sha.

IMPORTANT: you must then use an editor (like TED) to delete all of the HTML code from the top and the bottom of the file, leaving only the SHAZAM code. The line which reads "* SHAZAM code (e143sh27.sha) downloaded from UCLA Econ 143 (CAMERON) WebSite" should be the first line of your edited program file. Save the edited program as fail.sha

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

file 6 fail.out
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