home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib23a.dsk / APRIL.1985 / HIGHWAYS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  16KB  |  261 lines
  1. 1  REM ******* 5/13/85 ******
  2. 2  REM *      HIGHWAYS      *
  3. 3  REM * BY VIC HASSELBLAD  *
  4. 4  REM * COPYRIGHT (C) 1985 *
  5. 5  REM * BY MICROSPARC, INC *
  6. 6  REM * CONCORD, MA  01742 *
  7. 7  REM **********************
  8. 100  REM  **HEADING**
  9. 110  DIM CITY$(171),ST$(171),DIST%(171,7),RT%(171,7),DEST%(171,7),T%(1,171),NDST%(171)
  10. 120  HOME : VTAB 5: HTAB 13: PRINT "APPLE HIGHWAYS": VTAB 10: HTAB 12: PRINT "BY VIC HASSELBLAD"
  11. 130  VTAB 24: HTAB 1: PRINT "** COPYRIGHT 1985 MICROSPARC, INC. **";: VTAB 15: HTAB 10: FLASH : PRINT "READING IN DISTANCES": NORMAL 
  12. 140 NCIT = 171
  13. 150  FOR I = 1 TO NCIT
  14. 160  READ CITY$(I),ST$(I),NDST%(I)
  15. 170  FOR J = 1 TO NDST%(I)
  16. 180  READ DEST%(I,J),RT%(I,J),DIST%(I,J)
  17. 190  NEXT J: NEXT I
  18. 200  REM  **CHECK FOR PRINTER**
  19. 210 PR = 0
  20. 220  HOME : VTAB 5: PRINT "DO YOU HAVE A PRINTER (Y/N)? ";: GET Z$: PRINT Z$:
  21. 230  IF Z$ = "Y"  THEN PR = 1
  22. 240  REM  **CHOOSE START & STOP**
  23. 250  HOME : FLASH : PRINT "STARTING CITY": NORMAL 
  24. 260  GOSUB 300:NS = K
  25. 270  HOME : FLASH : PRINT "ENDING CITY": NORMAL : GOSUB 300:NF = K
  26. 280  GOTO 530
  27. 290  REM  **CITY LISTER**
  28. 300  VTAB 1: HTAB 16: INVERSE : PRINT "RET";: NORMAL : PRINT " SELECT CITY ";: INVERSE : PRINT "ESC";: NORMAL : PRINT " QUIT"
  29. 310  INVERSE : PRINT "N";: HTAB 21: PRINT "P";: NORMAL : HTAB 3: PRINT "- NEXT PAGE";: HTAB 23: PRINT "- PREVIOUS PAGE"
  30. 320  INVERSE : PRINT "->";: HTAB 21: PRINT "<-";: NORMAL : HTAB 4: PRINT "- NEXT CITY";: HTAB 24: PRINT "- PREVIOUS CITY"
  31. 330  FOR I = 1 TO 39: PRINT "=";: NEXT I: PRINT 
  32. 340 NPG =  INT((NCIT +18)/19):CPG = 1
  33. 350 CLINE = 0:BCIT = CPG *19 -18:MCIT = 18: IF BCIT >NCIT -19  THEN MCIT = NCIT -BCIT
  34. 360  VTAB 5: CALL  -958: FOR I = 0 TO MCIT: VTAB I +5: HTAB 1: PRINT CITY$(I +BCIT);", ";ST$(I +BCIT);: NEXT I
  35. 370  VTAB 5 +CLINE: HTAB 1: CALL  -868: INVERSE : PRINT CITY$(CLINE +BCIT);", ";ST$(CLINE +BCIT);: NORMAL 
  36. 380  VTAB 1: HTAB 40: GET Z$: IF Z$ =  CHR$(13)  THEN K = BCIT +CLINE: RETURN 
  37. 390  VTAB 5 +CLINE: HTAB 1: PRINT CITY$(CLINE +BCIT);", ";ST$(CLINE +BCIT);: IF Z$ =  CHR$(27)  THEN  HOME : GOTO 900
  38. 400  IF Z$ < > CHR$(78)  THEN 430
  39. 410 CPG = CPG +1: IF CPG >NPG  THEN CPG = 1
  40. 420  GOTO 350
  41. 430  IF Z$ < > CHR$(80)  THEN 460
  42. 440 CPG = CPG -1: IF CPG <1  THEN CPG = NPG
  43. 450  GOTO 350
  44. 460  IF Z$ < > CHR$(21)  AND Z$ < > CHR$(10)  THEN 490
  45. 470 CLINE = CLINE +1: IF CLINE >MCIT  THEN CLINE = 0
  46. 480  GOTO 370
  47. 490  IF Z$ < > CHR$(8)  AND Z$ < > CHR$(11)  THEN 380
  48. 500 CLINE = CLINE -1: IF CLINE <0  THEN CLINE = MCIT
  49. 510  GOTO 370
  50. 520  REM  **CHECK SELECTED CITIES**
  51. 530 : HOME : PRINT "STARTING CITY IS ";CITY$(NS);", ";ST$(NS): PRINT 
  52. 540  PRINT "ENDING CITY IS ";CITY$(NF);", ";ST$(NF): PRINT 
  53. 550  PRINT "IS THIS CORRECT (Y/N)? ";: GET Z$
  54. 560  PRINT Z$: IF Z$ = "N"  OR NS = NF  THEN 250
  55. 570  REM  **COMPUTE SHORTEST ROUTE**
  56. 580  FOR I = 1 TO NCIT:T%(0,I) = 9999:T%(1,I) = NF: NEXT I
  57. 590  FOR I = 1 TO NDST%(NF):T%(0,DEST%(NF,I)) = DIST%(NF,I): NEXT I
  58. 600 T%(1,NF) =  -NF:J = NF: VTAB 20: PRINT "MILES:"
  59. 610 MD = 10000
  60. 620  FOR I = 1 TO NDST%(J):D = DEST%(J,I): IF T%(1,D) <0  THEN 650
  61. 630 DT = DIST%(J,I)
  62. 640  IF DT +T%(0,J) <T%(0,D)  THEN T%(0,D) = DT +T%(0,J):T%(1,D) = J
  63. 650  NEXT I
  64. 660  FOR I = 1 TO NCIT
  65. 670  IF T%(1,I) >0  AND T%(0,I) <MD  THEN MD = T%(0,I):K = I
  66. 680  NEXT I:J = K:T%(1,J) =  -T%(1,J)
  67. 690  VTAB 20: HTAB 8: PRINT T%(0,J)
  68. 700  IF J < >NS  THEN  GOTO 610
  69. 710  FOR I = 1 TO NCIT:T%(1,I) =  ABS(T%(1,I)): NEXT I
  70. 720  REM  **WRITE OUT ROUTE**
  71. 725  POKE 49168,0
  72. 730  HOME :I = NS
  73. 740  IF PR  THEN  PRINT  CHR$(4);"PR#1"
  74. 750  PRINT "SHORTEST ROUTE FROM ";CITY$(NS);", ";ST$(NS)
  75. 760  PRINT "TO ";CITY$(NF);", ";ST$(NF)
  76. 770  PRINT : PRINT "CITY"; SPC( 13);"DISTANCE     ROUTE"
  77. 780  FOR J = 1 TO 35: PRINT "=";: NEXT J: PRINT :L = 0
  78. 790 RT$ = "TURNPIKE":K = 0:MD = 0:L = L +1
  79. 800  IF L = 15  AND   NOT PR  THEN  VTAB 23: FLASH : PRINT "HIT ANY KEY TO CONTINUE";: NORMAL : GET Z$:L = 1: VTAB 6: HTAB 1: CALL  -958
  80. 810  FOR J = 1 TO NDST%(I): IF DEST%(I,J) = T%(1,I)  THEN K = RT%(I,J):MD = DIST%(I,J)
  81. 820  NEXT J
  82. 830  IF K >0  THEN RT$ = "I-" + STR$(K)
  83. 840  IF K <0  THEN RT$ = "US-" + STR$( -K)
  84. 850  PRINT CITY$(I);", ";ST$(I);: HTAB 26 - LEN( STR$(MD)): PRINT MD;: HTAB 36 - LEN(RT$): PRINT RT$
  85. 860  IF T%(1,I) < >NF  THEN I = T%(1,I): GOTO 790
  86. 870  FOR J = 1 TO 35: PRINT "-";: NEXT J: PRINT 
  87. 880  PRINT CITY$(NF);", ";ST$(NF);: HTAB 26 - LEN( STR$(T%(0,NS))): PRINT T%(0,NS)
  88. 890  IF PR  THEN  PRINT : PRINT : PRINT  CHR$(4);"PR#0"
  89. 900  VTAB 23: PRINT "HIT 'Q' TO QUIT, ANY OTHER KEY TO": PRINT "CONTINUE ";: GET Z$: IF Z$ < >"Q"  THEN  GOTO 240
  90. 910  END 
  91. 920  DATA ALBANY,NY,5,156,90,146,151,90,85,105,87,88,23,-7,154,14,88,142
  92. 930  DATA ALBERT LEA,MN,4,87,90,262,94,35,93,147,90,168,47,35,148
  93. 940  DATA ALBUQUERQUE,NM,4,5,40,284,56,40,323,37,25,365,52,25,257
  94. 950  DATA ALLENTOWN,PA,6,104,78,100,142,0,72,68,78,73,116,0,60,155,-22,41,103,78,103
  95. 960  DATA AMARILLO,TX,2,109,40,267,3,40,284
  96. 970  DATA ASHEVILLE,NC,5,170,40,144,66,-25,62,31,-74,118,78,40,118,38,26,156
  97. 980  DATA ATLANTA,GA,7,157,-27,275,9,20,144,86,75,82,32,75,109,15,20,149,66,85,151,97,85,165
  98. 990  DATA ATLANTIC CITY,NJ,3,133,-9,95,116,0,63,104,0,108
  99. 1000  DATA AUGUSTA,GA,5,7,20,144,141,25,133,75,-1,253,38,20,79,66,-25,113
  100. 1010  DATA BALTIMORE,MD,6,164,95,37,67,70,75,68,83,79,133,-50,111,116,95,98,104,0,175
  101. 1020  DATA BARSTOW,CA,3,77,40,203,80,15,155,136,15,74
  102. 1030  DATA BATON ROUGE,LA,5,102,10,89,96,10,213,74,55,169,144,-71,236,71,10,253
  103. 1040  DATA BILLINGS,MT,4,62,-89,287,22,90,161,16,94,418,24,90,237
  104. 1050  DATA BINGHAMTON,NY,3,1,88,142,156,81,64,142,81,52
  105. 1060  DATA BIRMINGHAM,AL,6,7,20,149,97,65,90,91,59,144,100,65,192,32,59,146,89,-78,241
  106. 1070  DATA BISMARK,ND,3,55,94,191,13,94,418,118,-83,211
  107. 1080  DATA BLOOMINGTON,IL,4,28,74,52,34,55,133,43,74,140,150,55,61
  108. 1090  DATA BOISE,ID,4,120,84,234,113,84,217,149,-95,391,108,84,323
  109. 1100  DATA BOSTON,MA,5,123,95,51,69,86,102,151,90,92,88,93,51,121,95,109
  110. 1110  DATA BREEZEWOOD,PA,5,68,76,83,67,70,47,119,76,121,166,70,148,98,-48,134
  111. 1120  DATA BUFFALO,NY,2,54,90,108,156,90,156
  112. 1130  DATA BUFFALO,WY,3,27,25,305,125,90,207,13,90,161
  113. 1140  DATA BURLINGTON,VT,2,167,89,96,1,-7,154
  114. 1150  DATA BUTTE,MT,4,13,90,237,120,15,261,95,90,130,70,15,65
  115. 1160  DATA CAMBRIDGE,OH,4,29,77,131,39,70,80,36,77,116,166,70,48
  116. 1170  DATA CASA GRANDE,AZ,3,163,10,63,117,10,58,137,8,356
  117. 1180  DATA CASPER,WY,3,22,25,305,33,25,184,125,-18,254
  118. 1190  DATA CHAMPAIGN,IL,5,51,57,70,17,74,52,34,57,133,150,72,86,73,74,114
  119. 1200  DATA CHARLESTON,WV,5,72,64,47,171,77,123,98,79,156,25,77,131,153,64,209
  120. 1210  DATA CHARLESTON,SC,4,141,-17,105,139,26,54,57,-52,112,169,-17,170
  121. 1220  DATA CHARLOTTE,NC,7,65,85,94,66,85,105,170,85,80,6,-74,118,85,-74,126,38,77,95,171,77,134
  122. 1230  DATA CHATTANOOGA,TN,4,78,75,109,100,24,133,7,75,109,15,59,146
  123. 1240  DATA CHEYENNE,WY,6,46,25,98,27,25,184,108,80,444,134,80,457,125,-85,316,107,80,223
  124. 1250  DATA CHICAGO,IL,6,93,94,87,87,90,140,28,57,133,17,55,133,60,90,32,43,80,177
  125. 1260  DATA CINCINNATI,OH,6,39,71,109,81,75,78,84,71,101,44,75,54,73,74,110,72,-52,161
  126. 1270  DATA CLEVELAND,OH,6,119,76,129,39,71,140,160,80,112,54,90,80,90,80,94,25,77,116
  127. 1280  DATA COLORADO SPRINGS,CO,3,3,25,365,132,70,415,46,25,67
  128. 1290  DATA COLUMBIA,SC,6,9,20,79,57,20,80,139,26,66,66,26,104,31,77,95,6,26,156
  129. 1300  DATA COLUMBUS,OH,7,36,71,140,35,71,109,72,-23,131,160,-23,135,44,70,71,25,70,80,90,71,203
  130. 1310  DATA CONCORD,NH,3,88,93,20,167,89,66,121,-4,95
  131. 1320  DATA COVE FORT,UT,3,64,70,158,134,15,178,80,15,251
  132. 1330  DATA DALLAS,TX,6,109,35,205,59,20,32,159,30,183,135,35,170,71,45,245,144,20,195
  133. 1340  DATA DAVENPORT,IA,4,17,74,140,60,80,183,34,80,177,47,80,160
  134. 1350  DATA DAYTON,OH,4,160,75,147,39,70,71,35,75,54,73,70,104
  135. 1360  DATA DAYTONA BEACH,FL,3,92,95,270,111,4,58,75,95,99
  136. 1370  DATA DENVER,CO,5,37,25,67,132,70,429,33,25,98,64,70,350,107,76,269
  137. 1380  DATA DES MOINES,IA,5,43,80,160,76,35,198,110,80,128,146,80,183,2,35,148
  138. 1390  DATA DETROIT,MI,4,160,75,60,61,96,148,140,75,242,60,94,248
  139. 1400  DATA DULUTH,MN,2,94,35,156,140,-2,422
  140. 1410  DATA DURHAM,NC,3,65,85,54,124,-70,27,115,85,131
  141. 1420  DATA EFFINGHAM,IL,4,99,57,71,73,70,136,28,57,70,131,70,101
  142. 1430  DATA EL PASO,TX,4,135,10,552,59,20,588,3,25,257,163,10,317
  143. 1440  DATA ELLENSBURG,WA,3,149,90,171,113,82,233,143,90,103
  144. 1450  DATA ERIE,PA,3,21,90,108,36,90,80,90,79,66
  145. 1460  DATA FARGO,ND,3,94,94,240,147,29,261,16,94,191
  146. 1470  DATA FLAGSTAFF,AZ,3,117,17,135,3,40,323,77,40,159
  147. 1480  DATA FLORENCE,SC,4,30,-52,112,38,20,80,139,95,74,85,95,53
  148. 1490  DATA FT. SMITH,AR,4,82,40,153,159,-71,181,162,0,116,109,40,179
  149. 1500  DATA FT. WORTH,TX,4,42,20,32,52,20,588,135,35,167,109,35,203
  150. 1510  DATA GARY,IN,6,34,90,32,148,90,66,73,65,145,48,94,248,61,196,144,43,80,183
  151. 1520  DATA GRAND RAPIDS,MI,3,48,96,148,140,-131,276,60,196,144
  152. 1530  DATA GREAT FALLS,MT,2,70,15,91,13,-89,287
  153. 1540  DATA GREEN BAY,WI,3,93,43,116,87,-151,131,140,-41,285
  154. 1550  DATA GREEN RIVER,UT,3,41,70,158,134,-6,176,46,70,350
  155. 1560  DATA GREENSBORO,NC,4,50,85,54,31,85,94,170,40,30,128,-220,109
  156. 1570  DATA GREENVILLE,SC,5,7,85,151,9,-25,113,38,26,104,31,85,105,6,-25,62
  157. 1580  DATA HAGERSTOWN,MD,6,10,70,75,164,270,64,68,81,77,20,70,47,98,-48,133,154,81,51
  158. 1590  DATA HARRISBURG,PA,6,116,76,105,10,83,79,67,81,77,4,78,73,20,76,83,142,81,115
  159. 1600  DATA HARTFORD,CT,5,123,-6,74,151,91,30,105,84,101,19,86,102,101,91,40
  160. 1610  DATA HELENA,MT,3,62,15,91,95,-12,124,24,15,65
  161. 1620  DATA HOUSTON,TX,4,144,-59,226,42,45,245,12,10,253,135,10,197
  162. 1630  DATA HUNTINGTON,WV,4,29,64,47,35,-52,161,81,64,112,39,-23,131
  163. 1640  DATA INDIANAPOLIS,IN,6,44,70,104,35,74,110,84,65,114,51,70,136,28,74,114,60,65,145
  164. 1650  DATA JACKSON,MS,7,96,-49,192,89,55,212,91,20,90,102,55,183,12,55,169,144,20,213,82,-65,267
  165. 1660  DATA JACKSONVILLE,FL,6,158,-301,198,45,95,99,79,10,66,139,95,232,141,95,143,9,-1,253
  166. 1670  DATA KANSAS CITY,MO,6,131,70,254,47,35,198,110,29,184,162,-169,259,161,70,60,168,35,201
  167. 1680  DATA KINGMAN,AZ,4,56,40,159,80,-93,103,11,40,203,117,-93,184
  168. 1690  DATA KNOXVILLE,TN,6,6,40,118,171,81,187,81,75,173,100,40,170,32,75,109,171,81,187
  169. 1700  DATA LAKE CITY,FL,5,158,75,169,111,75,160,75,10,66,157,10,98,86,75,199
  170. 1710  DATA LAS VEGAS,NV,4,77,-93,103,41,15,251,126,-395,446,11,15,155
  171. 1720  DATA LEXINGTON,KY,6,35,75,78,72,64,112,78,75,173,84,64,78,112,0,262,100,65,214
  172. 1730  DATA LITTLE ROCK,AR,5,89,40,138,74,-65,267,152,-65,218,58,40,153,159,30,130
  173. 1740  DATA LOS ANGELES,CA,4,136,10,40,137,5,127,130,5,382,138,5,387
  174. 1750  DATA LOUISVILLE,KY,6,81,64,78,35,71,101,73,65,114,100,65,180,99,64,190,112,0,220
  175. 1760  DATA LUMBERTON,NC,5,124,95,95,31,-74,126,57,95,53,169,-74,80,129,95,126
  176. 1770  DATA MACON,GA,5,7,75,82,141,16,166,79,75,199,97,-80,180,157,-319,190
  177. 1780  DATA MADISON,WI,6,93,94,77,34,90,140,150,-51,290,63,-151,131,2,90,262,94,94,271
  178. 1790  DATA MANCHESTER,NH,2,40,93,20,19,93,51
  179. 1800  DATA MEMPHIS,TN,5,15,-78,241,100,40,219,74,55,212,82,40,138,145,55,142
  180. 1810  DATA MERCER,PA,5,119,79,61,155,80,303,54,79,66,36,80,94,39,71,203
  181. 1820  DATA MERIDIAN,MS,5,74,20,90,102,59,199,96,-45,129,15,59,144,97,-80,160
  182. 1830  DATA MIAMI,FL,3,158,-41,266,111,0,236,45,95,270
  183. 1840  DATA MILWAUKEE,WI,3,87,94,77,34,94,87,63,43,116
  184. 1850  DATA MINNEAPOLIS,MN,4,2,35,93,87,94,271,49,35,156,55,94,240
  185. 1860  DATA MISSOULA,MT,3,70,-12,124,24,90,130,149,90,201
  186. 1870  DATA MOBILE,AL,6,114,10,59,97,65,171,102,10,153,91,-45,129,74,-49,192,12,10,213
  187. 1880  DATA MONTGOMERY,AL,7,15,65,90,7,85,165,86,-80,180,157,-231,208,91,-80,160,114,65,159,96,65,171
  188. 1890  DATA MORGANTOWN,WV,5,20,-48,134,67,-48,133,119,79,69,29,79,156,166,79,79
  189. 1900  DATA MT. VERNON,IL,5,145,57,98,112,57,77,84,64,190,51,57,71,131,64,72
  190. 1910  DATA NASHVILLE,TN,7,32,24,133,78,40,170,15,65,192,84,65,180,89,40,219,112,24,148,81,65,214
  191. 1920  DATA NEW HAVEN,CT,3,103,95,70,69,91,40,123,95,102
  192. 1930  DATA NEW ORLEANS,LA,4,96,10,153,91,59,199,74,55,183,12,10,89
  193. 1940  DATA NEW YORK,NY,5,105,87,66,101,95,70,104,95,19,155,80,78,4,78,103
  194. 1950  DATA NEWARK,NJ,7,103,95,19,105,87,69,155,80,66,4,78,100,8,0,108,116,0,82,10,0,175
  195. 1960  DATA NEWBURGH,NY,5,69,84,101,103,87,66,1,87,88,104,87,69,142,84,96
  196. 1970  DATA NORFOLK,VA,4,127,64,99,133,-13,129,129,-58,136,169,-17,259
  197. 1980  DATA NORTH PLATTE,NE,4,110,80,299,118,-83,267,46,76,269,33,80,223
  198. 1990  DATA OGDEN,UT,4,33,80,444,134,15,34,120,15,132,18,84,323
  199. 2000  DATA OKLAHOMA CITY,OK,6,168,35,158,162,0,103,58,40,179,42,35,205,59,35,203,5,40,267
  200. 2010  DATA OMAHA,NE,4,47,80,128,76,29,184,107,80,299,146,29,98
  201. 2020  DATA ORLANDO,FL,4,92,0,236,158,4,84,45,4,58,79,75,160
  202. 2030  DATA PADUCAH,KY,5,100,24,148,99,57,77,81,0,262,84,0,220,145,-60,59
  203. 2040  DATA PENDLETON,OR,4,18,84,217,149,-395,203,53,82,233,122,84,211
  204. 2050  DATA PENSACOLA,FL,3,157,10,200,97,65,159,96,10,59
  205. 2060  DATA PETERSBURG,VA,3,127,95,24,50,85,131,129,95,101
  206. 2070  DATA PHILADELPHIA,PA,5,68,76,105,104,0,82,4,0,60,10,95,98,8,0,63
  207. 2080  DATA PHOENIX,AZ,4,26,10,58,136,10,334,56,17,135,77,-93,184
  208. 2090  DATA PIERRE,SD,4,16,-83,211,147,90,222,125,90,192,107,-83,267
  209. 2100  DATA PITTSBURGH,PA,5,166,70,57,36,76,129,90,79,61,20,76,121,98,79,69
  210. 2110  DATA POCATELLO,ID,3,108,15,132,24,15,261,18,84,234
  211. 2120  DATA PORTLAND,ME,2,40,-4,95,19,95,109
  212. 2130  DATA PORTLAND,OR,3,113,84,211,165,5,363,143,5,173
  213. 2140  DATA PROVIDENCE,RI,3,101,95,102,19,95,51,69,-6,74
  214. 2150  DATA RALEIGH,NC,3,50,-70,27,129,-64,51,85,95,95
  215. 2160  DATA RAPID CITY,SD,5,147,90,346,118,90,192,22,90,207,33,-85,316,27,-18,254
  216. 2170  DATA RENO,NV,4,80,-395,446,134,80,531,130,80,134,165,-395,265
  217. 2180  DATA RICHMOND,VA,4,115,95,24,153,64,106,106,64,99,164,95,114
  218. 2190  DATA ROANOKE,VA,3,65,-220,109,153,81,81,171,81,67
  219. 2200  DATA ROCKY MOUNT,NC,4,124,-64,51,106,-58,136,115,95,101,85,95,126
  220. 2210  DATA SACRAMENTO,CA,4,165,5,227,83,5,382,126,80,134,138,80,90
  221. 2220  DATA ST. LOUIS,MO,6,152,44,214,51,70,101,99,64,72,145,55,152,150,55,94,76,70,254
  222. 2230  DATA SALINA,KS,4,161,70,114,168,135,87,46,70,429,37,70,415
  223. 2240  DATA SALISBURY,MD,4,10,-50,111,164,-50,120,106,-13,129,8,-9,95
  224. 2250  DATA SALT LAKE CITY,UT,5,41,15,178,33,80,457,108,15,34,64,-6,176,126,80,531
  225. 2260  DATA SAN ANTONIO,TX,4,71,10,197,42,35,170,59,35,167,52,10,552
  226. 2270  DATA SAN BERNADINO,CA,4,117,10,334,11,15,74,83,10,40,137,15,115
  227. 2280  DATA SAN DIEGO,CA,3,26,8,356,136,15,115,83,5,127
  228. 2290  DATA SAN FRANCISCO,CA,3,130,80,90,83,5,387,165,5,282
  229. 2300  DATA SANTEE,SC,5,57,95,74,38,26,66,30,26,54,75,95,232,141,95,96
  230. 2310  DATA SAULT STE. MARIE,MI,4,61,-131,276,48,75,242,63,-41,285,49,-2,422
  231. 2320  DATA SAVANNAH,GA,5,75,95,143,86,16,166,139,95,96,9,-25,133,30,-17,105
  232. 2330  DATA SCRANTON,PA,6,68,81,115,14,81,52,105,84,96,4,0,72,155,380,51,68,81,115
  233. 2340  DATA SEATTLE,WA,2,53,90,103,122,5,173
  234. 2350  DATA SHREVEPORT,LA,5,12,-71,236,74,20,213,159,-71,70,42,20,195,71,-59,226
  235. 2360  DATA SIKESTON,MO,5,99,57,98,112,-60,59,131,55,152,89,55,142,152,-60,241
  236. 2370  DATA SIOUX CITY,IA,3,47,80,183,110,29,98,147,29,85
  237. 2380  DATA SIOUX FALLS,SD,5,2,90,168,146,29,85,55,29,261,118,90,222,125,90,346
  238. 2390  DATA SOUTH BEND,IN,2,60,90,66,160,90,126
  239. 2400  DATA SPOKANE,WA,4,95,90,201,113,-395,203,53,90,171,18,-95,391
  240. 2410  DATA SPRINGFIELD,IL,4,87,-51,290,28,72,86,17,55,61,131,55,94
  241. 2420  DATA SPRINGFIELD,MA,4,167,91,118,19,90,92,1,90,85,69,91,30
  242. 2430  DATA SPRINGFIELD,MO,4,131,44,214,82,-65,218,162,44,180,145,-60,241
  243. 2440  DATA STAUNTON,VA,4,127,64,106,128,81,81,29,66,209,154,81,76
  244. 2450  DATA STRASBURG,VA,3,67,81,51,164,66,72,153,81,76
  245. 2460  DATA STROUDSBURG,PA,5,142,380,51,4,-22,41,104,80,66,103,80,78,90,80,303
  246. 2470  DATA SYRACUSE,NY,3,21,90,156,1,90,146,14,81,64
  247. 2480  DATA TALLAHASSEE,FL,6,158,-19,252,79,10,98,114,10,200,7,-27,275,97,-231,208,86,-319,190
  248. 2490  DATA TAMPA,FL,5,92,-41,266,111,4,84,157,-19,252,75,-301,198,79,75,169
  249. 2500  DATA TEXARKANA,TX,4,144,-71,70,58,-71,181,42,30,183,82,30,130
  250. 2510  DATA TOLEDO,OH,5,39,-23,135,44,75,147,36,80,112,48,75,60,148,90,126
  251. 2520  DATA TOPEKA,KS,3,76,70,60,168,0,142,132,70,114
  252. 2530  DATA TULSA,OK,5,58,0,116,152,44,180,168,0,175,109,0,103,76,-169,259
  253. 2540  DATA TUCSON,AZ,2,26,10,63,52,10,317
  254. 2550  DATA WASHINGTON,DC,5,127,95,114,10,95,37,67,270,64,133,-50,120,154,66,72
  255. 2560  DATA WEED,CA,4,130,5,227,126,-395,265,122,5,363,138,5,282
  256. 2570  DATA WHEELING,WV,4,119,70,57,25,70,48,20,70,148,98,79,79
  257. 2580  DATA WHITE RIVER JCT.,VT,3,40,89,66,23,89,96,151,91,118
  258. 2590  DATA WICHITA,KS,5,132,135,87,161,0,142,76,35,201,109,35,158,162,0,175
  259. 2600  DATA WILMINGTON,NC,3,85,-74,80,30,-17,170,106,-17,259
  260. 2610  DATA WINSTON-SALEM,NC,4,65,40,30,6,40,144,31,85,80,171,-52,83
  261. 2620  DATA WYTHEVILLE,VA,5,170,-52,83,29,77,123,128,81,67,78,81,187,31,77,134