home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 12 / 0156 / areacode.bas < prev    next >
Encoding:
BASIC Source File  |  1984-01-24  |  8.8 KB  |  162 lines
  1. 10 REM AREA CODE LOCATER
  2. 15 ? "ENTER ZERO TO END PROGRAM"
  3. 20 ? :? "INPUT AREA CODE"
  4. 30 INPUT N:? :IF N=0 THEN END 
  5. 40 ON INT(N/100) GOTO 210,60,80,100,120,140,160,180,200
  6. 50 GOTO 210
  7. 60 ON N-200 GOTO 840,380,360,1470,220,1340,630,450,260,210,210,870,270,1130,1040,970,460,710,510
  8. 70 GOTO 210
  9. 80 ON N-300 GOTO 640,370,350,1360,390,1460,1400,810,470,210,210,480,670,750,880,570,520,610,540
  10. 90 GOTO 210
  11. 100 ON N-400 GOTO 1080,800,1450,420,1010,790,210,280,1150,210,210,1050,650,1370,290,1510,770,1540,980
  12. 110 GOTO 210
  13. 120 ON N-500 GOTO 250,590,1030,620,860,1570,720,210,1350,210,210,1170,990,1530,550,890,680,900,1500
  14. 130 GOTO 210
  15. 140 ON N-600 GOTO 740,240,830,1440,1100,600,910,1380,850,210,210,730,1520,1000,1110,690,660,490,300
  16. 150 GOTO 210
  17. 160 ON N-700 GOTO 960,820,1320,940,1490,1600,310,210,1560,210,210,560,1240,320,1390,920,1060
  18. 170 GOTO 210
  19. 180 ON N-800 GOTO 1300,1310,1090,1330,330,1250,1480,440,1410,210,210,530,400,1070,500,780,1260,210,1550
  20. 190 GOTO 210
  21. 200 ON N-900 GOTO 1120,1580,210,410,1590,700,230,210,210,210,210,430,580,930,1280,340,210,1020,950
  22. 210 ? "NOT A VALID AREA CODE":GOTO 20
  23. 220 ? "ALABAMA":? :? "ALL LOCATIONS":GOTO 20
  24. 230 ? "ALASKA":? :? "ALL LOCATIONS":GOTO 20
  25. 240 ? "ARIZONA":? :? "ALL LOCATIONS":GOTO 20
  26. 250 ? "ARKANSAS":? :? "ALL LOCATIONS":GOTO 20
  27. 260 ? "CALIFORNIA":? :? "FRESNO":GOTO 20
  28. 270 ? "CALIFORNIA":? :? "LOS ANGELES":GOTO 20
  29. 280 ? "CALIFORNIA":? :? "SAN JOSE":GOTO 20
  30. 290 ? "CALIFORNIA":? :? "SAN FRANCISCO":GOTO 20
  31. 300 ? "CALIFORNIA":? :? "SAN DIEGO":GOTO 20
  32. 310 ? "CALIFORNIA":? :? "SANTA ROSA":GOTO 20
  33. 320 ? "CALIFORNIA":? :? "ORANGE":GOTO 20
  34. 330 ? "CALIFORNIA":? :? "BAKERSFIELD":GOTO 20
  35. 340 ? "CALIFORNIA":? :? "SACRAMENTO":GOTO 20
  36. 350 ? "COLORADO":? :? "ALL LOCATIONS":GOTO 20
  37. 360 ? "CONNECTICUT":? :? "ALL LOCATIONS":GOTO 20
  38. 370 ? "DELAWARE":? :? "ALL LOCATIONS":GOTO 20
  39. 380 ? "WASHINGTON, D.C.":GOTO 20
  40. 390 ? "FLORIDA":? :? "FT. LAUDERDALE","KEY WEST":? "MIAMI":GOTO 20
  41. 400 ? "FLORIDA":? :? "FT. MYERS","WINTER HAVEN":GOTO 20
  42. 410 ? "FLORIDA":? :? "JACKSONVILLE","TALLAHASSEE":GOTO 20
  43. 420 ? "GEORGIA":? :? "ATLANTA","ROME":GOTO 20
  44. 430 ? "GEORGIA":? :? "SAVANNAH","WAYCROSS":GOTO 20
  45. 440 ? "HAWAII":? :? "ALL LOCATIONS":GOTO 20
  46. 450 ? "IDAHO":? :? "ALL LOCATIONS":GOTO 20
  47. 460 ? "ILLINOIS":? :? "SPRINGFIELD":GOTO 20
  48. 470 ? "ILLINOIS":? :? "PEORIA":GOTO 20
  49. 480 ? "ILLINOIS":? :? "AURORA","CHICAGO":? "WAUKEGAN":GOTO 20
  50. 490 ? "ILLINOIS":? :? "ALTON","CENTRALIA":? "MT. VERNON":GOTO 20
  51. 500 ? "ILLINOIS":? :? "ROCKFORD":GOTO 20
  52. 510 ? "INDIANA":? :? "GARY","SOUTH BEND":? "WARSAW":GOTO 20
  53. 520 ? "INDIANA":? :? "INDIANAPOLIS","KOKOMO":GOTO 20
  54. 530 ? "INDIANA":? :? "EVANSVILLE":GOTO 20
  55. 540 ? "IOWA":? :? "DUBUQUE":GOTO 20
  56. 550 ? "IOWA":? :? "DES MOINES":GOTO 20
  57. 560 ? "IOWA":? :? "COUNCIL BLUFFS":GOTO 20
  58. 570 ? "KANSAS":? :? "DODGE CITY","WICHITA":GOTO 20
  59. 580 ? "KANSAS":? :? "LAWRENCE","MANHATTAN":? "SALINA","TOPEKA":GOTO 20
  60. 590 ? "KENTUCKY":? :? "FRANKFORT","LOUISVILLE":? "PADUCAH",,"SHELBYVILLE":GOTO 20
  61. 600 ? "KENTUCKY":? :? "COVINGTON","WINCHESTER":GOTO 20
  62. 610 ? "LOUISIANA":? :? "LAKE CHARLES","SHREVEPORT":GOTO 20
  63. 620 ? "LOUISIANA":? :? "BATON ROUGE","NEW ORLEANS":GOTO 20
  64. 630 ? "MAINE":? :? "ALL LOCATIONS":GOTO 20
  65. 640 ? "MARYLAND":? :? "ALL LOCATIONS":GOTO 20
  66. 650 ? "MASSACHUSETTS":? :? "SPRINGFIELD":GOTO 20
  67. 660 ? "MASSACHUSETTS":? :? "BOSTON","NEW BEDFORD":? "PLYMOUTH","WORCESTER":GOTO 20
  68. 670 ? "MICHIGAN":? :? "ANN ARBOR","DETROIT":? "FLINT":GOTO 20
  69. 680 ? "MICHIGAN":? :? "LANSING":GOTO 20
  70. 690 ? "MICHIGAN":? :? "BATTLE CREEK","GRAND RAPIDS":? "KALAMAZOO":GOTO 20
  71. 700 ? "MICHIGAN":? :? "ESCANABA":GOTO 20
  72. 710 ? "MINNESOTA":? :? "DULUTH":GOTO 20
  73. 720 ? "MINNESOTA":? :? "ROCHESTER":GOTO 20
  74. 730 ? "MINNESOTA":? :? "MINNEAPOLIS","ST PAUL":GOTO 20
  75. 740 ? "MISSISSIPPI":? :? "ALL LOCATIONS":GOTO 20
  76. 750 ? "MISSOURI":? :? "CAPE GIRARDEAU","COLUMBIA":? "FULTON",,"HANNIBAL":? "JEFFERSON CITY","MEXICO"
  77. 760 ? "POPLAR BLUFF","ROLLA":? "ST LOUIS":GOTO 20
  78. 770 ? "MISSOURI":? :? "JOPLIN","SPRINGFIELD":GOTO 20
  79. 780 ? "MISSOURI":? :? "BELTON",,"INDEPENDENCE":? "KANSAS CITY","MARSHALL":? "ST JOSEPH","SEDALIA":GOTO 20
  80. 790 ? "MONTANA":? :? "ALL LOCATIONS":GOTO 20
  81. 800 ? "NEBRASKA":? :? "LINCOLN","OMAHA":GOTO 20
  82. 810 ? "NEBRASKA":? :? "NORTH PLATTE":GOTO 20
  83. 820 ? "NEVADA":? :? "ALL LOCATIONS":GOTO 20
  84. 830 ? "NEW HAMPSHIRE":? :? "ALL LOCATIONS":GOTO 20
  85. 840 ? "NEW JERSEY":? :? "HACKENSACK","NEWARK":? "NEW BRUNSWICK","PATERSON":GOTO 20
  86. 850 ? "NEW JERSEY":? :? "ATLANTIC CITY","CAMDEN":? "TRENTON":GOTO 20
  87. 860 ? "NEW MEXICO":? :? "ALL LOCATIONS":GOTO 20
  88. 870 ? "NEW YORK":? :? "NEW YORK CITY":GOTO 20
  89. 880 ? "NEW YORK":? :? "SYRACUSE":GOTO 20
  90. 890 ? "NEW YORK":? :? "HEMPSTEAD":GOTO 20
  91. 900 ? "NEW YORK":? :? "ALBANY","SCHENECTADY":GOTO 20
  92. 910 ? "NEW YORK":? :? "BINGHAMTON":GOTO 20
  93. 920 ? "NEW YORK":? :? "BUFFALO","NIAGARA FALLS":? "ROCHESTER":GOTO 20
  94. 930 ? "NEW YORK":? :? "WHITE PLAINS":GOTO 20
  95. 940 ? "NORTH CAROLINA":? :? "CHARLOTTE","SALISBURY":GOTO 20
  96. 950 ? "NORTH CAROLINA":? :? "GREENVILLE","RALEIGH":? "WINSTON-SALEM":GOTO 20
  97. 960 ? "NORTH DAKOTA":? :? "ALL LOCATIONS":GOTO 20
  98. 970 ? "OHIO":? :? "AKRON","CLEVELAND":? "YOUNGSTOWN":GOTO 20
  99. 980 ? "OHIO":? :? "TOLEDO":GOTO 20
  100. 990 ? "OHIO":? :? "CINCINNATI","DAYTON":GOTO 20
  101. 1000 ? "OHIO":? :? "COLUMBUS":GOTO 20
  102. 1010 ? "OKLAHOMA":? :? "ENID",,"NORMAN":? "OKLAHOMA CITY","PONCA CITY":? "STILLWATER":GOTO 20
  103. 1020 ? "OKLAHOMA":? :? "BARTLESVILLE","MCALESTER":? "MUSKOGEE",,"TULSA":GOTO 20
  104. 1030 ? "OREGON":? :? "ALL LOCATIONS":GOTO 20
  105. 1040 ? "PENNSYLVANIA":? :? "ALLENTOWN (LEHIGH CO.)":? "PHILADELPHIA":GOTO 20
  106. 1050 ? "PENNSYLVANIA":? :? "PITTSBURGH":GOTO 20
  107. 1060 ? "PENNSYLVANIA":? :? "HARRISBURG","SCRANTON":GOTO 20
  108. 1070 ? "PENNSYLVANIA":? :? "ALTOONA","ERIE":GOTO 20
  109. 1080 ? "RHODE ISLAND":? :? "ALL LOCATIONS":GOTO 20
  110. 1090 ? "SOUTH CAROLINA":? :? "ALL LOCATIONS":GOTO 20
  111. 1100 ? "SOUTH DAKOTA":? :? "ALL LOCATIONS":GOTO 20
  112. 1110 ? "TENNESSEE":? :? "CHATTANOOGA","NASHVILLE":GOTO 20
  113. 1120 ? "TENNESSEE":? :? "MEMPHIS":GOTO 20
  114. 1130 ? "TEXAS":? :? "DALLAS","DENISON":? "ENNIS","GREENVILLE"
  115. 1140 ? "JEFFERSON";" LONGVIEW":? "PARIS","SHERMAN":? "TYLER":GOTO 20
  116. 1150 ? "TEXAS":? :? "BAY CITY",,"BEAUMONT":? "BRYAN",,"COLLEGE STATION"
  117. 1160 ? "FREEPORT",,"GALVESTON":? "HUNTSVILLE","ORANGE":? "TEXAS CITY":GOTO 20
  118. 1170 ? "TEXAS":? :? "ALICE",,"AUSTIN":? "BANDERA",,"BEEVILLE"
  119. 1180 ? "BROWNSVILLE","CARRIZO SPRINGS":? "CORPUS CHRISTI","CRYSTAL CITY"
  120. 1190 ? "DEL RIO",,"EAGLE PASS":? "FLATONIA",,"FREDERICKSBURG"
  121. 1200 ? "FREER",,"GEORGETOWN":? "GOLIAD",,"HALLETTSVILLE"
  122. 1210 ? "HONDO",,"KERRVILLE":? "LAMPASAS",,"LAREDO"
  123. 1220 ? "MARBLE FALLS","MCALLEN":? "ROCKPORT",,"SAN ANTONIO"
  124. 1230 ? "UVALDE",,"VICTORIA":GOTO 20
  125. 1240 ? "TEXAS":? :? "BAYTOWN","HOUSTON":GOTO 20
  126. 1250 ? "TEXAS":? :? "AMARILLO","BORGER":? "DALHART","LUBBOCK":GOTO 20
  127. 1260 ? "TEXAS":? :? "DENTON",,"FORT WORTH":? "TEMPLE",,"WACO"
  128. 1270 ? "WICHITA FALLS":GOTO 20
  129. 1280 ? "TEXAS":? :? "ABILENE",,"ALPINE":? "BIG SPRING","EL PASO"
  130. 1290 ? "MIDLAND",,"ODESSA":? "SAN ANGELO":GOTO 20
  131. 1300 ? "UTAH":? :? "ALL LOCATIONS":GOTO 20
  132. 1310 ? "VERMONT":? :? "ALL LOCATIONS":GOTO 20
  133. 1320 ? "VIRGINIA":? :? "ARLINGTON","ROANOKE":? "WINCHESTER":GOTO 20
  134. 1330 ? "VIRGINIA":? :? "CHARLOTTESVILLE","NEWPORT NEWS":? "NORFOLK",,"RICHMOND":GOTO 20
  135. 1340 ? "WASHINGTON":? :? "OLYMPIA","SEATTLE":? "VANCOUVER":GOTO 20
  136. 1350 ? "WASHINGTON":? :? "SPOKANE","WALLA WALLA":GOTO 20
  137. 1360 ? "WEST VIRGINIA":? :? "ALL LOCATIONS":GOTO 20
  138. 1370 ? "WISCONSIN":? :? "GREEN BAY","MILWAUKEE":? "RACINE":GOTO 20
  139. 1380 ? "WISCONSIN":? :? "MADISON":GOTO 20
  140. 1390 ? "WISCONSIN":? :? "EAU CLAIRE","WAUSAU":GOTO 20
  141. 1400 ? "WYOMING":? :? "ALL LOCATIONS":GOTO 20
  142. 1410 ? "ANGUILLA",,"ANTIGUA":? "BAHAMAS",,"BARBADOS":? "BEQUIA",,"BERMUDA":? "CAYMAN ISLANDS","DOMINICA"
  143. 1420 ? "DOMINICAN REP","JAMAICA":? "MONTSERRAT","MUSTIQUE":? "NEVIS",,"PALM ISLAND":? "PUERTO RICO","ST KITTS"
  144. 1430 ? "ST LUCIA",,"ST VINCENT":? "TRINIDAD",,"TOBAGO":? "UNION ISLAND","VIRGIN ISLANDS":GOTO 20
  145. 1440 ? "CANADA":? :? "BRITISH COLUMBIA":GOTO 20
  146. 1450 ? "CANADA":? :? "ALBERTA":? "   CALGARY":GOTO 20
  147. 1460 ? "CANADA":? :? "SASKATCHEWAN":GOTO 20
  148. 1470 ? "CANADA":? :? "MANITOBA":GOTO 20
  149. 1480 ? "CANADA":? :? "ONTARIO":? "   THUNDER BAY":GOTO 20
  150. 1490 ? "CANADA":? :? "ONTARIO":? "   NORTH BAY":GOTO 20
  151. 1500 ? "CANADA":? :? "ONTARIO":? "   LONDON":GOTO 20
  152. 1510 ? "CANADA":? :? "ONTARIO":? "   TORONTO":GOTO 20
  153. 1520 ? "CANADA":? :? "ONTARIO":? "   OTTAWA":GOTO 20
  154. 1530 ? "CANADA":? :? "QUEBEC":? "   MONTREAL":GOTO 20
  155. 1540 ? "CANADA":? :? "QUEBEC":? "   QUEBEC":GOTO 20
  156. 1550 ? "CANADA":? :? "QUEBEC":GOTO 20
  157. 1560 ? "CANADA":? :? "NEW FOUNDLAND":GOTO 20
  158. 1570 ? "CANADA":? :? "NEW BRUNSWICK":GOTO 20
  159. 1580 ? "CANADA":? :? "PRINCE EDWARD ISLAND":? "NOVA SCOTIA":GOTO 20
  160. 1590 ? "MEXICO":? :? "MEXICO CITY":GOTO 20
  161. 1600 ? "MEXICO":? :? "NORTHWEST MEXICO":GOTO 20
  162.