home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib28a.dsk / APRIL.1986 / INST.AREA.CODES.bas next >
BASIC Source File  |  2023-02-26  |  7KB  |  109 lines
  1. 10  REM  **********************
  2. 20  REM  *  INST.AREA.CODES   *
  3. 30  REM  * BY R. TESTAGROSSA  *
  4. 40  REM  * COPYRIGHT (C) 1986 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80  TEXT : HOME : POKE 768,0: HTAB 11: PRINT "-AREA CODE FINDER-"
  9. 90  HTAB 11: PRINT "BY RIC TESTAGROSSA": HTAB 5: PRINT "COPYRIGHT 1986 BY MICROSPARC, INC.": POKE 34,3
  10. 100  HOME : VTAB 8: PRINT "<1>  SEARCH BY AREA CODE"
  11. 110  VTAB 10: PRINT "<2>  SEARCH BY CITY"
  12. 120  VTAB 12: PRINT "<3>  SEARCH BY STATE"
  13. 130  VTAB 14: PRINT "<4>  TURN PRINTER " MID$ ("ON OFF",1 +3 *( PEEK(768) = 13),3)
  14. 140  VTAB 16: PRINT "<5>  QUIT NOW"
  15. 150  VTAB 18: HTAB 1: CALL  -958: PRINT "CHOOSE: ";: GET A$:A =  VAL(A$): IF A <1  OR A >5  THEN  VTAB 17: CALL  -958: GOTO 150
  16. 160  IF A = 5  THEN 480
  17. 170  ON A GOTO 190,290,500,180
  18. 180  POKE 768,1 +12 *( PEEK(768) < >13): GOTO 100
  19. 190 D$ =  CHR$(4): HOME : VTAB 10: INPUT "ENTER AREA CODE:  ";KEY$: IF  LEN(KEY$) < >3  THEN 190
  20. 200 KEY =  VAL(KEY$): IF K <0  THEN 190
  21. 210  READ ST$: READ N: IF N =  -1  THEN 380
  22. 220  IF N = 1  THEN X = 0: READ CT$: READ NU: IF NU = KEY  THEN I = I +1: GOSUB 410
  23. 230  IF N = 1  THEN 280
  24. 240  FOR X = 1 TO N: READ CT$: READ NU
  25. 250  IF NU = KEY  THEN I = I +1: GOSUB 410
  26. 260  NEXT 
  27. 270  IF X = N  THEN 460
  28. 280  GOTO 210
  29. 290 D$ =  CHR$(4): HOME : VTAB 10: INPUT "ENTER CITY: ";C1$
  30. 300 B$ = C1$:F = 0
  31. 310  READ ST$: READ N: IF F = 1  AND N =  -1  THEN 460
  32. 320  IF N =  -1  THEN 400
  33. 330  IF  PEEK(768) = 13  THEN  PRINT D$"PR#1"
  34. 340  FOR X = 1 TO N: READ CT$: READ NU
  35. 350  IF C1$ = CT$  THEN F = 1:VT = VT +1: VTAB 14 +VT: PRINT CT$;", ";ST$,NU
  36. 360  NEXT : IF  PEEK(768) = 13  THEN  PRINT D$"PR#0"
  37. 370  GOTO 310
  38. 380  IF I  THEN 460
  39. 390  VTAB 19: PRINT "INVALID AREA CODE": GOTO 470
  40. 400  VTAB 19: PRINT "NOT LISTED.": PRINT "CHECK SPELLING OF": PRINT B$: GOTO 470
  41. 410  IF  PEEK(768) = 13  THEN  PRINT D$"PR#1"
  42. 420  VTAB 12 +I:B$ = CT$ +", " +ST$: PRINT NU,B$: RETURN 
  43. 430  IF N = 1  THEN 460
  44. 440  IF ST$ < >""  THEN 460
  45. 450  GOTO 260
  46. 460  IF  PEEK(768) = 13  THEN  PRINT D$"PR#0"
  47. 470  VTAB 24: HTAB 7: PRINT "PRESS <RETURN> TO CONTINUE";: GET A$: CLEAR : RESTORE : GOTO 100
  48. 480  VTAB 18: HTAB 1: CALL  -958: PRINT "FINISHED": POKE 34,0: POKE 768,0: END 
  49. 490  VTAB 17 +I:B = (40 - LEN(B$))/2: HTAB B: PRINT B$:I = I +1: RETURN 
  50. 500 D$ =  CHR$(4): HOME : VTAB 10: INPUT "ENTER STATE: ";S1$
  51. 510  READ ST$: READ N: IF N =  -1  THEN B$ = S1$: GOTO 400
  52. 520  IF  PEEK(768) = 13  THEN  PRINT D$"PR#1": IF S1$ = ST$  THEN  PRINT ST$
  53. 530  IF S1$ = ST$  THEN  FOR X = 1 TO N: READ CT$: READ NU: PRINT CT$,NU: NEXT : GOTO 460
  54. 540  FOR X = 1 TO N: READ Z$: READ Z: NEXT : GOTO 510
  55. 550  DATA  "AL",1,"ALL LOCATIONS",205
  56. 560  DATA  "AK",1,"ALL LOCATIONS",907
  57. 570  DATA  "AZ",1,"ALL LOCATIONS",602
  58. 580  DATA  "AR",1,"ALL LOCATIONS",501
  59. 590  DATA  "CA",20,"ANAHEIM",714,"BAKERSFIELD",805,"BARSTOW",619,"BISHOP",619,"EL CENTRO",619,"EUREKA",707,"FRESNO",209,"LOS ANGELES",213,"MODESTO",209,"MONTEREY",408,"OAKLAND",415,"PALM SPRINGS",619
  60. 600  DATA  "REDDING",916,"RIVERSIDE",714, "SACRAMENTO",916,"SAN DIEGO",619,"SAN FRANCISCO",415,"SAN JOSE",408,"SANTA BARBARA",805,"SANTA ROSA",707
  61. 610  DATA  "CO",1,"ALL LOCATIONS",303
  62. 620  DATA  "CT",1,"ALL LOCATIONS",203
  63. 630  DATA  "DE",1,"ALL LOCATIONS",302
  64. 640  DATA  "DC",1,"WASHINGTON",202
  65. 650  DATA  "FL",10,"FT. LAUDERDALE",305,"FT. MYERS",813,"JACKSONVILLE",904,"KEY WEST",305,"MIAMI",305,"ORLANDO",305,"PENSACOLA",904,"ST. PETERSBURG",813,"TALLAHASSEE",904,"TAMPA",813
  66. 660  DATA  "GA",3,"ATLANTA",404,"ROME",404,"SAVANNAH",912
  67. 670  DATA  "HI",1,"ALL LOCATIONS",808
  68. 680  DATA  "ID",1,"ALL LOCATIONS",208
  69. 690  DATA  "IL",13,"ALTON",618,"CAIRO",618,"CHAMPAIGN",217,"CHICAGO",312,"ELGIN",312,"LA SALLE",815,"MT. VERNON",618,"PEORIA",309,"ROCKFORD",815,"ROCK ISLAND",309,"SPRINGFIELD",217,"URBANA",217,"WAUKEGAN",312
  70. 700  DATA  "IN",7,"EVANSVILLE",812,"GARY",219,"HAMMOND",219,"INDIANAPOLIS",317,"KOKOMO",317,"MICHIGAN CITY",219,"SOUTH BEND",219
  71. 710  DATA  "IA",5,"COUNCIL BLUFFS",712,"DAVENPORT",319,"DES MOINES",515,"DUBUQUE",319,"SIOUX CITY",712
  72. 720  DATA  "KS",6,"DODGE CITY",316,"KANSAS CITY",913,"LAWRENCE",913,"SALINA",913,"TOPEKA",913,"WICHITA",316
  73. 730  DATA  "KY",7,"ASHLAND",606,"FRANKFORT",502,"LEXINGTON",606,"LOUISVILLE",502,"PADUCAH",502,"SHELBYVILLE",502,"WINCHESTER",606
  74. 740  DATA  "LA",4,"BATON ROUGE",504,"LAKE CHARLES",318,"NEW ORLEANS",504,"SHREVEPORT",318
  75. 750  DATA  "ME",1,"ALL LOCATIONS",207
  76. 760  DATA  "MD",1,"ALL LOCATIONS",301
  77. 770  DATA  "MA",6,"AMHERST",413,"BOSTON",617,"FITCHBURG",617,"NEW BEDFORD",617,"SPRINGFIELD",413,"WORCESTER",617
  78. 780  DATA  "MI",12,"ANN ARBOR",313,"BAY CITY",517,"BATTLE CREEK",616,"DETROIT",313,"ESCANABA",906,"FLINT",313,"GRAND RAPIDS",616,"JACKSON",517,"KALAMAZOO",616,"LANSING",517,"MARQUETTE",906,"SAULT STE. MARIE",906
  79. 790  DATA  "MN",4,"DULUTH",218,"MINNEAPOLIS",612,"ROCHESTER",507,"ST. PAUL",612
  80. 800  DATA  "MS",1,"ALL LOCATIONS",406
  81. 810  DATA  "MO",7,"COLUMBIA",314,"JEFFERSON CITY",314,"JOPLIN",417,"KANSAS CITY",816,"ST. JOSEPH",816,"ST. LOUIS",314,"SPRINGFIELD",417
  82. 820  DATA  "MT",1,"ALL LOCATIONS",406
  83. 830  DATA  "NE",4,"LINCOLN",402,"NORTH PLATTE",308,"OMAHA",402,"SCOTTSBLUFF",308
  84. 840  DATA  "NV",1,"ALL LOCATIONS",702
  85. 850  DATA  "NH",1,"ALL LOCATIONS",603
  86. 860  DATA  "NJ",9,"ATLANTIC CITY",609,"CAMDEN",609,"HACKENSACK",201,"JERSEY CITY",201,"NEWARK",201,"NEW BRUNSWICK",201,"PATERSON",201,"TRENTON",609,"VINELAND",609
  87. 870  DATA  "NM",1,"ALL LOCATIONS",505
  88. 880  DATA  "NY",18,"ALBANY",518,"BINGHAMTON",607,"BROOKLYN",718,"BUFFALO",716,"ELMIRA",607,"HEMPSTEAD",516,"NEW YORK",212,"NIAGARA FALLS",716,"PEEKSKILL",914,"POUGHKEEPSIE",914,"QUEENS",718,"ROCHESTER",716,"SCHENECTADY",518
  89. 890  DATA  "SYRACUSE",315,"TROY",518,"UTICA",315,"WHITE PLAINS",914,"YONKERS",914
  90. 900  DATA  "NC",6,"ASHEVILLE",704,"CHARLOTTE",704,"FAYETTEVILLE",919,"GREENSBORO",919,"RALEIGH",919,"WINSTON-SALEM",919
  91. 910  DATA  "ND",1,"ALL LOCATIONS",701
  92. 920  DATA  "OH",10,"AKRON",216,"CANTON",216,"CINCINNATI",513,"CLEVELAND",216,"COLUMBUS",614,"DAYTON",513,"LORAIN",216,"STEUBENVILLE",614,"TOLEDO",419,"YOUNGSTOWN",216
  93. 930  DATA  "OK",3,"ENID",405,"OKLAHOMA CITY",405,"TULSA",918
  94. 940  DATA  "OR",1,"ALL LOCATIONS",503
  95. 950  DATA  "PA",9,"ALLENTOWN",215,"ALTOONA",814,"ERIE",814,"HARRISBURG",717,"PHILADELPHIA",215,"PITTSBURGH",412,"READING",215,"SCRANTON",717,"WILKES-BARRE",717
  96. 960  DATA  "RI",1,"ALL LOCATIONS",401
  97. 970  DATA  "SC",1,"ALL LOCATIONS",803
  98. 980  DATA  "SD",1,"ALL LOCATIONS",605
  99. 990  DATA  "TN",4,"CHATTANOOGA",615,"KNOXVILLE",615,"MEMPHIS",901,"NASHVILLE",615
  100. 1000  DATA  "TX",15,"ABILENE",915,"AMARILLO",806,"AUSTIN",512,"BEAUMONT",409,"BROWNSVILLE",512,"CORPUS CHRISTI",512,"DALLAS",214,"EL PASO",915,"FORT WORTH",817,"GALVESTON",409,"HOUSTON",713
  101. 1010  DATA  "LUBBOCK",806,"SAN ANTONIO",512,"TYLER",214,"WACO",817
  102. 1020  DATA  "UT",1,"ALL LOCATIONS",801
  103. 1030  DATA  "VT",1,"ALL LOCATIONS",802
  104. 1040  DATA  "VA",7,"ALEXANDRIA",703,"ARLINGTON",703,"CHARLOTTESVILLE",804,"NEWPORT NEWS",804,"NORFOLK",804,"RICHMOND",804,"ROANOKE",703
  105. 1050  DATA  "WA",6,"SEATTLE",206,"SPOKANE",509,"TACOMA",206,"VANCOUVER",206,"WALLA WALLA",509,"YAKIMA",509
  106. 1060  DATA  "WV",1,"ALL LOCATIONS",304
  107. 1070  DATA  "WI",7,"EAU CLAIRE",715,"FOND DU LAC",414,"GREEN BAY",414,"MADISON",608,"MILWAUKEE",414,"RACINE",414,"WAUSAU",715
  108. 1080  DATA  "WY",1,"ALL LOCATIONS",307
  109. 1090  DATA  "END",-1