home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / ham_bas / beamhead.bas (.txt) next >
Encoding:
GW-BASIC  |  1987-02-11  |  16.3 KB  |  513 lines
  1. 10  E$=CHR$(27):Z1$=E$+"E"
  2. 20  PRINT Z1$
  3. 30  REM
  4. 40  REM
  5. 50  REM<UNK! {0009}><UNK! {0009}><UNK! {0009}>CONVERTED FOR MBASIC BY:
  6. 60  REM<UNK! {0009}><UNK! {0009}><UNK! {0009}><UNK! {0009}><UNK! {0009}><UNK! {0009}>PAUL MAYER WB9ZHG
  7. 70  REM<UNK! {0009}><UNK! {0009}><UNK! {0009}><UNK! {0009}><UNK! {0009}><UNK! {0009}>3516 RUBY STREET
  8. 80  REM<UNK! {0009}><UNK! {0009}><UNK! {0009}><UNK! {0009}><UNK! {0009}><UNK! {0009}>FRANKLIN PARK, IL 60131
  9. 90  REM
  10. 100  REM                 COUNTRY LIST UPDATE 5/86 BY:
  11. 110  REM                                             DICK GENAILLE W4UW
  12. 120  REM                                             719 QUARTERSTAFF RD
  13. 130  REM                                             WINSTON-SALEM, NC 27104
  14. 140  REM
  15. 150  PRINT "                     BEAM HEADINGS-5/86 COUNTRY LIST":PRINT
  16. 160  PRINT "THIS PROGRAM CALCULATES ANTENNA DIRECTION AND DISTANCE TO VARIOUS POINTS"
  17. 170  PRINT "ON EARTH STARTING FROM AN ARBITRARY (FIXED) LOCATION.  THE ALGORITHM IS"
  18. 180  PRINT "DESCRIBED IN THE ARRL ANTENNA BOOK.":PRINT :PRINT :PRINT
  19. 190  E1$="-----"
  20. 200  E1$=E1$+E1$
  21. 210  E1$=E1$+E1$
  22. 220  E1$=E1$+E1$
  23. 230  E1$=E1$+E1$
  24. 240  H4=25
  25. 250  Q$=CHR$(34)
  26. 260  REM GET THE LOCATION FROM WHICH CALCULATIONS ARE MADE
  27. 270  PRINT "ENTER LATITUDE AND LONGITUDE OF HOME QTH USED"
  28. 280  PRINT "  FOR CALCULATIONS, THE FORMAT TO USE IS:"
  29. 290  PRINT "   41,56,"Q$;"N"Q$;",87,49,"Q$;"W"Q$
  30. 300  PRINT "  WHICH MEANS 41 DEG 56 MIN NORTH, 87 DEG 49 MIN WEST"
  31. 310  PRINT: PRINT
  32. 320  P1=3.14159
  33. 330  INPUT A0,A1,D1$,O0,O1,D2$
  34. 340  IF A0<>90 GOTO 380
  35. 350  PRINT "N/S POLE NOT A VALID QTH"
  36. 360  GOTO 270
  37. 370  IF A0>90 OR A0<-90 OR O0>180 OR O0<0 GOTO 270
  38. 380  PRINT Z1$:PRINT "ENTER HEADER SUCH AS "Q$;"PAUL MAYER - WB9ZHG - FRANKLIN PARK - ILLINOIS - USA"Q$
  39. 390  PRINT :PRINT :PRINT
  40. 400  INPUT W8$
  41. 410  PRINT Z1$
  42. 420  REM THIS "HEADER" WILL CUSTOMIZE THE PRINTOUT FOR THE INDIVIDUAL QTH.
  43. 430  LPRINT E1$
  44. 440  FOR X=1 TO 5: LPRINT:NEXT X
  45. 450  N4=1
  46. 460  LPRINT TAB( 29)"COUNTRY LIST REV 5/86"
  47. 470  D=57.2958
  48. 480  REM U0 AND U1 ARE LATITUDE AND LONGITUDE (RESPECTIVELY) IN DECIMAL DEG
  49. 490  U0=(A0+A1/60)/D
  50. 500  U1=(O0+O1/60)/D
  51. 510  IF D1$="S" THEN U0=-U0
  52. 520  IF D2$="E" THEN U1=-U1
  53. 530  FOR X=1 TO 4:LPRINT:NEXT X
  54. 540  N4=N4+3
  55. 550  REM N4 KEEPS TRACK OF THE LINE NUMBER ON THE PAGE TO MAKE ALL PAGES THE
  56. 560  REM     SAME LENGTH
  57. 570  LPRINT TAB( 18)"ALL MEASUREMENTS ARE TO (1) MAJOR CITY  OR"
  58. 580  LPRINT TAB( 16)"(2) GEOGRAPHICAL CENTER OF AREA IF NO CITY NOTED"
  59. 590  LPRINT:LPRINT TAB( 15)"ALL BEARINGS ARE MEASURED IN DEGREES EAST OF NORTH"
  60. 600  LPRINT TAB( 27)"RANGE IS IN STATUTE MILES"
  61. 610  LPRINT
  62. 620  LPRINT TAB( 28)"RANGE AND BEARING FROM:"
  63. 630  LPRINT
  64. 640  LPRINT TAB( 40-LEN(W8$)/2)W8$
  65. 650  LPRINT TAB( 34)"LOCATED AT:"
  66. 660  LPRINT TAB( 29)A0" DEG "A1" MIN "D1$
  67. 670  LPRINT TAB( 29)O0" DEG "O1" MIN "D2$
  68. 680  FOR X=1 TO 5:LPRINT:NEXT X
  69. 690  REM LPRINT THE HEADING FOR EACH PAGE
  70. 700  LPRINT:LPRINT TAB( 5)"CALL"TAB( 22)"QTH"TAB( 53)"BEARING"TAB( 67)"RANGE"
  71. 710  N4=N4+H4
  72. 720  REM GET THE DATA FOR EACH COUNTRY
  73. 730  READ C$,Q$,H1,H2
  74. 740  IF C$="END" THEN GOTO 1040
  75. 750  H1=H1/D
  76. 760  H2=H2/D
  77. 770  X=U1-H2
  78. 780  IF X>P1 THEN  X=X-2*P1
  79. 790  IF X<-P1 THEN X=X+2*P1
  80. 800  REM LINES 420 THRU 510 DO THE ACTUAL GREAT CIRCLE CALCULATIONS
  81. 810  T0=SIN(U0)*SIN(H1)+COS(U0)*COS(H1)*COS(X)
  82. 820  IF T0<>0 THEN F1=ATN(SQR(1-T0*T0)/T0)
  83. 830  IF T0=0 THEN F1=P1/2
  84. 840  IF T0<0 THEN F1=F1+P1
  85. 850  T1=SIN(H1)-SIN(U0)*COS(F1)
  86. 860  T1=T1/(COS(U0)*SIN(F1))
  87. 870  IF T1<>0 THEN F2=ATN(SQR(1-T1*T1)/T1)
  88. 880  IF T1=0 THEN F2=P1/2
  89. 890  IF T1<0 THEN F2=F2+P1
  90. 900  F1=F1*60*D*1.152
  91. 910  F1=INT(F1)
  92. 920  F2=F2*D
  93. 930  F3=INT(F2+0.5)
  94. 940  IF X<0 THEN F3=INT(360-F2)
  95. 950  LPRINT TAB(5) C$ TAB(18) Q$ TAB(55) F3 TAB(66) F1
  96. 960  N4=N4+1
  97. 970  IF N4<60 GOTO 730
  98. 980  N4=5
  99. 990  FOR X=1 TO 6:LPRINT:NEXT X
  100. 1000  LPRINT E1$
  101. 1010  FOR X=1 TO 3:LPRINT:NEXT X
  102. 1020  LPRINT TAB( 5)"CALL"TAB( 22)"QTH"TAB( 53)"BEARING"TAB( 67)"RANGE"
  103. 1030  GOTO 730
  104. 1040  FOR N8=N4 TO  56
  105. 1050  LPRINT
  106. 1060  NEXT 
  107. 1070  PRINT "FOR ADDITIONAL COPIES OR UPDATED COUNTRY LIST"
  108. 1080  PRINT "CONTACT  DR. ART EPSTEIN - WB2WMJ"
  109. 1090  PRINT "         47 PARK CIRCLE"
  110. 1100  PRINT "         GREAT NECK, NY 11024"
  111. 1110  FOR X=1 TO 4:LPRINT:NEXT X
  112. 1120  LPRINT E1$
  113. 1130  END 
  114. 1140  REM THE DATA STATEMENTS BELOW GIVE THE (CONSTANT) DATA FOR EACH COUNTRY
  115. 1150  REM   THAT IS, THE AMATEUR RADIO PREFIX, THE COUNTRY NAME,
  116. 1160  REM   AND THE LATITUDE AND LONGITUDE INFORMATION.
  117. 1170  REM TO ELIMINATE UNNECESSARY CALCULATIONS, THE INPUT DATA IS EXPRESSED
  118. 1180  REM   IN SIGNED DECIMAL DEGREES.  "-" INDICATES SOUTH OR EAST.
  119. 1190  DATA "A2","BOTSWANA",-22,-24
  120. 1200  DATA "A3","TONGA ",-20,175
  121. 1210  DATA "A4","OMAN",22,-58
  122. 1220  DATA "A5","BHUTAN",27.5,-90.1
  123. 1230  DATA "A6","UNITED ARAB EMIRATES",24,-56
  124. 1240  DATA "A7","QATAR",25,-51.2
  125. 1250  DATA "A9","BAHRAIN",26,-50.5
  126. 1260  DATA "AP","PAKISTAN",30,-70
  127. 1270  DATA "BV","TAIWAN",23.5,-121
  128. 1280  DATA "BY","CHINA,PEKING",39.9,-116.4
  129. 1290  DATA "C2","NAURU",-.5,-167.9
  130. 1300  DATA "C3","ANDORRA",42.5,-1.5
  131. 1310  DATA "C5","THE GAMBIA",13.4,16
  132. 1320  DATA "C6","BAHAMAS",24.25,76
  133. 1330  DATA "C8,C9","MOZAMBIQUE",-18,-36
  134. 1340  DATA "CE","CHILE",-30,71
  135. 1350  DATA "CE9","SOUTH SHETLAND IS",-62,60
  136. 1360  DATA "CE0A","EASTER IS",-27.1,109.3
  137. 1370  DATA "CE0X","SAN FELIX",-26.3,80.1
  138. 1380  DATA "CE0Z","JUAN FERNANDEZ",-33,80
  139. 1390  DATA "CM,CO","CUBA",21.5,80
  140. 1400  DATA "CN","MOROCCO",32,5.8
  141. 1410  DATA "CP","BOLIVIA",-17,65
  142. 1420  DATA "CT","PORTUGAL",39.5,8
  143. 1430  DATA "CT2","AZORES",38.5,28
  144. 1440  DATA "CT3","MADEIRA IS",32.7,17
  145. 1450  DATA "CX","URUGUAY",-33,56
  146. 1460  DATA "D2,3","ANGOLA",-12.5,-18.5
  147. 1470  DATA "D4","CAPE VERDE IS",16,24
  148. 1480  DATA "D6","COMOROS",-12.2,-44.3
  149. 1490  DATA "DA-DL","FED. REP. OF GERMANY",51,-9
  150. 1500  DATA "DU","PHILLIPINES",12.5,-123
  151. 1510  DATA "EA-EH","SPAIN",40,4
  152. 1520  DATA "EA6","BALEARIC IS",39.5,-3
  153. 1530  DATA "EA8","CANARY IS",28,15.5
  154. 1540  DATA "EA9","CEUTA & MELILLA",35.3,2.98
  155. 1550  DATA "EI","IRELAND",53,8
  156. 1560  DATA "EL","LIBERIA",6,10
  157. 1570  DATA "EP","IRAN",32,-53
  158. 1580  DATA "ET","ETHIOPIA",9,-41
  159. 1590  DATA "F","FRANCE",46,-2
  160. 1600  DATA "FB8W","CROZET IS",-46,-52
  161. 1610  DATA "FB8X","KERGUELEN IS",-49.3,-69.2
  162. 1620  DATA "FB8Z","AMSTERDAM & ST. PAUL IS",-37.8,-77.5
  163. 1630  DATA "FC","CORSICA",42,-9
  164. 1640  DATA "FG","GUADELOUPE",16.2,61.6
  165. 1650  DATA "FH","MAYOTTE",-12.2,-44.3
  166. 1660  DATA "FK","NEW CALEDONIA",-22.3,-166.5
  167. 1670  DATA "FM","MARTINIQUE",14.7,61
  168. 1680  DATA "FO","CLIPPERTON",10.3,109.2
  169. 1690  DATA " ","FR POLYNESIA",-17.5,149.6
  170. 1700  DATA "FP","ST PIERRE & MIQUELON IS",46.7,52.35
  171. 1710  DATA "FR","JUAN DE NOVA",-17.1,-42.8
  172. 1720  DATA " ","GLORIOSO",-11,-48
  173. 1730  DATA " ","REUNION",-21.1,-55.6
  174. 1740  DATA " ","TROMELIN IS",-15.9,-52.2
  175. 1750  DATA "FS","ST MARTIN",18.1,63.1
  176. 1760  DATA "FW","WALLIS & FUTUNA",-14,177
  177. 1770  DATA "FY","FR GUIANA",4,53
  178. 1780  DATA "G","ENGLAND",51.5,1.5
  179. 1790  DATA "GD","ISLE OF MAN",54.2,4.5
  180. 1800  DATA "GI","NORTHERN IRELAND",54.6,6.8
  181. 1810  DATA "GJ","JERSEY",49.3,2.2
  182. 1820  DATA "GM","SCOTLAND",57,4
  183. 1830  DATA "GU","GUERNSEY",49.5,2.6
  184. 1840  DATA "GW","WALES",52.5,3.5
  185. 1850  DATA "H4,VR4","SOLOMON IS",-8,-159
  186. 1860  DATA "H5","BOPHUTHATSWANA",-30,-25
  187. 1870  DATA "HA,HG","HUNGARY",47,-20
  188. 1880  DATA "HB","SWITZERLAND",46,-8.5
  189. 1890  DATA "HB0","LIECHTENSTEIN",48.4,-9.25
  190. 1900  DATA "HC","ECUADOR",-2,77.5
  191. 1910  DATA "HC8","GALAPAGOS IS",-.5,90.5
  192. 1920  DATA "HH","HAITI",19,72.4
  193. 1930  DATA "HI","DOMINICAN REP",19,70.7
  194. 1940  DATA "HK","COLOMBIA",4,72
  195. 1950  DATA "HK0","MALPELO",4,81.6
  196. 1960  DATA " ","SAN ANDRES",13.4,81.4
  197. 1970  DATA "HL,HM","KOREA",37.5,-126.9
  198. 1980  DATA "HP","PANAMA",9,80
  199. 1990  DATA "HR","HONDURAS",15,86.5
  200. 2000  DATA "HS","THAILAND",15,-100
  201. 2010  DATA "HT,YN","NICARAGUA",13,85
  202. 2020  DATA "HV","VATICAN CITY",41.9,-12.45
  203. 2030  DATA "HZ,7Z","SAUDI ARABIA",25,-45
  204. 2040  DATA "I-IZ","ITALY",42.8,-12.8
  205. 2050  DATA "IS","SARDINIA",40,-9
  206. 2060  DATA "J2,FL8","DJIBOUTI",11.6,-43.2
  207. 2070  DATA "J3,VP2G","GRENADA",12.1,61.7
  208. 2080  DATA "J5","GUINEA BISSAU",12,15
  209. 2090  DATA "J6,VP2L","ST. LUCIA",14,61
  210. 2100  DATA "J7,VP2D","DOMINICA",15.5,61.35
  211. 2110  DATA "J8,VP2S","ST. VINCENT",13.1,61.15
  212. 2120  DATA "JA-JS","JAPAN",36,-138
  213. 2130  DATA "JD","OGASAWARA",27,-142.2
  214. 2140  DATA " ","MINAMI TORISHIMA",24.3,-154
  215. 2150  DATA " ","OKINO TORI-SHIMA..",25,-150
  216. 2160  DATA "JT","MONGOLIA",47.9,-106.9
  217. 2170  DATA "JW","SVALBARD",78,-20
  218. 2180  DATA "JX","JAN MAYEN",71,-8.3
  219. 2190  DATA "JY","JORDAN",31,-36
  220. 2200  DATA "K1,AA-AL,N,W","CONN",41.7,72.5
  221. 2210  DATA " ","MAINE",45.5,69
  222. 2220  DATA " ","MASS",42.4,72
  223. 2230  DATA " ","N.H.",44,71.5
  224. 2240  DATA " ","R.I.",41.7,71.5
  225. 2250  DATA " ","VT",43.5,73
  226. 2260  DATA "K2,AA-AL,N,W","N.J.",40.25,74.5
  227. 2270  DATA " ","N.Y.",42.9,75.5
  228. 2280  DATA " ","Poughkeepsie, N.Y.",41.42,73.56
  229. 2290  DATA "K3,AA-AL,N,W","DEL",39.2,75.5
  230. 2300  DATA " ","MD",39,76.5
  231. 2310  DATA " ","PENN",41,78
  232. 2320  DATA "K4,AA-AL,N,W","ALA",33,86.5
  233. 2330  DATA " ","FLA",28.5,82
  234. 2340  DATA " ","GA",33,83
  235. 2350  DATA " ","KY",37.5,85
  236. 2360  DATA " ","N.C.",35.5,78.5
  237. 2370  DATA " ","S.C.",33.5,80.5
  238. 2380  DATA " ","TENN",36,86
  239. 2390  DATA " ","VA",38,78.5
  240. 2400  DATA "K5,AA-AL,N,W","ARK",34.7,92.4
  241. 2410  DATA " ","LA",31.5,92.5
  242. 2420  DATA " ","MISS",33,89.7
  243. 2430  DATA " ","N.M.",34,106
  244. 2440  DATA " ","OKLA",35.5,96.5
  245. 2450  DATA " ","TEXAS",32,98
  246. 2460  DATA "K6,AA-AL,N,W","CALIF",37,120
  247. 2470  DATA "K7,AA-AK,N,W","ARIZ",33.3,111.6
  248. 2480  DATA " ","IDAHO",44,114
  249. 2490  DATA " ","MONT",47,110
  250. 2500  DATA " ","NEV",39,117
  251. 2510  DATA " ","OREG",44,120
  252. 2520  DATA " ","UTAH",39,112
  253. 2530  DATA " ","WASH",47,120
  254. 2540  DATA " ","WYOM",43,107.5
  255. 2550  DATA "K8,AA-AL,N,W","MICH",44,85
  256. 2560  DATA " ","OHIO",40,82.5
  257. 2570  DATA " ","W.VA.",39,80.5
  258. 2580  DATA "K9,AA-AL,N,W","ILL",40,89
  259. 2590  DATA " ","IND",40,86.5
  260. 2600  DATA " ","WISC",44.5,90
  261. 2610  DATA "K0,AA-AL,N,W","COLO",39,105
  262. 2620  DATA " ","IOWA",42,94
  263. 2630  DATA " ","KANSAS",38.5,98
  264. 2640  DATA " ","MINN",46.5,94.5
  265. 2650  DATA " ","MO",38.5,92.2
  266. 2660  DATA " ","NEBR",41.5,100
  267. 2670  DATA " ","N.D.",47.5,100
  268. 2680  DATA " ","S.D.",44.5,100
  269. 2690  DATA "KB6,KH1","BAKER & HOWLAND",0.3,176.5
  270. 2700  DATA "KC4,KP1","NAVASSA IS",18.4,75
  271. 2710  DATA "KC6","FED. STATES OF MICRONESIA",8,-145
  272. 2720  DATA " ","REP. OF BELAU",8,-135
  273. 2730  DATA "KG4","GUANTANAMO",20,75.15
  274. 2740  DATA "KG6,KH2","GUAM",13.45,-144.8
  275. 2750  DATA "KH0,KG6R,S,T","MARIANA IS",12,-154
  276. 2760  DATA "KH","HAWAII",19.5,155.5
  277. 2770  DATA " ","KURE IS",28.4,178.8
  278. 2780  DATA "KJ","JOHNSTON IS",16.75,169.55
  279. 2790  DATA "KL7,AL7","ALASKA",65,153
  280. 2800  DATA "KM,KH4","MIDWAY IS",28.2,177.25
  281. 2810  DATA "KP4","PUERTO RICO",18.25,66.5
  282. 2820  DATA "KP4,KP5","DESECHEO IS.",18.22,68.19
  283. 2830  DATA "KP6,KH5","KINGMAN REEF",6.4,166.4
  284. 2840  DATA " ","PALMYRA GROUP",5.85,162.1
  285. 2850  DATA "KS6,KH8","AMERICAN SAMOA",-14.3,170
  286. 2860  DATA "KV,KP2","VIRGIN IS",18.3,64.7
  287. 2870  DATA "KW6,KH9","WAKE IS",19.3,-166.6
  288. 2880  DATA "KX6","MARSHALL IS",13,-165
  289. 2890  DATA "LA-LJ","NORWAY",62,-10
  290. 2900  DATA "LU,AZ","ARGENTINA",-34,64
  291. 2910  DATA "LX","LUXEMBOURG",49.75,-6.1
  292. 2920  DATA "LZ","BULGARIA",43,-25
  293. 2930  DATA "OA","PERU",-10,76
  294. 2940  DATA "OD","LEBANON",34,-36
  295. 2950  DATA "OE","AUSTRIA",47.3,-13.3
  296. 2960  DATA "OH","FINLAND",64,-26
  297. 2970  DATA "OH0","ALAND IS",60.25,-20
  298. 2980  DATA "OJ0","MARKET",60.3,-19.15
  299. 2990  DATA "OK","CZECHOSLOVAKIA",49.5,-17
  300. 3000  DATA "ON","BELGIUM",50.8,-4
  301. 3010  DATA "OX,XP","GREENLAND",71,40
  302. 3020  DATA "OY","FAROE IS",62,7
  303. 3030  DATA "OZ","DENMARK",56,-10
  304. 3040  DATA "P2","PAPUA NEW GUINEA",-7,-147
  305. 3050  DATA "PA-PI","NETHERLANDS",52.25,-5.5
  306. 3060  DATA "PJ2,3,4,9","NETH. ANTILLES",12.25,69
  307. 3070  DATA "PJ5,6,7,8","ST. MAARTEN, SABA, ST. EUSTATIUS",18.1,63.1
  308. 3080  DATA "PP-PY","BRAZIL",-9,53
  309. 3090  DATA "PY0","FERNANDO DE NORONHA",-3.85,32.45
  310. 3100  DATA " ","ST. PETER & PAUL'S ROCKS",1,30
  311. 3110  DATA " ","TRINIDADE",-22,31
  312. 3120  DATA "PZ","SURINAM",5.5,55
  313. 3130  DATA "S2,S3","BANGLADESH",24,-90
  314. 3140  DATA "S4","CISKEI",-30,-25
  315. 3150  DATA "S7","SEYCHELLES",-4.5,-55.66
  316. 3160  DATA "S8","TRANSKEI",-30,-25
  317. 3170  DATA "S9,CR5","SAO TOME & PRINCIPE",1,-7
  318. 3180  DATA "SJ-SM","SWEDEN",62,-15
  319. 3190  DATA "SP","POLAND",52,-19
  320. 3200  DATA "ST2","SUDAN",5,-31.8
  321. 3210  DATA "ST0","SOUTHERN SUDAN",15,-30
  322. 3220  DATA "SU","EGYPT",27,-30
  323. 3230  DATA "SV","GREECE",39,-22
  324. 3240  DATA " ","CRETE",35.5,-24.7
  325. 3250  DATA " ","MT ATHOS",40.1,-24.3
  326. 3260  DATA "SV5 ","DODECANESE",36.2,-27
  327. 3270  DATA "T2","TUVALU",-8,-178
  328. 3280  DATA "T7,M1","SAN MARINO",43.9,-12.4
  329. 3290  DATA "T30","W. KIRIBATI",-.5,-174
  330. 3300  DATA "T31","C. KIRIBATI",-4,-172
  331. 3310  DATA "T32","E. KIRIBATI",0,157
  332. 3320  DATA "TA-TC","TURKEY",39,-35
  333. 3330  DATA "TF","ICELAND",65,18
  334. 3340  DATA "TG","GUATEMALA",14.6,90.5
  335. 3350  DATA "TI","COSTA RICA",10,84
  336. 3360  DATA "TI9","COCOS IS",6,87.5
  337. 3370  DATA "TJ","CAMEROON",6,-12
  338. 3380  DATA "TL","CENTRAL AFR. REP.",7,-21
  339. 3390  DATA "TN","CONGO REP.",-1,-15
  340. 3400  DATA "TR","GABON REP.",-1,-11.75
  341. 3410  DATA "TT","CHAD REP.",15,-19
  342. 3420  DATA "TU","IVORY COAST",8,5
  343. 3430  DATA "TY","BENIN",9.5,-2.25
  344. 3440  DATA "TZ","MALI REP.",16,3.5
  345. 3450  DATA "UA1","EUR. RUSSIAN SFSR",59,-31
  346. 3460  DATA "UA3"," ",56,-38
  347. 3470  DATA "UA6"," ",47,-43
  348. 3480  DATA "UN1"," ",65,-32
  349. 3490  DATA "UA1","FRANZ JOSEF LAND",81,-55
  350. 3500  DATA "UA2","KALININGRADSK",54.7,-20.5
  351. 3510  DATA "UA9","ASIATIC RSFSR",55,-70
  352. 3520  DATA "UA0","ASIATIC RSFSR-ZONE 18",52,-105
  353. 3530  DATA "UA0","ASIATIC RSFSR-ZONE 19",43,-130
  354. 3540  DATA "UB5","UKRAINE",49,-32
  355. 3550  DATA "UC2","WHITE RSSR",53,-27
  356. 3560  DATA "UD6","AZERBAIJAN",40.5,-47.5
  357. 3570  DATA "UF6","GEORGIA",42,-44
  358. 3580  DATA "UG6","ARMENIA",40,-43
  359. 3590  DATA "UH8","TURKOMAN",40,-60
  360. 3600  DATA "UI8","UZBEK",41,-64
  361. 3610  DATA "UJ8","TADZHIK",39,-71
  362. 3620  DATA "UL7","KAZAKH",48,-68
  363. 3630  DATA "UM8","KIRGHIZ",41.5,-75
  364. 3640  DATA "UO5","MOLDAVIA",47,-29
  365. 3650  DATA "UP2","LITHUANIA",56,-24
  366. 3660  DATA "UQ2","LATVIA",57,-25
  367. 3670  DATA "UR2","ESTONIA",59,-26
  368. 3680  DATA "V2","ANTIGUA",17,61.8
  369. 3690  DATA "V3","BELIZE",17.25,88.75
  370. 3700  DATA "V4,VP2K","ST. KITTS",17.3,62.75
  371. 3710  DATA "V8","BRUNEI",4.8,-114.9
  372. 3720  DATA "V9","VENDA",-30,-25
  373. 3730  DATA "VE1","SABLE IS",44,60
  374. 3740  DATA " ","ST PAUL IS",47.2,60.2
  375. 3750  DATA "VE1","NEW BRUNS.,NOVA SCOTIA",47,65
  376. 3760  DATA "VE2","QUEBEC",47,72
  377. 3770  DATA "VE3","ONTARIO",45,78
  378. 3780  DATA "VE4","MANITOBA,WINNEPEG",50,97
  379. 3790  DATA "VE5","SASKATCHEWAN,SASKATOON",52.5,107
  380. 3800  DATA "VE6","ALBERTA,EDMONTON",53,113
  381. 3810  DATA "VE7","BRIT. COLUMBIA",55,124
  382. 3820  DATA "VE8","YUKON",65,135
  383. 3830  DATA "VE8","N.W. TERRITORY",65,105
  384. 3840  DATA "VO1","NEWFOUNDLAND",48,55
  385. 3850  DATA "VO2","LABRADOR",54,62
  386. 3860  DATA "VK1","AUSTRALIA-CAP TERR,CANBERRA",-35,-150
  387. 3870  DATA "VK2","   NEW S. WALES,NEWCASTLE",-32,-148
  388. 3880  DATA "VK3","   VICTORIA,MELBOURNE",-35,-145
  389. 3890  DATA "VK4","   QUEENSLAND,BRISBANE",-27.5,-153
  390. 3900  DATA "VK5","   S. AUSTR,WOOMERA",-31,-136.5
  391. 3910  DATA "VK6","   W. AUSTR,PERTH",-32,-116
  392. 3920  DATA "VK7","   TASMANIA,HOBART",-44,-147
  393. 3930  DATA "VK8","   N. TERRITORY,DARWIN",-12.5,-131
  394. 3940  DATA "VK2","LORD HOWE IS",-31.6,-159.1
  395. 3950  DATA "VK9","WILLIS IS",-16.3,-150
  396. 3960  DATA " ","CHRISTMAS IS",-10.5,-105.65
  397. 3970  DATA "VK9","COCOS IS",-12,-97
  398. 3980  DATA "VK9","MELLISH REEF",-17.4,-155.85
  399. 3990  DATA " ","NORFOLK IS",-29,-167.95
  400. 4000  DATA "VK0","HEARD IS",-53,-75
  401. 4010  DATA " ","MACQUARIE IS",-54.6,-158.9
  402. 4020  DATA "VP2E","ANGUILLA",18.25,63.10
  403. 4030  DATA "VP2M","MONTSERRAT",16.75,62.2
  404. 4040  DATA "VP2V","BRITISH VIRGIN IS",18.5,64.5
  405. 4050  DATA "VP5","TURKS & CAICOS IS",21.75,71.6
  406. 4060  DATA "VP8","FALKLAND IS",-51.75,59
  407. 4070  DATA " ","S. GEORGIA IS",-54.25,36.75
  408. 4080  DATA " ","S. ORKNEY IS",-62,45
  409. 4090  DATA " ","S. SANDWICH IS",-58,27
  410. 4100  DATA " ","S. SHETLAND IS",-62,60
  411. 4110  DATA "VP9","BERMUDA",32.35,64.75
  412. 4120  DATA "VQ9","CHAGOS IS",-6,-72
  413. 4130  DATA "VR6","PITCAIRN IS",-25.1,130.1
  414. 4140  DATA "VS6","HONG KONG",22.25,-114.2
  415. 4150  DATA "VU","INDIA",20,-80
  416. 4160  DATA "VU7","ANDAMAN & NICOBAR IS",12,-93
  417. 4170  DATA " ","LACCADIVE IS",10,-73
  418. 4180  DATA "XE","MEXICO",23,102
  419. 4190  DATA "XF4","REVILLA GIGEDO",19,111.5
  420. 4200  DATA "XT","BURKINA-FASO",12,2
  421. 4210  DATA "XU","KAMPUCHEA",13,-105
  422. 4220  DATA "XV","VIETNAM",13,-108
  423. 4230  DATA "XW","LAOS",18,-105
  424. 4240  DATA "XX","MACAO",22.15,-113.6
  425. 4250  DATA "XZ","BURMA",22,-98
  426. 4260  DATA "Y2-Y9","GERMAN DEM. REP",52,-12.3
  427. 4270  DATA "YA","AFGHANISTAN",34,-66
  428. 4280  DATA "YB,YC,YD","INDONESIA",-6.15,-106.8
  429. 4290  DATA "YI","IRAQ",33,-44
  430. 4300  DATA "YJ","VANUATU",-16,-167
  431. 4310  DATA "YK","SYRIA",35,-38
  432. 4320  DATA "YN,HT","NICARAGUA",13,85
  433. 4330  DATA "YO","ROMANIA",46,-25.5
  434. 4340  DATA "YS","EL SALVADOR",13.8,88.9
  435. 4350  DATA "YU","YUGOSLAVIA",44,-19
  436. 4360  DATA "YV","VENEZUELA",8,66
  437. 4370  DATA "YV0","AVES IS",12,65
  438. 4380  DATA "Z2","ZIMBABWE",-20,-30
  439. 4390  DATA "ZA","ALBANIA",41,-20
  440. 4400  DATA "ZB","GIBRALTAR",36.2,5.36
  441. 4410  DATA "ZC","CYPRUS (BRIT. MILITARY BASES)",35,-33
  442. 4420  DATA "ZD7","ST HELENA IS",-15.9,5.7
  443. 4430  DATA "ZD8","ASCENSION IS",-7.9,14.3
  444. 4440  DATA "ZD9","TRISTAN DE CUHNA & GOUGH IS",-37,12
  445. 4450  DATA "ZF","CAYMAN IS",19.5,80.5
  446. 4460  DATA "ZK1","S. COOK IS",-20,158
  447. 4470  DATA "ZK1","N. COOK IS",-10.5,161.5
  448. 4480  DATA "ZK2","NIUE IS",-19,169.85
  449. 4490  DATA "ZL","NEW ZEALAND",-41,-175
  450. 4500  DATA "  ","AUCKLAND & CAMPBELL IS",-52.5,-169
  451. 4510  DATA " ","CHATHAM IS",-43,176.5
  452. 4520  DATA " ","KERMADEC IS",-29.85,178.25
  453. 4530  DATA "ZK3,ZM7","TOKELAUS",-9,171.75
  454. 4540  DATA "ZP","PARAGUAY",-23,58
  455. 4550  DATA "ZS1,2,4,5,6","S. AFRICA",-30,-25
  456. 4560  DATA "ZS2","PRNC. EDWARD & MARION IS",-46.6,-37.9
  457. 4570  DATA "ZS3","NAMIBIA",-22.5,-17
  458. 4580  DATA "1A0","SOVEREIGN MIL. ORDER OF MALTA",42.8,-12.8
  459. 4590  DATA "1S","SPRATLY",8.63,-111.9
  460. 4600  DATA "3A","MONACO",43.7,-7.4
  461. 4610  DATA "3B6,7","AGALEGA & ST BRANDON",-10.4,-56.6
  462. 4620  DATA "3B8","MAURITIUS",-20.5,-58
  463. 4630  DATA "3B9","RODIGUEZ",-19.7,-63.4
  464. 4640  DATA "3C","EQUATORIAL GUINEA",2,-9
  465. 4650  DATA "3C0","ANNOBON",-1.4,-5.6
  466. 4660  DATA "3D2","FIJI",-17,-178
  467. 4670  DATA "3D6","SWAZILAND",-27,-32
  468. 4680  DATA "3V","TUNISIA",35,-10
  469. 4690  DATA "3X","GUINEA",11,10
  470. 4700  DATA "3Y","BOUVET",-54.45,-3.4
  471. 4705  DATA "3Y","PETER IS",-68.5,90.35
  472. 4710  DATA "4S","SRI LANKA (CEYLON)",7,-81
  473. 4720  DATA "4U","I.T.U. GENEVA",41.2,-6.15
  474. 4725  DATA "4U","HQ. UNITED NATIONS (NY)",40.25,74.01
  475. 4730  DATA "4W","YEMEN",15,-44
  476. 4740  DATA "4X,4Z","ISRAEL",32,-35
  477. 4750  DATA "5A","LIBYA",32.5,-13
  478. 4760  DATA "5B","CYPRUS",35,-33
  479. 4770  DATA "5H","TANZANIA",-7,-38
  480. 4780  DATA "5N","NIGERIA",7,-5
  481. 4790  DATA "5R","MALAGASY REP",-19,-47.5
  482. 4800  DATA "5T","MAURITANIA",18,15
  483. 4810  DATA "5U","NIGER",15,-7
  484. 4820  DATA "5V","TOGO",7,1.5
  485. 4830  DATA "5W","W. SAMOA",-13.9,172
  486. 4840  DATA "5X","UGANDA",5,-32
  487. 4850  DATA "5Z","KENYA",-2.5,-38
  488. 4860  DATA "6O","SOMALI",2.5,-46
  489. 4870  DATA "6W","SENEGAL",14.5,17
  490. 4880  DATA "6Y","JAMAICA",18.25,77.3
  491. 4890  DATA "7O","PEOPLE'S DEM. REP. OF YEMEN",12.75,-45.2
  492. 4900  DATA "7P","LESOTHO",-29,-28
  493. 4910  DATA "7Q","MALAWI",-15,-35
  494. 4920  DATA "7X","ALGERIA",36.5,-2.5
  495. 4930  DATA "7Z,HZ","SAUDI ARABIA",25,-45
  496. 4940  DATA "8P","BARBADOS",13.15,59.55
  497. 4950  DATA "8Q,VS9","MALDIVE IS",3.25,-73
  498. 4960  DATA "8R","GUYANA",5,59
  499. 4970  DATA "9G","GHANA",6,1
  500. 4980  DATA "9H","MALTA",35.8,-14.6
  501. 4990  DATA "9J","ZAMBIA",-15,-28
  502. 5000  DATA "9K","KUWAIT",29.5,-47.8
  503. 5010  DATA "9L","SIERRA LEONE",8,12
  504. 5020  DATA "9M2","W MALAYSIA",3,-102
  505. 5030  DATA "9M6,8","E. MALAYSIA (SABAH, SARAWAK)",6,-116
  506. 5040  DATA "9N","NEPAL",28,-84
  507. 5050  DATA "9Q","ZAIRE",-5,-22
  508. 5060  DATA "9U","BURUNDI",-3,-30
  509. 5070  DATA "9V","SINGAPORE",1.35,-103.8
  510. 5080  DATA "9X","RWANDA",-2.5,-30
  511. 5090  DATA "9Y","TRINIDAD & TOBAGO",10.39,61.31
  512. 5100  DATA
  513.