/* mkctyan.sas makes an annotate dataset from the county boundaryies */
/* L. Hoyle */

  libname cty '/homed/counties';
  data cty.cbndsano;
   set cty.ctybnds;
   by county;

   length

     function $ 8
     xsys  $ 4
     ysys  $ 4
     color $ 8
     when $ 1
     ;

   retain xsys ysys '2' color 'CYAN' when 'A';


   if first.county then do;
     function='MOVE';
   end;
   else do;
     function='DRAW';
   end;
run;