home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 13 / CD_ASCQ_13_0494.iso / maj / 419 / topostal.bas < prev    next >
BASIC Source File  |  1994-03-13  |  3KB  |  72 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |        PBClone  Copyright (c) 1990-1994  Thomas G. Hanlin III        |
  4. '   |                                                                      |
  5. '   +----------------------------------------------------------------------+
  6.  
  7. FUNCTION ToPostal$ (PlaceName$)
  8.    SELECT CASE UCASE$(PlaceName$)
  9.       CASE "ALABAMA": t% = &H4C41
  10.       CASE "ALASKA": t% = &H4B41
  11.       CASE "AMERICAN SAMOA": t% = &H5341
  12.       CASE "ARIZONA": t% = &H5A41
  13.       CASE "ARKANSAS": t% = &H5241
  14.       CASE "CALIFORNIA": t% = &H4143
  15.       CASE "COLORADO": t% = &H4F43
  16.       CASE "CONNECTICUT": t% = &H5443
  17.       CASE "DELAWARE": t% = &H4544
  18.       CASE "DISTRICT OF COLUMBIA": t% = &H4344
  19.       CASE "FEDERATED STATES OF MICRONESIA": t% = &H4D46
  20.       CASE "FLORIDA": t% = &H4C46
  21.       CASE "GEORGIA": t% = &H4147
  22.       CASE "GUAM": t% = &H5547
  23.       CASE "HAWAII": t% = &H4948
  24.       CASE "IDAHO": t% = &H4449
  25.       CASE "ILLINOIS": t% = &H4C49
  26.       CASE "INDIANA": t% = &H4E49
  27.       CASE "IOWA": t% = &H4149
  28.       CASE "KANSAS": t% = &H534B
  29.       CASE "KENTUCKY": t% = &H594B
  30.       CASE "LOUISIANA": t% = &H414C
  31.       CASE "MAINE": t% = &H454D
  32.       CASE "MARSHALL ISLANDS": t% = &H484D
  33.       CASE "MARYLAND": t% = &H444D
  34.       CASE "MASSACHUSETTS": t% = &H414D
  35.       CASE "MICHIGAN": t% = &H494D
  36.       CASE "MINNESOTA": t% = &H4E4D
  37.       CASE "MISSOURI": t% = &H4F4D
  38.       CASE "MISSISSIPPI": t% = &H534D
  39.       CASE "MONTANA": t% = &H544D
  40.       CASE "NEBRASKA": t% = &H454E
  41.       CASE "NEVADA": t% = &H564E
  42.       CASE "NEW HAMPSHIRE": t% = &H484E
  43.       CASE "NEW JERSEY": t% = &H4A4E
  44.       CASE "NEW MEXICO": t% = &H4D4E
  45.       CASE "NEW YORK": t% = &H594E
  46.       CASE "NORTH CAROLINA": t% = &H434E
  47.       CASE "NORTH DAKOTA": t% = &H444E
  48.       CASE "NORTHERN MARIANA ISLANDS": t% = &H504D
  49.       CASE "OHIO": t% = &H484F
  50.       CASE "OKLAHOMA": t% = &H4B4F
  51.       CASE "OREGON": t% = &H524F
  52.       CASE "PENNSYLVANIA": t% = &H4150
  53.       CASE "PUERTO RICO": t% = &H5250
  54.       CASE "RHODE ISLAND": t% = &H4952
  55.       CASE "SOUTH CAROLINA": t% = &H4353
  56.       CASE "SOUTH DAKOTA": t% = &H4453
  57.       CASE "TENNESSEE": t% = &H4E54
  58.       CASE "TEXAS": t% = &H5854
  59.       CASE "UTAH": t% = &H5455
  60.       CASE "VERMONT": t% = &H5456
  61.       CASE "VIRGINIA": t% = &H4156
  62.       CASE "VIRGIN ISLANDS": t% = &H4956
  63.       CASE "WASHINGTON": t% = &H4157
  64.       CASE "WEST VIRGINIA": t% = &H5657
  65.       CASE "WISCONSIN": t% = &H4957
  66.       CASE "WYOMING": t% = &H5957
  67.       CASE ELSE
  68.    END SELECT
  69.    IF t% THEN st$ = MKI$(t%)
  70.    ToPostal$ = st$
  71. END FUNCTION
  72.