*
* Example 7/4/2 on pp 351-354
*
open data writing.dat
calendar(m) 1963
data(format=free,org=columns) 1963:1 1972:12 writing
*
graph(footer="Figure 7-20 Monthly French industry sales of writing paper")
# writing
*
@bjident(diffs=1,sdiffs=1,number=40) writing