Category : A Collection of Games for DOS and Windows
Archive   : PIZZA.ZIP
Filename : AREACODE.BAS

 
Output of file : AREACODE.BAS contained in archive : PIZZA.ZIP
10 REM AREA CODE LOCATER
15 ? "ENTER ZERO TO END PROGRAM"
20 ? ๐Ÿ˜• "INPUT AREA CODE"
30 INPUT N:? :IF N=0 THEN END
40 ON INT(N/100) GOTO 210,60,80,100,120,140,160,180,200
50 GOTO 210
60 ON N-200 GOTO 840,380,360,1470,220,1340,630,450,260,210,210,870,270,1130,1040,970,460,710,510
70 GOTO 210
80 ON N-300 GOTO 640,370,350,1360,390,1460,1400,810,470,210,210,480,670,750,880,570,520,610,540
90 GOTO 210
100 ON N-400 GOTO 1080,800,1450,420,1010,790,210,280,1150,210,210,1050,650,1370,290,1510,770,1540,980
110 GOTO 210
120 ON N-500 GOTO 250,590,1030,620,860,1570,720,210,1350,210,210,1170,990,1530,550,890,680,900,1500
130 GOTO 210
140 ON N-600 GOTO 740,240,830,1440,1100,600,910,1380,850,210,210,730,1520,1000,1110,690,660,490,300
150 GOTO 210
160 ON N-700 GOTO 960,820,1320,940,1490,1600,310,210,1560,210,210,560,1240,320,1390,920,1060
170 GOTO 210
180 ON N-800 GOTO 1300,1310,1090,1330,330,1250,1480,440,1410,210,210,530,400,1070,500,780,1260,210,1550
190 GOTO 210
200 ON N-900 GOTO 1120,1580,210,410,1590,700,230,210,210,210,210,430,580,930,1280,340,210,1020,950
210 ? "NOT A VALID AREA CODE":GOTO 20
220 ? "ALABAMA":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
230 ? "ALASKA":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
240 ? "ARIZONA":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
250 ? "ARKANSAS":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
260 ? "CALIFORNIA":? ๐Ÿ˜• "FRESNO":GOTO 20
270 ? "CALIFORNIA":? ๐Ÿ˜• "LOS ANGELES":GOTO 20
280 ? "CALIFORNIA":? ๐Ÿ˜• "SAN JOSE":GOTO 20
290 ? "CALIFORNIA":? ๐Ÿ˜• "SAN FRANCISCO":GOTO 20
300 ? "CALIFORNIA":? ๐Ÿ˜• "SAN DIEGO":GOTO 20
310 ? "CALIFORNIA":? ๐Ÿ˜• "SANTA ROSA":GOTO 20
320 ? "CALIFORNIA":? ๐Ÿ˜• "ORANGE":GOTO 20
330 ? "CALIFORNIA":? ๐Ÿ˜• "BAKERSFIELD":GOTO 20
340 ? "CALIFORNIA":? ๐Ÿ˜• "SACRAMENTO":GOTO 20
350 ? "COLORADO":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
360 ? "CONNECTICUT":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
370 ? "DELAWARE":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
380 ? "WASHINGTON, D.C.":GOTO 20
390 ? "FLORIDA":? ๐Ÿ˜• "FT. LAUDERDALE","KEY WEST":? "MIAMI":GOTO 20
400 ? "FLORIDA":? ๐Ÿ˜• "FT. MYERS","WINTER HAVEN":GOTO 20
410 ? "FLORIDA":? ๐Ÿ˜• "JACKSONVILLE","TALLAHASSEE":GOTO 20
420 ? "GEORGIA":? ๐Ÿ˜• "ATLANTA","ROME":GOTO 20
430 ? "GEORGIA":? ๐Ÿ˜• "SAVANNAH","WAYCROSS":GOTO 20
440 ? "HAWAII":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
450 ? "IDAHO":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
460 ? "ILLINOIS":? ๐Ÿ˜• "SPRINGFIELD":GOTO 20
470 ? "ILLINOIS":? ๐Ÿ˜• "PEORIA":GOTO 20
480 ? "ILLINOIS":? ๐Ÿ˜• "AURORA","CHICAGO":? "WAUKEGAN":GOTO 20
490 ? "ILLINOIS":? ๐Ÿ˜• "ALTON","CENTRALIA":? "MT. VERNON":GOTO 20
500 ? "ILLINOIS":? ๐Ÿ˜• "ROCKFORD":GOTO 20
510 ? "INDIANA":? ๐Ÿ˜• "GARY","SOUTH BEND":? "WARSAW":GOTO 20
520 ? "INDIANA":? ๐Ÿ˜• "INDIANAPOLIS","KOKOMO":GOTO 20
530 ? "INDIANA":? ๐Ÿ˜• "EVANSVILLE":GOTO 20
540 ? "IOWA":? ๐Ÿ˜• "DUBUQUE":GOTO 20
550 ? "IOWA":? ๐Ÿ˜• "DES MOINES":GOTO 20
560 ? "IOWA":? ๐Ÿ˜• "COUNCIL BLUFFS":GOTO 20
570 ? "KANSAS":? ๐Ÿ˜• "DODGE CITY","WICHITA":GOTO 20
580 ? "KANSAS":? ๐Ÿ˜• "LAWRENCE","MANHATTAN":? "SALINA","TOPEKA":GOTO 20
590 ? "KENTUCKY":? ๐Ÿ˜• "FRANKFORT","LOUISVILLE":? "PADUCAH",,"SHELBYVILLE":GOTO 20
600 ? "KENTUCKY":? ๐Ÿ˜• "COVINGTON","WINCHESTER":GOTO 20
610 ? "LOUISIANA":? ๐Ÿ˜• "LAKE CHARLES","SHREVEPORT":GOTO 20
620 ? "LOUISIANA":? ๐Ÿ˜• "BATON ROUGE","NEW ORLEANS":GOTO 20
630 ? "MAINE":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
640 ? "MARYLAND":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
650 ? "MASSACHUSETTS":? ๐Ÿ˜• "SPRINGFIELD":GOTO 20
660 ? "MASSACHUSETTS":? ๐Ÿ˜• "BOSTON","NEW BEDFORD":? "PLYMOUTH","WORCESTER":GOTO 20
670 ? "MICHIGAN":? ๐Ÿ˜• "ANN ARBOR","DETROIT":? "FLINT":GOTO 20
680 ? "MICHIGAN":? ๐Ÿ˜• "LANSING":GOTO 20
690 ? "MICHIGAN":? ๐Ÿ˜• "BATTLE CREEK","GRAND RAPIDS":? "KALAMAZOO":GOTO 20
700 ? "MICHIGAN":? ๐Ÿ˜• "ESCANABA":GOTO 20
710 ? "MINNESOTA":? ๐Ÿ˜• "DULUTH":GOTO 20
720 ? "MINNESOTA":? ๐Ÿ˜• "ROCHESTER":GOTO 20
730 ? "MINNESOTA":? ๐Ÿ˜• "MINNEAPOLIS","ST PAUL":GOTO 20
740 ? "MISSISSIPPI":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
750 ? "MISSOURI":? ๐Ÿ˜• "CAPE GIRARDEAU","COLUMBIA":? "FULTON",,"HANNIBAL":? "JEFFERSON CITY","MEXICO"
760 ? "POPLAR BLUFF","ROLLA":? "ST LOUIS":GOTO 20
770 ? "MISSOURI":? ๐Ÿ˜• "JOPLIN","SPRINGFIELD":GOTO 20
780 ? "MISSOURI":? ๐Ÿ˜• "BELTON",,"INDEPENDENCE":? "KANSAS CITY","MARSHALL":? "ST JOSEPH","SEDALIA":GOTO 20
790 ? "MONTANA":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
800 ? "NEBRASKA":? ๐Ÿ˜• "LINCOLN","OMAHA":GOTO 20
810 ? "NEBRASKA":? ๐Ÿ˜• "NORTH PLATTE":GOTO 20
820 ? "NEVADA":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
830 ? "NEW HAMPSHIRE":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
840 ? "NEW JERSEY":? ๐Ÿ˜• "HACKENSACK","NEWARK":? "NEW BRUNSWICK","PATERSON":GOTO 20
850 ? "NEW JERSEY":? ๐Ÿ˜• "ATLANTIC CITY","CAMDEN":? "TRENTON":GOTO 20
860 ? "NEW MEXICO":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
870 ? "NEW YORK":? ๐Ÿ˜• "NEW YORK CITY":GOTO 20
880 ? "NEW YORK":? ๐Ÿ˜• "SYRACUSE":GOTO 20
890 ? "NEW YORK":? ๐Ÿ˜• "HEMPSTEAD":GOTO 20
900 ? "NEW YORK":? ๐Ÿ˜• "ALBANY","SCHENECTADY":GOTO 20
910 ? "NEW YORK":? ๐Ÿ˜• "BINGHAMTON":GOTO 20
920 ? "NEW YORK":? ๐Ÿ˜• "BUFFALO","NIAGARA FALLS":? "ROCHESTER":GOTO 20
930 ? "NEW YORK":? ๐Ÿ˜• "WHITE PLAINS":GOTO 20
940 ? "NORTH CAROLINA":? ๐Ÿ˜• "CHARLOTTE","SALISBURY":GOTO 20
950 ? "NORTH CAROLINA":? ๐Ÿ˜• "GREENVILLE","RALEIGH":? "WINSTON-SALEM":GOTO 20
960 ? "NORTH DAKOTA":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
970 ? "OHIO":? ๐Ÿ˜• "AKRON","CLEVELAND":? "YOUNGSTOWN":GOTO 20
980 ? "OHIO":? ๐Ÿ˜• "TOLEDO":GOTO 20
990 ? "OHIO":? ๐Ÿ˜• "CINCINNATI","DAYTON":GOTO 20
1000 ? "OHIO":? ๐Ÿ˜• "COLUMBUS":GOTO 20
1010 ? "OKLAHOMA":? ๐Ÿ˜• "ENID",,"NORMAN":? "OKLAHOMA CITY","PONCA CITY":? "STILLWATER":GOTO 20
1020 ? "OKLAHOMA":? ๐Ÿ˜• "BARTLESVILLE","MCALESTER":? "MUSKOGEE",,"TULSA":GOTO 20
1030 ? "OREGON":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
1040 ? "PENNSYLVANIA":? ๐Ÿ˜• "ALLENTOWN (LEHIGH CO.)":? "PHILADELPHIA":GOTO 20
1050 ? "PENNSYLVANIA":? ๐Ÿ˜• "PITTSBURGH":GOTO 20
1060 ? "PENNSYLVANIA":? ๐Ÿ˜• "HARRISBURG","SCRANTON":GOTO 20
1070 ? "PENNSYLVANIA":? ๐Ÿ˜• "ALTOONA","ERIE":GOTO 20
1080 ? "RHODE ISLAND":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
1090 ? "SOUTH CAROLINA":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
1100 ? "SOUTH DAKOTA":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
1110 ? "TENNESSEE":? ๐Ÿ˜• "CHATTANOOGA","NASHVILLE":GOTO 20
1120 ? "TENNESSEE":? ๐Ÿ˜• "MEMPHIS":GOTO 20
1130 ? "TEXAS":? ๐Ÿ˜• "DALLAS","DENISON":? "ENNIS","GREENVILLE"
1140 ? "JEFFERSON";" LONGVIEW":? "PARIS","SHERMAN":? "TYLER":GOTO 20
1150 ? "TEXAS":? ๐Ÿ˜• "BAY CITY",,"BEAUMONT":? "BRYAN",,"COLLEGE STATION"
1160 ? "FREEPORT",,"GALVESTON":? "HUNTSVILLE","ORANGE":? "TEXAS CITY":GOTO 20
1170 ? "TEXAS":? ๐Ÿ˜• "ALICE",,"AUSTIN":? "BANDERA",,"BEEVILLE"
1180 ? "BROWNSVILLE","CARRIZO SPRINGS":? "CORPUS CHRISTI","CRYSTAL CITY"
1190 ? "DEL RIO",,"EAGLE PASS":? "FLATONIA",,"FREDERICKSBURG"
1200 ? "FREER",,"GEORGETOWN":? "GOLIAD",,"HALLETTSVILLE"
1210 ? "HONDO",,"KERRVILLE":? "LAMPASAS",,"LAREDO"
1220 ? "MARBLE FALLS","MCALLEN":? "ROCKPORT",,"SAN ANTONIO"
1230 ? "UVALDE",,"VICTORIA":GOTO 20
1240 ? "TEXAS":? ๐Ÿ˜• "BAYTOWN","HOUSTON":GOTO 20
1250 ? "TEXAS":? ๐Ÿ˜• "AMARILLO","BORGER":? "DALHART","LUBBOCK":GOTO 20
1260 ? "TEXAS":? ๐Ÿ˜• "DENTON",,"FORT WORTH":? "TEMPLE",,"WACO"
1270 ? "WICHITA FALLS":GOTO 20
1280 ? "TEXAS":? ๐Ÿ˜• "ABILENE",,"ALPINE":? "BIG SPRING","EL PASO"
1290 ? "MIDLAND",,"ODESSA":? "SAN ANGELO":GOTO 20
1300 ? "UTAH":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
1310 ? "VERMONT":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
1320 ? "VIRGINIA":? ๐Ÿ˜• "ARLINGTON","ROANOKE":? "WINCHESTER":GOTO 20
1330 ? "VIRGINIA":? ๐Ÿ˜• "CHARLOTTESVILLE","NEWPORT NEWS":? "NORFOLK",,"RICHMOND":GOTO 20
1340 ? "WASHINGTON":? ๐Ÿ˜• "OLYMPIA","SEATTLE":? "VANCOUVER":GOTO 20
1350 ? "WASHINGTON":? ๐Ÿ˜• "SPOKANE","WALLA WALLA":GOTO 20
1360 ? "WEST VIRGINIA":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
1370 ? "WISCONSIN":? ๐Ÿ˜• "GREEN BAY","MILWAUKEE":? "RACINE":GOTO 20
1380 ? "WISCONSIN":? ๐Ÿ˜• "MADISON":GOTO 20
1390 ? "WISCONSIN":? ๐Ÿ˜• "EAU CLAIRE","WAUSAU":GOTO 20
1400 ? "WYOMING":? ๐Ÿ˜• "ALL LOCATIONS":GOTO 20
1410 ? "ANGUILLA",,"ANTIGUA":? "BAHAMAS",,"BARBADOS":? "BEQUIA",,"BERMUDA":? "CAYMAN ISLANDS","DOMINICA"
1420 ? "DOMINICAN REP","JAMAICA":? "MONTSERRAT","MUSTIQUE":? "NEVIS",,"PALM ISLAND":? "PUERTO RICO","ST KITTS"
1430 ? "ST LUCIA",,"ST VINCENT":? "TRINIDAD",,"TOBAGO":? "UNION ISLAND","VIRGIN ISLANDS":GOTO 20
1440 ? "CANADA":? ๐Ÿ˜• "BRITISH COLUMBIA":GOTO 20
1450 ? "CANADA":? ๐Ÿ˜• "ALBERTA":? " CALGARY":GOTO 20
1460 ? "CANADA":? ๐Ÿ˜• "SASKATCHEWAN":GOTO 20
1470 ? "CANADA":? ๐Ÿ˜• "MANITOBA":GOTO 20
1480 ? "CANADA":? ๐Ÿ˜• "ONTARIO":? " THUNDER BAY":GOTO 20
1490 ? "CANADA":? ๐Ÿ˜• "ONTARIO":? " NORTH BAY":GOTO 20
1500 ? "CANADA":? ๐Ÿ˜• "ONTARIO":? " LONDON":GOTO 20
1510 ? "CANADA":? ๐Ÿ˜• "ONTARIO":? " TORONTO":GOTO 20
1520 ? "CANADA":? ๐Ÿ˜• "ONTARIO":? " OTTAWA":GOTO 20
1530 ? "CANADA":? ๐Ÿ˜• "QUEBEC":? " MONTREAL":GOTO 20
1540 ? "CANADA":? ๐Ÿ˜• "QUEBEC":? " QUEBEC":GOTO 20
1550 ? "CANADA":? ๐Ÿ˜• "QUEBEC":GOTO 20
1560 ? "CANADA":? ๐Ÿ˜• "NEW FOUNDLAND":GOTO 20
1570 ? "CANADA":? ๐Ÿ˜• "NEW BRUNSWICK":GOTO 20
1580 ? "CANADA":? ๐Ÿ˜• "PRINCE EDWARD ISLAND":? "NOVA SCOTIA":GOTO 20
1590 ? "MEXICO":? ๐Ÿ˜• "MEXICO CITY":GOTO 20
1600 ? "MEXICO":? ๐Ÿ˜• "NORTHWEST MEXICO":GOTO 20


  3 Responses to “Category : A Collection of Games for DOS and Windows
Archive   : PIZZA.ZIP
Filename : AREACODE.BAS

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! ๐Ÿ˜€ I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/