h2d_showpop.mod: Translation to Stony Brook Modula-2

Last updated: 2. 1.1998, 19:21

IMPLEMENTATION MODULE h2d_showpop;
IMPORT SYSTEM;
BEGIN
  pop       :=  POPARR
          {
            {SYSTEM.ADR("AL"), SYSTEM.ADR("Alabama"),             0},
            {SYSTEM.ADR("AK"), SYSTEM.ADR("Alaska"),              0},
            {SYSTEM.ADR("AZ"), SYSTEM.ADR("Arizona"),             0},
            {SYSTEM.ADR("AR"), SYSTEM.ADR("Arkansas"),            0},
            {SYSTEM.ADR("CA"), SYSTEM.ADR("California"),          0},
            {SYSTEM.ADR("CO"), SYSTEM.ADR("Colorado"),            0},
            {SYSTEM.ADR("CT"), SYSTEM.ADR("Connecticut"),         0},
            {SYSTEM.ADR("DE"), SYSTEM.ADR("Delaware"),            0},
            {SYSTEM.ADR("DC"), SYSTEM.ADR("Dist. of Columbia"),   0},
            {SYSTEM.ADR("FL"), SYSTEM.ADR("Florida"),             0},
            {SYSTEM.ADR("GA"), SYSTEM.ADR("Georgia"),             0},
            {SYSTEM.ADR("HI"), SYSTEM.ADR("Hawaii"),              0},
            {SYSTEM.ADR("ID"), SYSTEM.ADR("Idaho"),               0},
            {SYSTEM.ADR("IL"), SYSTEM.ADR("Illinois"),            0},
            {SYSTEM.ADR("IN"), SYSTEM.ADR("Indiana"),             0},
            {SYSTEM.ADR("IA"), SYSTEM.ADR("Iowa"),                0},
            {SYSTEM.ADR("KS"), SYSTEM.ADR("Kansas"),              0},
            {SYSTEM.ADR("KY"), SYSTEM.ADR("Kentucky"),            0},
            {SYSTEM.ADR("LA"), SYSTEM.ADR("Louisiana"),           0},
            {SYSTEM.ADR("ME"), SYSTEM.ADR("Maine"),               0},
            {SYSTEM.ADR("MD"), SYSTEM.ADR("Maryland"),            0},
            {SYSTEM.ADR("MA"), SYSTEM.ADR("Massachusetts"),       0},
            {SYSTEM.ADR("MI"), SYSTEM.ADR("Michigan"),            0},
            {SYSTEM.ADR("MN"), SYSTEM.ADR("Minnesota"),           0},
            {SYSTEM.ADR("MS"), SYSTEM.ADR("Mississippi"),         0},
            {SYSTEM.ADR("MO"), SYSTEM.ADR("Missouri"),            0},
            {SYSTEM.ADR("MT"), SYSTEM.ADR("Montana"),             0},
            {SYSTEM.ADR("NE"), SYSTEM.ADR("Nebraska"),            0},
            {SYSTEM.ADR("NV"), SYSTEM.ADR("Nevada"),              0},
            {SYSTEM.ADR("NH"), SYSTEM.ADR("New Hampshire"),       0},
            {SYSTEM.ADR("NJ"), SYSTEM.ADR("New Jersey"),          0},
            {SYSTEM.ADR("NM"), SYSTEM.ADR("New Mexico"),          0},
            {SYSTEM.ADR("NY"), SYSTEM.ADR("New York"),            0},
            {SYSTEM.ADR("NC"), SYSTEM.ADR("North Carolina"),      0},
            {SYSTEM.ADR("ND"), SYSTEM.ADR("North Dakota"),        0},
            {SYSTEM.ADR("OH"), SYSTEM.ADR("Ohio"),                0},
            {SYSTEM.ADR("OK"), SYSTEM.ADR("Oklahoma"),            0},
            {SYSTEM.ADR("OR"), SYSTEM.ADR("Oregon"),              0},
            {SYSTEM.ADR("PA"), SYSTEM.ADR("Pennsylvania"),        0},
            {SYSTEM.ADR("RI"), SYSTEM.ADR("Rhode Island"),        0},
            {SYSTEM.ADR("SC"), SYSTEM.ADR("South Carolina"),      0},
            {SYSTEM.ADR("SD"), SYSTEM.ADR("South Dakota"),        0},
            {SYSTEM.ADR("TN"), SYSTEM.ADR("Tennessee"),           0},
            {SYSTEM.ADR("TX"), SYSTEM.ADR("Texas"),               0},
            {SYSTEM.ADR("UT"), SYSTEM.ADR("Utah"),                0},
            {SYSTEM.ADR("VT"), SYSTEM.ADR("Vermont"),             0},
            {SYSTEM.ADR("VA"), SYSTEM.ADR("Virginia"),            0},
            {SYSTEM.ADR("WA"), SYSTEM.ADR("Washington"),          0},
            {SYSTEM.ADR("WV"), SYSTEM.ADR("West Virginia"),       0},
            {SYSTEM.ADR("WI"), SYSTEM.ADR("Wisconsin"),           0},
            {SYSTEM.ADR("WY"), SYSTEM.ADR("Wyoming"),             0},
            {SYSTEM.ADR("US"), SYSTEM.ADR("United States Total"), 0}
          };

END h2d_showpop.