home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / gwbasic / airmiles / airmiles.bas next >
Encoding:
BASIC Source File  |  1994-05-24  |  14.8 KB  |  246 lines
  1. 10 C% = 337
  2. 20 DIM A1%(26)
  3. 30 DIM N$(C%), LA(C%), LO(C%)
  4. 40 PI2 = 355 / 113 * 2'two times "pi" (355/113 is much more accurate than 22/7)
  5. 50 DG = 360 / PI2'2 pi radians in 360 degrees
  6. 60 ' arc cosine function using arc tangent & sin2(x) + cos2(x) = 1
  7. 70 DEF FNACOS (V1) = ATN(SQR(1 - V1 * V1) / V1) * DG'answer returned in degrees
  8. 80  'GREAT CIRCLE MILEAGE
  9. 90  ' Note: If you wish to add cities to the data list, they
  10. 100  ' must be inserted alphabetically (by first letter only), and the
  11. 110 ' value of "C%" (in the first line) increased accordingly.
  12. 120  'The data for each city is the name, latitude and longitude.
  13. 130  'Latitude is +/- 90 degrees.  Negative values are below the equator.
  14. 140  'Longitude is +/- 180 degrees.  Negative values are East of Greenwich.
  15. 150  'Duplicate entries arise when data sources disagree on lat/long.
  16. 160 PRINT : PRINT : PRINT : PRINT "AIRLINE DISTANCES BETWEEN CITIES": PRINT "PLEASE WAIT FOR ARRAYS TO BE SET UP."
  17. 170 PRINT : PRINT : PRINT "If you are not sure of the spelling of a city,"
  18. 180 PRINT "type in only the first letters of which you are confident."
  19. 190 PRINT "All entries must be in upper case."
  20. 200 X% = 1'Index to letters of alphabet
  21. 210 FOR Y = 1 TO C%: READ N$(Y), LA(Y), LO(Y)
  22. 220  'Find data positions for each letter of the alphabet
  23. 230  'Brackets search positions and makes database updates easier.
  24. 240 IF ASC(LEFT$(N$(Y), 1)) <= 64 + X% THEN GOTO 270'First occurrence of new letter
  25. 250 A1%(X%) = Y - 1: X% = X% + 1'Number of last city in the list with letter# X%
  26. 260 GOTO 240 'In case no cities started with X%-1
  27. 270 NEXT Y
  28. 280 A1%(26) = C%'guarantee last entry
  29. 290 PRINT
  30. 300 INPUT "TYPE IN CITY OF ORIGIN "; A$
  31. 310 GOSUB 490
  32. 320 IF C1% > 0 THEN GOTO 340
  33. 330 PRINT "NO CITY SELECTED": PRINT : GOTO 480
  34. 340 LAT1 = LA(C1%) / DG: LONG1 = LO(C1%) / DG: L$ = N$(C1%)
  35. 350 PRINT
  36. 360 INPUT "TYPE IN DESTINATION CITY NAME "; A$
  37. 370 GOSUB 490
  38. 380 IF C1% > 0 THEN GOTO 400
  39. 390 PRINT "NO CITY SELECTED": PRINT : GOTO 480
  40. 400 LAT2 = LA(C1%) / DG: LONG2 = LO(C1%) / DG: M$ = N$(C1%)
  41. 410 DAB = SIN(LAT1) * SIN(LAT2) + COS(LAT1) * COS(LAT2) * COS(LONG1 - LONG2)
  42. 420 DIST = ABS(FNACOS(DAB))
  43. 425 PRINT Z$
  44. 430 PRINT "THE DISTANCE FROM "; L$; " TO "; M$; " IS:"
  45. 440 PRINT USING "#####,.#"; DIST * 69.113; : PRINT " STATUTE MILES  ";
  46. 450 PRINT USING "#####,.#"; DIST * 60.0576; : PRINT " NAUTICAL MILES  ";
  47. 460 PRINT USING "#####,.#"; DIST * 111.203; : PRINT " KILOMETERS"
  48. 470 PRINT
  49. 480 INPUT "RUN AGAIN? ", A$: IF LEFT$(A$, 1) = "Y" OR LEFT$(A$, 1) = "Y" THEN GOTO 290 ELSE END
  50. 490  'Subroutine to find the city's name.
  51. 500 T = ASC(LEFT$(A$, 1)) - 64'Number (1-26) of first letter of city name.
  52. 510 BOT% = A1%(T - 1) + 1: TOP% = A1%(T)
  53. 520  'First & last cities starting with this letter.
  54. 530  'A1%(T-1) is the last position of the letter before this one.
  55. 540  'Thus the next one, A1%(T-1)+1, must be the first one with this letter.
  56. 550  'Your version of Basic must allow A1%(0) to exist or this won't work
  57. 560  'when a city begins with "A".
  58. 570 IF LEN(A$) > 1 THEN GOTO 650'Go try and match spelling
  59. 580 FOR M% = BOT% TO TOP%'For each city
  60. 590 TT = 24 * (M% MOD 3)
  61. 600 PRINT M%; N$(M%); TAB(TT); 'Print a list of name & number
  62. 610 NEXT M%
  63. 620 PRINT : PRINT "CHOOSE THE NUMBER OF THE CITY YOU WANT"
  64. 630 INPUT "ENTER 0, TO QUIT"; C1%
  65. 640 RETURN
  66. 650 'If more than one letter is given, try to match spelling.
  67. 660 C1% = 0: J = 0
  68. 670 FOR M% = BOT% TO TOP%
  69. 680 IF LEFT$(N$(M%), LEN(A$)) = A$ THEN PRINT M%, N$(M%): C1% = M%: J = J + 1
  70. 690 NEXT
  71. 700 IF J = 1 THEN RETURN
  72. 710 IF C1% <> 0 THEN GOTO 620 ELSE GOTO 580
  73. 1000  DATA ABILENE, 32.4514 , 99.7308, ACAPULCO, 16.85 , 99.9333
  74. 1010  DATA ADDIS ABABA, 9.05 ,-38.7 ,AKRON, 41.0833 , 81.5122
  75. 1020  DATA ALBANY, 42.6502 , 73.7502 ,ALBUQUERQUE, 33.0836 , 106.651
  76. 1030  DATA ALLENTOWN, 40.6031 , 75.4683 ,ALTOONA, 40.5153 , 78.4008
  77. 1040  DATA AMARILLO, 35.2075 , 101.834 ,AMSTERDAM, 52.35 ,-4.9
  78. 1050  DATA ANCHORAGE, 61.1667 , 149.983 ,ANKARA, 39.9167 ,-32.8333
  79. 1060  DATA ANN ARBOR, 42.2831 , 83.7478 ,ASHVILLE, 35.595 , 82.5572
  80. 1070  DATA ATHENS, 37.9667 ,-23.7333 ,ATLANTA, 33.6381 , 84.4278
  81. 1080  DATA AUGUSTA GA, 33.4722 , 81.9667 ,AUGUSTA ME, 44.3147 , 69.7747
  82. 1090  DATA AUSTIN, 30.2692 , 97.7436 ,BAKERSFIELD, 35.3753 , 119.022
  83. 1100  DATA BALBOA, 8.95 , 79.5667 ,BALTIMORE, 39.0175 , 76.67
  84. 1110  DATA BANGOR, 44.8036 , 68.7717 ,BARCELONA, 41.4167 ,-2.1667
  85. 1120  DATA BATON ROUGE, 30.4494 , 91.1833 ,BATTLE CREEK, 42.3161 , 85.18
  86. 1130  DATA BEAUMONT, 30.3467 , 94.1025 ,BELFAST, 54.6667 , 5.833
  87. 1140  DATA BELLINGHAM, 48.7594 , 122.467 ,BERKELEY, 37.8694 , 122.271
  88. 1150  DATA BERLIN, 52.5333 ,-13.0833 ,BERN, 46.95 ,-7.3333
  89. 1160  DATA BETHLEHEM, 40.6211 , 75.3761 ,BILLINGS, 45.7928 , 108.501
  90. 1170  DATA BILOXI, 30.3967 , 88.8833 ,BINGHAMTON, 42.2075 , 75.9794
  91. 1180  DATA BIRMINGHAM, 33.5169 , 86.81 ,BISMARCK, 46.8064 , 100.788
  92. 1190  DATA BLOOMINGTON, 40.4828 , 88.9933 ,BOGOTA, 4.6333 , 74.0833
  93. 1200  DATA BOISE, 43.6186 , 116.199 ,BOMBAY, 18.9333 ,-72.85
  94. 1210  DATA BOSTON, 42.3642 , 71.0056 ,BOWLING GREEN, 36.9947 , 86.4425
  95. 1220  DATA BRIDGEPORT, 41.1803 , 73.1894 ,BRISBANE,-27.5 ,-153
  96. 1230  DATA BRISTOL, 36.5833 , 82.2 ,BROCKTON, 42.0839 , 71.0236
  97. 1240  DATA BROWNSVILLE, 25.9019 , 97.4994 ,BRUSSELLS, 50.8333 ,-4.35
  98. 1250  DATA BUFFALO, 42.9406 , 78.7325 ,BURLINGTON VT, 44.4761 , 73.2128
  99. 1260  DATA BUTTE, 46.0183 , 112.536 ,CALCUTTA, 22.5833 ,-88.35
  100. 1270  DATA CAMBRIDGE, 42.3669 , 71.1061 ,CAMDEN, 39.9447 , 75.1206
  101. 1280  DATA CANBERRA,-35.3 ,-149.133 ,CANTON, 40.7972 , 81.3769
  102. 1290  DATA CARACAS, 10.5833 , 60.9333 ,CARSON CITY, 39.1667 , 119.767
  103. 1300  DATA CASABLANCA, 33.65 , 7.5833 ,CEDAR RAPIDS, 41.9669 , 91.6647
  104. 1310  DATA CEDAR RAPIDS, 41.8844 , 91.7086 ,CHAMPAIGN, 40.0397 , 88.2781
  105. 1320  DATA CHAMPAIGN, 40.118 , 88.2467 ,CHARLESTON SC, 32.8986 , 80.04
  106. 1330  DATA CHARLESTON WV, 38.3731 , 81.5933 ,CHARLOTTE, 35.2147 , 80.9383
  107. 1340  DATA CHATTANOOGA, 35.0447 , 85.3089 ,CHEYENNE, 41.1358 , 104.819
  108. 1350  DATA CHICAGO, 41.9825 , 87.9069 ,CINCINNATI, 39.0478 , 84.6667
  109. 1360  DATA CLARKSBURG, 39.2956 , 80.2289 ,CLEVELAND, 41.4103 , 81.8489
  110. 1370  DATA COLORADO SPRINGS, 38.8353 , 104.821 ,COLUMBIA, 34.0006 , 81.0333
  111. 1380  DATA COLUMBUS, 39.9947 , 82.8856 ,COLUMBUS GA, 32.4686 , 84.99
  112. 1390  DATA CONCORD, 43.2061 , 71.5403 ,CORPUS CHRISTI, 27.7975 , 97.3959
  113. 1400  DATA DAKAR, 14.6333 , 17.3333 ,DALLAS, 32.8967 , 97.0336
  114. 1410  DATA DAVENPORT, 41.5219 , 90.5758 ,DAYTON, 39.9011 , 84.22
  115. 1420  DATA DAYTONA BEACH, 29.2122 , 81.0194 ,DECATUR, 39.845 , 88.9464
  116. 1430  DATA DECATUR, 39.8342 , 88.8681 ,DENVER, 39.7742 , 104.878
  117. 1440  DATA DES MOINES, 41.4872 , 93.6167 ,DETROIT, 42.2153 , 83.3486
  118. 1450  DATA DODGE CITY, 37.7547 , 100.019 ,DUBLIN, 53.3333 , 6.25
  119. 1460  DATA DUBUQUE, 42.4986 , 90.6689 ,DULUTH, 46.7822 , 92.1067
  120. 1470  DATA DURHAM, 36 , 78.9125 ,EAU CLAIRE, 44.8086 , 91.4969
  121. 1480  DATA EL PASO, 31.78 , 106.486 ,ELIZABETH, 40.6619 , 74.2164
  122. 1490  DATA ELMIRA, 42.1595 , 76.8925 ,ENID, 36.3944 , 97.8764
  123. 1500  DATA EUGENE, 44.0544 , 123.092 ,EVANSVILLE, 37.9722 , 87.5725
  124. 1510  DATA FAIRBANKS, 64.8 , 147.85 ,FARGO, 46.875 , 96.7883
  125. 1520  DATA FLAGSTAFF, 35.1933 , 111.652 ,FLINT, 43.0139 , 83.6925
  126. 1530  DATA FRANKFURT, 50.1 ,-8.6833 ,FRESNO, 36.7367 , 119.786
  127. 1540  DATA FT. SMITH, 35.3861 , 94.4267 ,FT. WAYNE, 41.0725 , 85.1406
  128. 1550  DATA FT. WORTH, 32.7486 , 97.3289 ,GADSDEN, 34.0158 , 86.0114
  129. 1560  DATA GAINSVILLE, 29.6486 , 82.3219 ,GALLOP, 35.525 , 108.742
  130. 1570  DATA GALVESTON, 29.3028 , 94.7953 ,GARY, 41.6033 , 87.3386
  131. 1580  DATA GENOA, 44.4 ,-8.9333 ,GLASGOW, 55.8833 , 4.6833
  132. 1590  DATA GRAND JUNCTION, 39.0683 , 108.565 ,GRAND RAPIDS, 42.9675 , 85.6703
  133. 1600  DATA GREAT FALLS, 47.4925 , 111.306 ,GREEN BAY, 44.4106 , 88.0139
  134. 1610  DATA GREENSBORO, 36.0714 , 79.7903 ,GREENVILLE, 34.8964 , 82.2186
  135. 1620  DATA GUADALAJARA, 20.5 , 103.333 ,GUAYAQUIL,-2.5167 , 79.9
  136. 1630  DATA GULFPORT, 30.3678 , 89.0933 ,HALIFAX, 44.6442 , 63.5761
  137. 1640  DATA HARRISBURG, 40.2019 , 76.8831 ,HARTFORD, 41.7361 , 72.6506
  138. 1650  DATA HARTFORD, 41.77 , 72.6803 ,HELENA, 46.4925 , 112.04
  139. 1660  DATA HELSINKI, 60.1355 ,-25 ,HILO, 19.725 , 155.09
  140. 1670  DATA HOLYOKE, 42.2081 , 72.61 ,HONOLULU, 21.3061 , 157.86
  141. 1680  DATA HOUSTON, 29.9828 , 95.3458 ,HUNTINGTON, 38.3667 , 82.5581
  142. 1690  DATA HUNTINGTON, 38.42 , 82.4425 ,HUNTSVILLE, 34.7383 , 86.5886
  143. 1700  DATA INDIANAPOLIS, 39.7244 , 86.2833 ,ITHACA, 42.4903 , 76.4578
  144. 1710  DATA JACKSON MI, 42.2453 , 84.4061 ,JACKSON MS, 32.2989 , 90.185
  145. 1720  DATA JACKSONVILLE, 30.4925 , 81.69 ,JERSEY CITY, 40.7306 , 74.0656
  146. 1730  DATA JERUSALEM, 31.7833 ,-35.2167 ,JOHANNESBURG,-26.1667 ,-28.0333
  147. 1740  DATA JOPLIN, 37.0906 , 90.7031 ,JUNEAU, 58.3033 , 134.408
  148. 1750  DATA KANSAS CITY, 39.2992 , 94.7178 ,KNOXVILLE, 35.9608 , 83.9186
  149. 1760  DATA LAFAYETTE, 40.4197 , 86.8942 ,DATA LANCASTER, 40.0403 , 76.3081
  150. 1770  DATA LANSING, 42.7336 , 84.5542 ,LAREDO, 27.5061 , 99.5083
  151. 1780  DATA LAS VEGAS, 36.08 , 115.152 ,LAS VEGAS, 36.1722 , 115.144
  152. 1790  DATA LENINGRAD, 59.9167 ,-30.4167 ,LEXINGTON, 38.0367 , 84.6058
  153. 1800  DATA LIMA OH, 40.7431 , 84.1056 ,LIMA PERU,-12.1 , 77.05
  154. 1810  DATA LINCOLN, 40.8164 , 96.7042 ,LISBON, 38.7333 , 9.1333
  155. 1820  DATA LITTLE ROCK, 34.7303 , 92.2331 ,LIVERPOOL, 53.7167 , 1.6833
  156. 1830  DATA LONDON, 51.5 , 0 ,LONG BEACH, 33.7706 , 118.188
  157. 1840  DATA LOS ANGELES, 33.9419 , 118.406 ,LOUISVILLE, 38.1778 , 85.7364
  158. 1850  DATA LOWELL, 42.6403 , 71.3206 ,LUBBOCK, 33.5847 , 101.843
  159. 1860  DATA LUXEMBOURG, 49.6167 ,-6.1333 ,MACON, 32.8367 , 83.6267
  160. 1870  DATA MADISON, 43.0731 , 89.3819 ,MADISON, 43.1389 , 89.3375
  161. 1880  DATA MADRID, 40.4167 , 3.7167 ,MALAGA, 36.7167 , 4.4167
  162. 1890  DATA MARSHALL, 32.55 , 94.3833 ,MEMPHIS, 35.05 , 89.9789
  163. 1900  DATA MEXICO CITY, 19.4292 , 99.1167 ,MIAMI, 25.7944 , 80.2881
  164. 1910  DATA MILWAUKEE, 42.948 , 87.8964 ,MINNEAPOLIS, 44.8842 , 93.215
  165. 1920  DATA MINOT, 48.2358 , 101.294 ,MOBILE, 30.6933 , 88.0425
  166. 1930  DATA MOLINE, 41.4486 , 90.5081 ,MONTERREY, 25.6667 , 100.333
  167. 1940  DATA MONTGOMERY, 32.3758 , 86.3086 ,MONTIVIDEO,-17.55 , 51.1333
  168. 1950  DATA MONTPELIER, 44.26 , 72.5781 ,MONTREAL, 45.5083 , 73.5556
  169. 1960  DATA MOSCOW, 55.75 ,-37.7 ,NASHVILLE, 36.1267 , 86.6819
  170. 1970  DATA NASSAU, 25.0833 , 77.3333 ,NATCHEZ, 31.5633 , 91.3917
  171. 1980  DATA NEW BEDFORD, 42.6369 , 70.9281 ,NEW DELHI, 28.6167 ,-77.2167
  172. 1990  DATA NEW DELHI, 28.6333 ,-77.2 ,NEW HAVEN, 41.3069 , 72.925
  173. 2000  DATA NEW ORLEANS, 29.9928 , 90.2564 ,NEW YORK JFK, 40.6403 , 73.7783
  174. 2010  DATA NEW YORK LGA, 40.7772 , 73.8742 ,NEWARK, 40.6931 , 74.1686
  175. 2020  DATA NIAGRA FALLS, 43.0928 , 79.0572 ,NOME, 64.5 , 165.417
  176. 2030  DATA NORFOLK, 36.8953 , 76.2 ,OAKLAND, 37.8008 , 122.265
  177. 2040  DATA OGDEN, 41.2253 , 111.973 ,OKLAHOMA CITY, 35.3936 , 97.5997
  178. 2050  DATA OMAHA, 41.3011 , 95.885 ,ORLANDO, 28.4317 , 81.3247
  179. 2060  DATA OSLO, 59.9333 ,-10.75 ,OTTAWA, 45.4278 , 75.7125
  180. 2070  DATA PADUCAH, 37.0869 , 88.5989 ,PALERMO, 38.1333 ,-13.3833
  181. 2080  DATA PANAMA CITY FL, 30.1667 , 85.6833 ,PARIS, 48.8372 ,-2.3372
  182. 2090  DATA PASADENA, 34.1456 , 118.145 ,PEKING, 39.9 ,-116.467
  183. 2100  DATA PENSACOLA, 30.4142 , 87.2156 ,PEORIA, 40.6642 , 89.69
  184. 2110  DATA PERTH,-31.9667 ,-115.817 ,PHILADELPHIA, 39.8703 , 75.2453
  185. 2120  DATA PHOENIX, 33.4361 , 112.009 ,PIERRE, 44.3717 , 100.348
  186. 2130  DATA PITTSBURGH, 40.4936 , 80.2317 ,POCATELLO, 42.8606 , 112.45
  187. 2140  DATA PORT ARTHUR, 29.875 , 93.9375 ,PORTLAND, 45.5892 , 122.593
  188. 2150  DATA PORTLAND ME, 43.6592 , 70.2553 ,PORTLAND OR, 45.5183 , 122.676
  189. 2160  DATA PRAGUE, 49.65 ,-13.8167 ,PROVIDENCE, 41.8256 , 71.4114
  190. 2170  DATA PROVO, 40.235 , 111.657 ,PUEBLO, 38.2714 , 104.609
  191. 2180  DATA QUEBEC, 46.8128 , 71.2056 ,QUITO,-.14 , 78.3
  192. 2190  DATA RACINE, 42.7303 , 87.7867 ,RALEIGH, 35.7772 , 78.6392
  193. 2200  DATA RAPID CITY, 44.0811 , 103.22 ,READING, 40.3358 , 75.9278
  194. 2210  DATA RENO, 39.5242 , 119.811 ,RENO, 39.4978 , 119.768
  195. 2220  DATA RICHMOND, 37.5375 , 77.4358 ,RIO DE JANEIRO,-22.8953 , 43.2228
  196. 2230  DATA ROANOKE, 37.2703 , 79.9456 ,ROCHESTER, 43.1189 , 77.6728
  197. 2240  DATA ROCKFORD, 42.2686 , 89.0967 ,ROCKFORD, 42.1994 , 89.0922
  198. 2250  DATA ROME, 41.8833 ,-12.5 ,ROME, 41.8833 ,-12.5
  199. 2260  DATA SACREMENTO, 38.5825 , 121.495 ,SAGINAW, 43.4311 , 83.9347
  200. 2270  DATA SALEM OR, 44.94 , 123.033 ,SALINA, 38.8433 , 97.6128
  201. 2280  DATA SALT LAKE CITY, 40.7842 , 111.967 ,SAN ANGELO, 31.4608 , 100.434
  202. 2290 DATA SAN ANTONIO, 29.5333 , 98.4697 ,SAN BERNADINO, 34.1083 , 117.291
  203. 2300 DATA SAN DIEGO, 32.7336 , 117.187 ,SAN FRANCISCO, 37.6194 , 122.374
  204. 2310 DATA SAN JOSE, 37.3614 , 121.927 ,SAN JUAN, 18.4414 , 66.0022
  205. 2320 DATA SAN SALVADOR, 13.6667 , 89.1667 ,SANTA BARBABRA, 34.4217 , 119.699
  206. 2330 DATA SANTA FE, 35.6864 , 105.936 ,SANTIAGO,-33.5 , 70.4
  207. 2340 DATA SAO PAULA,-23.55 , 46.65 ,SARASOTA, 27.3347 , 82.5417
  208. 2350 DATA SAVANNAH, 32.0783 , 81.0936 ,SCHENECTADY, 42.8117 , 73.9283
  209. 2360 DATA SCRANTON, 41.4089 , 75.6628 ,SEATTLE, 47.4492 , 122.308
  210. 2370 DATA SHANGHAI, 31.2167 ,-121.417 ,SHEBOYGAN, 43.7628 , 87.7144
  211. 2380 DATA SHERIDAN, 44.7986 , 106.953 ,SHREVEPORT, 32.5128 , 93.7494
  212. 2390 DATA SINGAPORE, 1.3333 ,-103.833 ,SIOUX CITY, 42.4961 , 96.075
  213. 2400 DATA SIOUX FALLS, 43.5431 , 96.7264 ,SOUTH BEND, 41.6758 , 86.2503
  214. 2410 DATA SPARTANBURG, 34.9508 , 81.935 ,SPOKANE, 47.6589 , 117.426
  215. 2420 DATA SPRINGFIELD, 39.8433 , 89.6678 ,ST. JOSEPH, 39.7658 , 94.8506
  216. 2430 DATA ST. LOUIS, 38.7481 , 90.3622 ,ST. PAUL, 44.9553 , 93.1019
  217. 2440 DATA PETERSBURG, 27.7717 , 82.6386 ,STANFORD, 41.0525 , 73.54
  218. 2450 DATA STOCKHOLM, 59.3333 ,-18.95 ,STOCKTON, 37.9583 , 121.288
  219. 2460 DATA SYDNEY,-33.8667 ,-151.2 ,SYRACUSE, 43.0511 , 76.1539
  220. 2470 DATA SYRACUSE, 43.1122 , 76.1089 ,TACOMA, 47.2497 , 122.438
  221. 2480 DATA TALLAHASSEE, 30.4417 , 84.2822 ,TAMPA, 27.9739 , 82.5328
  222. 2490 DATA TEHERAN, 35.6667 ,-51.4333 ,TEL AVIV, 32.0833 ,-34.7667
  223. 2500 DATA TENERIFE, 28.25 , 16.588 ,TERRE HAUTE, 39.4675 , 87.4072
  224. 2510 DATA TEXARKANA, 33.43 , 94.0417 ,TOKYO, 35.75 ,-139.75
  225. 2520 DATA TOLEDO, 41.6539 , 83.5442 ,TOPEKA, 39.0544 , 95.6731
  226. 2530 DATA TORONTO, 43.6533 , 79.3833 ,TRENTON, 40.2206 , 74.7703
  227. 2540 DATA TUCSON, 32.2208 , 110.969 ,TULSA, 36.1986 , 95.8878
  228. 2550 DATA UTICA, 43.1033 , 75.2258 ,VANCOUVER, 49.275 , 123.125
  229. 2560 DATA VICTORIA, 48.4278 , 123.363 ,WACO, 31.5533 , 97.1333
  230. 2570 DATA WARSAW, 52.25 ,-21 ,WASHINGTON, 38.9436 , 77.4544
  231. 2580 DATA WATERLOO, 42.4944 , 92.3389 ,WEST PALM BEACH, 26.71 , 80.0519
  232. 2590 DATA WHEELING, 40.0675 , 80.7222 ,WHITE PLAINS, 41.0333 , 73.7633
  233. 2600 DATA WHITEHORSE, 60.7208 , 136.054 ,WICHITA, 37.6517 , 97.4308
  234. 2610 DATA WICHITA FALLS, 33.9094 , 98.4911 ,WILKESBARRE, 41.2422 , 75.8881
  235. 2620 DATA WILMINGTON DE, 39.7461 , 75.5475 ,WILMINGTON NC, 34.2372 , 77.9494
  236. 2630 DATA WINDSOR, 42.3306 , 83.05 ,WINNIPEG, 49.8989 , 97.1389
  237. 2640 DATA WINSTON-SALEM, 36.0978 , 80.245 ,WORCESTER, 42.2603 , 71.8047
  238. 2650 DATA YAKIMA, 46.6025 , 120.511 ,YONKERS, 40.9319 , 73.8983
  239. 2660 DATA YORK, 39.9597 , 87.7267 ,YOUNGSTOWN, 41.0992 , 80.6506
  240. 2670 DATA YUMA, 32.715 , 114.623 ,ZANESVILLE, 39.9383 , 82.0083
  241. 2680 DATA ZURICH, 47.3833 ,-8.55
  242. 2690  'Norman Goldsmith
  243. 2700  '5 Ranger Road
  244. 2710  '7/5/87
  245.  
  246.