SAS PROGRAMMING
                                       HANDOUT #30

     This handout does some maps of the USA.

  data salesmap;
      length stname $20.;
      input @11 stcode $2. state 3. sales 3. stname $ &;
      label     stcode = 'State code'
                state  = 'state number'
                sales   = 'Sales level';

  cards;
          AL 1   2   ALABAMA
          AK 2   4   ALASKA
          AZ 4   1   ARIZONA
          AR 5   6   ARKANSAS
          CA 6   1   CALIFORNIA
          CO 8   1   COLORADO
          CT 9   4   CONNECTICUT
          DE 10  5   DELAWARE
          DC 11  3   DISTRICT OF COLUMBIA
          FL 12  1   FLORIDA
          GA 13  1   GEORGIA
          HI 15  1   HAWAII
          ID 16  3   IDAHO
          IL 17  2   ILLINOIS
          IN 18  2   INDIANA
          IA 19  4   IOWA
          KS 20  1   KANSAS
          KY 21  2   KENTUCKY
          LA 22  1   LOUISIANA
          ME 23  1   MAINE
          MD 24  3   MARYLAND
          MA 25  4   MASSACHUSETTS
          MI 26  4   MICHIGAN
          MN 27  6   MINNESOTA
          MS 28  2   MISSISSIPPI
          MO 29  2   MISSOURI
          MT 30  3   MONTANA
          NE 31  4   NEBRASKA
          NV 32  1   NEVADA
          NH 33  1   NEW HAMPSHIRE
          NJ 34  4   NEW JERSEY
          NM 35  2   NEW MEXICO
          NY 36  2   NEW YORK
          NC 37  4   NORTH CAROLINA
          ND 38  6   NORTH DAKOTA
          OH 39  6   OHIO
          OK 40  2   OKLAHOMA
          OR 41  3   OREGON
          PA 42  2   PENNSYLVANIA
          RI 44  6   RHODE ISLAND
          SC 45  6   SOUTH CAROLINA
          SD 46  4   SOUTH DAKOTA
          TN 47  1   TENNESSEE
          TX 48  1   TEXAS
          UT 49  1   UTAH
          VT 50  1   VERMONT
          VA 51  3   VIRGINIA
          WA 53  3   WASHINGTON
          WV 54  6   WEST VIRGINIA
          WI 55  6   WISCONSIN
          WY 56  1   WYOMING
          run;

proc gmap map=maps.us  data=salesmap ;
  id state;
  choro sales / coutline=black   discrete;
   pattern1 v=msolid c=black;
   pattern2 v=m5x45  c=black;
   pattern3 v=m1x45  c=black;
   pattern4 v=m1n135  c=black;
   pattern5 v=m1n45  c=black;
   pattern6 v=empty  c=black;

   title1 box=3 'National Sales';
run;