Recession Shading (quarterly)

[cap]

' RECESSION_SHADE.prg - adds shading to all recession quarters
'
' Takes in one input argument, the name of graph to apply shading to.
'
' EXAMPLE:
'
' run recession_shade graph01
'
' This will add quarterly recession shading to the graph in your workfile named graph01.
'
'
' Note: At the time this program was written, the recession starting in 2007Q4 has not ended. Thus its end date in the program below may be incorrect.
'


%mygraph = %0

{%mygraph}.draw(shade,bottom) 1949Q1 1949Q3
{%mygraph}.draw(shade,bottom) 1953Q3 1954Q2
{%mygraph}.draw(shade,bottom) 1957Q4 1958Q1
{%mygraph}.draw(shade,bottom) 1960Q2 1961Q1
{%mygraph}.draw(shade,bottom) 1970Q1 1970Q4
{%mygraph}.draw(shade,bottom) 1973Q4 1975Q1
{%mygraph}.draw(shade,bottom) 1980Q1 1980Q2
{%mygraph}.draw(shade,bottom) 1981Q3 1982Q4
{%mygraph}.draw(shade,bottom) 1990Q3 1991Q1
{%mygraph}.draw(shade,bottom) 2001Q2 2001Q4
{%mygraph}.draw(shade,bottom) 2007Q4 2008Q4

[JimForest]

This is nifty. Thanks for posting!