/* bgtest - test graphing block group  boundaries */
/* set graphics options */
/* L. Hoyle */

libname bg '/homed/blockgroups';
goptions device = xcolor;

data test;
 set bg.bgbounds;
  d=1;                            /* map a constant */
title1 f=none  'Kansas Block Groups';
pattern1 v=e c=blue ;
proc gmap map=test   data=test  ;
  id blkgrp;
  choro d / discrete nolegend ;
  run;