EUR QTH LOCATOR

00000000: 01 08 48 08 0A 00 8F 20  57 4F 52 4C 44 57 49 44  |..H.... WORLDWID|
00000010: 45 20 51 54 48 20 4C 4F  43 41 54 4F 52 20 43 4F  |E QTH LOCATOR CO|
00000020: 4E 56 45 52 53 49 4F 4E  20 50 52 4F 47 52 41 4D  |NVERSION PROGRAM|
00000030: 20 28 44 4C 29 20 2D 20  42 59 20 4B 43 36 41 20  | (DL) - BY KC6A |
00000040: 41 4E 44 20 4E 36 4E 42  00 91 08 14 00 8F 20 55  |AND N6NB...... U|
00000050: 53 45 53 20 53 4D 35 41  47 4D 27 53 20 43 4F 4E  |SES SM5AGM'S CON|
00000060: 56 45 52 53 49 4F 4E 20  46 4F 52 4D 55 4C 41 53  |VERSION FORMULAS|
00000070: 3B 20 43 4F 4D 50 55 54  45 53 20 44 58 20 41 4E  |; COMPUTES DX AN|
00000080: 44 20 43 4F 4E 54 45 53  54 20 50 4F 49 4E 54 53  |D CONTEST POINTS|
00000090: 2E 00 DA 08 1E 00 8F 20  2D 2D 55 53 45 20 4D 49  |....... --USE MI|
000000A0: 4E 55 53 20 53 49 47 4E  20 28 27 2D 27 29 20 54  |NUS SIGN ('-') T|
000000B0: 4F 20 49 4E 44 49 43 41  54 45 20 45 41 53 54 20  |O INDICATE EAST |
000000C0: 4C 4F 4E 47 49 54 55 44  45 2C 20 53 4F 55 54 48  |LONGITUDE, SOUTH|
000000D0: 20 4C 41 54 49 54 55 44  45 2E 00 1D 09 28 00 8F  | LATITUDE....(..|
000000E0: 20 20 20 49 46 20 30 20  44 45 47 52 45 45 53 2C  |   IF 0 DEGREES,|
000000F0: 20 55 53 45 20 2B 2F 2D  20 57 49 54 48 20 4D 49  | USE +/- WITH MI|
00000100: 4E 55 54 45 53 20 28 45  58 41 4D 50 4C 45 3A 20  |NUTES (EXAMPLE: |
00000110: 20 2D 31 30 2E 31 20 4D  49 4E 53 29 2E 00 66 09  | -10.1 MINS)..f.|
00000120: 32 00 50 49 B2 33 2E 31  34 31 35 39 3A 52 41 B2  |2.PI.3.14159:RA.|
00000130: 35 37 2E 32 39 35 38 3A  96 20 A5 41 28 58 29 B2  |57.2958:. .A(X).|
00000140: B5 28 58 AC 31 30 30 AA  2E 35 29 AD 31 30 30 3A  |.(X.100..5).100:|
00000150: 50 54 B2 30 3A 4D 4C 24  B2 22 20 4B 4D 22 3A 53  |PT.0:ML$." KM":S|
00000160: 43 24 B2 22 50 22 00 9A  09 3C 00 55 28 31 29 B2  |C$."P"...<.U(1).|
00000170: 38 32 3A 55 28 32 29 B2  38 32 3A 55 28 33 29 B2  |82:U(2).82:U(3).|
00000180: 35 37 3A 55 28 34 29 B2  35 37 3A 55 28 35 29 B2  |57:U(4).57:U(5).|
00000190: 38 38 3A 55 28 36 29 B2  38 38 00 CE 09 46 00 4C  |88:U(6).88...F.L|
000001A0: 28 31 29 B2 36 35 3A 4C  28 32 29 B2 36 35 3A 4C  |(1).65:L(2).65:L|
000001B0: 28 33 29 B2 34 38 3A 4C  28 34 29 B2 34 38 3A 4C  |(3).48:L(4).48:L|
000001C0: 28 35 29 B2 36 35 3A 4C  28 36 29 B2 36 35 00 F2  |(5).65:L(6).65..|
000001D0: 09 50 00 99 20 C7 28 31  34 37 29 3A 8F 20 43 4C  |.P.. .(147):. CL|
000001E0: 45 41 52 20 53 43 52 45  45 4E 20 43 4F 4D 4D 41  |EAR SCREEN COMMA|
000001F0: 4E 44 00 1C 0A 5A 00 99  3A 99 3A 99 20 22 20 20  |ND...Z..:.:. "  |
00000200: 20 20 20 51 54 48 20 4C  4F 43 41 54 4F 52 20 50  |   QTH LOCATOR P|
00000210: 52 4F 47 52 41 4D 20 4D  45 4E 55 22 00 4A 0A 64  |ROGRAM MENU".J.d|
00000220: 00 99 3A 99 20 22 31 20  2D 20 43 4F 4E 56 45 52  |..:. "1 - CONVER|
00000230: 54 20 4C 4F 43 41 54 4F  52 53 20 54 4F 20 43 4F  |T LOCATORS TO CO|
00000240: 4F 52 44 49 4E 41 54 45  53 22 00 76 0A 6E 00 99  |ORDINATES".v.n..|
00000250: 20 22 32 20 2D 20 43 4F  4E 56 45 52 54 20 43 4F  | "2 - CONVERT CO|
00000260: 4F 52 44 49 4E 41 54 45  53 20 54 4F 20 4C 4F 43  |ORDINATES TO LOC|
00000270: 41 54 4F 52 53 22 00 A0  0A 78 00 99 20 22 33 20  |ATORS"...x.. "3 |
00000280: 2D 20 43 4F 4D 50 55 54  45 20 44 58 20 41 4E 44  |- COMPUTE DX AND|
00000290: 20 43 4F 4E 54 45 53 54  20 53 43 4F 52 45 53 22  | CONTEST SCORES"|
000002A0: 00 CA 0A 82 00 99 20 22  34 20 2D 20 53 45 4C 45  |...... "4 - SELE|
000002B0: 43 54 20 43 4F 4E 54 45  53 54 20 53 43 4F 52 49  |CT CONTEST SCORI|
000002C0: 4E 47 20 53 59 53 54 45  4D 22 00 DB 0A 8C 00 99  |NG SYSTEM"......|
000002D0: 20 22 35 20 2D 20 45 58  49 54 22 00 FC 0A 96 00  | "5 - EXIT".....|
000002E0: 99 3A 85 20 22 45 4E 54  45 52 20 31 2C 32 2C 33  |.:. "ENTER 1,2,3|
000002F0: 2C 34 20 4F 52 20 35 20  22 3B 43 4E 00 1C 0B A0  |,4 OR 5 ";CN....|
00000300: 00 91 20 43 4E 20 89 20  32 30 30 2C 33 36 30 2C  |.. CN . 200,360,|
00000310: 35 38 30 2C 39 32 30 2C  31 30 31 30 00 39 0B AA  |580,920,1010.9..|
00000320: 00 99 20 22 49 4E 56 41  4C 49 44 20 43 48 4F 49  |.. "INVALID CHOI|
00000330: 43 45 2E 22 3A 89 20 39  30 00 84 0B B4 00 8F 20  |CE.":. 90...... |
00000340: 4C 4F 43 41 54 4F 52 2D  54 4F 2D 43 4F 4F 52 44  |LOCATOR-TO-COORD|
00000350: 49 4E 41 54 45 20 43 4F  4E 56 45 52 53 49 4F 4E  |INATE CONVERSION|
00000360: 20 52 4F 55 54 49 4E 45  3B 20 34 20 41 4E 44 20  | ROUTINE; 4 AND |
00000370: 36 2D 44 49 47 49 54 20  4C 4F 43 41 54 4F 52 53  |6-DIGIT LOCATORS|
00000380: 20 4F 4B 2E 00 BA 0B BE  00 8F 20 49 46 20 34 20  | OK....... IF 4 |
00000390: 44 49 47 49 54 53 2C 20  41 50 50 52 4F 58 2E 20  |DIGITS, APPROX. |
000003A0: 43 45 4E 54 45 52 20 4F  46 20 41 52 45 41 20 49  |CENTER OF AREA I|
000003B0: 53 20 41 53 53 55 4D 45  44 2E 00 E8 0B C8 00 99  |S ASSUMED.......|
000003C0: 3A 99 20 22 45 4E 54 45  52 20 4C 4F 43 41 54 4F  |:. "ENTER LOCATO|
000003D0: 52 20 54 4F 20 43 4F 4E  56 45 52 54 22 3A 8D 20  |R TO CONVERT":. |
000003E0: 32 31 30 3A 89 20 39 30  00 02 0C D2 00 85 20 47  |210:. 90...... G|
000003F0: 31 24 3A 8B 20 47 31 24  B2 22 51 52 54 22 20 A7  |1$:. G1$."QRT" .|
00000400: 20 80 00 20 0C DC 00 8B  20 C3 28 47 31 24 29 B2  | .. .... .(G1$).|
00000410: 34 20 A7 20 47 31 24 B2  47 31 24 AA 22 4D 4D 22  |4 . G1$.G1$."MM"|
00000420: 00 37 0C E6 00 8B 20 C3  28 47 31 24 29 B3 B1 36  |.7.... .(G1$)..6|
00000430: 20 A7 20 31 30 35 30 00  58 0C F0 00 81 20 4B B2  | . 1050.X.... K.|
00000440: 31 20 A4 20 36 3A 41 28  4B 29 B2 C6 28 CA 28 47  |1 . 6:A(K)..(.(G|
00000450: 31 24 2C 4B 2C 31 29 29  00 7B 0C FA 00 8B 20 41  |1$,K,1)).{.... A|
00000460: 28 4B 29 B1 55 28 4B 29  20 B0 20 41 28 4B 29 B3  |(K).U(K) . A(K).|
00000470: 4C 28 4B 29 20 A7 20 31  30 35 30 00 83 0C 04 01  |L(K) . 1050.....|
00000480: 82 20 4B 00 BE 0C 0E 01  4C 4F B2 AB 31 38 30 AA  |. K.....LO..180.|
00000490: 28 41 28 31 29 AB 36 35  29 AC 32 30 AA 28 41 28  |(A(1).65).20.(A(|
000004A0: 33 29 AB 34 38 29 AC 32  AA 28 41 28 35 29 AB 36  |3).48).2.(A(5).6|
000004B0: 34 2E 35 29 AD 31 32 3A  4C 4F B2 AB 4C 4F 00 ED  |4.5).12:LO..LO..|
000004C0: 0C 18 01 4C 41 B2 AB 39  30 AA 28 41 28 32 29 AB  |...LA..90.(A(2).|
000004D0: 36 35 29 AC 31 30 AA 41  28 34 29 AB 34 38 AA 28  |65).10.A(4).48.(|
000004E0: 41 28 36 29 AB 36 34 2E  35 29 AD 32 34 00 1D 0D  |A(6).64.5).24...|
000004F0: 22 01 58 4F 24 B2 22 57  20 4C 4F 4E 47 22 3A 4C  |".XO$."W LONG":L|
00000500: 58 B2 B6 28 4C 4F 29 3A  8B 20 4C 4F B3 30 20 A7  |X..(LO):. LO.0 .|
00000510: 20 58 4F 24 B2 22 45 20  4C 4F 4E 47 22 00 4B 0D  | XO$."E LONG".K.|
00000520: 2C 01 58 41 24 B2 22 4E  20 4C 41 54 22 3A 4C 59  |,.XA$."N LAT":LY|
00000530: B2 B6 28 4C 41 29 3A 8B  20 4C 41 B3 30 20 A7 20  |..(LA):. LA.0 . |
00000540: 58 41 24 B2 22 53 20 4C  41 54 22 00 71 0D 36 01  |XA$."S LAT".q.6.|
00000550: 4F 4D B2 28 4C 58 AB B5  28 4C 58 29 29 AC 36 30  |OM.(LX..(LX)).60|
00000560: 3A 41 4D B2 28 4C 59 AB  B5 28 4C 59 29 29 AC 36  |:AM.(LY..(LY)).6|
00000570: 30 00 9A 0D 40 01 99 20  47 31 24 3B 22 20 3D 20  |0...@.. G1$;" = |
00000580: 22 3B B5 28 4C 58 29 3B  22 2F 22 3B A5 41 28 4F  |";.(LX);"/";.A(O|
00000590: 4D 29 3B 22 20 22 3B 58  4F 24 00 BD 0D 4A 01 99  |M);" ";XO$...J..|
000005A0: 20 A3 31 30 29 B5 28 4C  59 29 3B 22 2F 22 3B A5  | .10).(LY);"/";.|
000005B0: 41 28 41 4D 29 3B 22 20  22 3B 58 41 24 00 C3 0D  |A(AM);" ";XA$...|
000005C0: 54 01 8E 00 F2 0D 5E 01  8F 20 43 4F 4F 52 44 49  |T.....^.. COORDI|
000005D0: 4E 41 54 45 2D 54 4F 2D  4C 4F 43 41 54 4F 52 20  |NATE-TO-LOCATOR |
000005E0: 43 4F 4E 56 45 52 53 49  4F 4E 20 52 4F 55 54 49  |CONVERSION ROUTI|
000005F0: 4E 45 00 1D 0E 68 01 99  3A 99 20 22 55 53 45 20  |NE...h..:. "USE |
00000600: 28 2D 29 20 46 4F 52 20  45 41 53 54 20 4C 4F 4E  |(-) FOR EAST LON|
00000610: 47 2C 20 53 4F 55 54 48  20 4C 41 54 22 00 51 0E  |G, SOUTH LAT".Q.|
00000620: 72 01 99 20 22 45 4E 54  45 52 20 54 48 45 20 4C  |r.. "ENTER THE L|
00000630: 4F 4E 47 49 54 55 44 45  20 28 44 45 47 52 45 45  |ONGITUDE (DEGREE|
00000640: 53 2C 4D 49 4E 53 29 20  22 3A 85 20 4C 4F 2C 4F  |S,MINS) ":. LO,O|
00000650: 4D 00 6E 0E 7C 01 4C 32  B2 B6 28 4F 4D 29 3A 8B  |M.n.|.L2..(OM):.|
00000660: 20 4C 4F B3 30 20 A7 20  4F 4D B2 AB 4C 32 00 AA  | LO.0 . OM..L2..|
00000670: 0E 86 01 4C 31 B2 B6 28  4C 4F 29 3A 4C 4F B2 4C  |...L1..(LO):LO.L|
00000680: 4F AA 4F 4D AD 36 30 3A  58 4F 24 B2 22 57 20 4C  |O.OM.60:XO$."W L|
00000690: 4F 4E 47 22 3A 8B 20 4C  4F B3 30 20 A7 20 58 4F  |ONG":. LO.0 . XO|
000006A0: 24 B2 22 45 20 4C 4F 4E  47 22 00 BE 0E 90 01 8B  |$."E LONG"......|
000006B0: 20 4C 31 B1 31 37 39 20  A7 20 31 30 32 30 00 D4  | L1.179 . 1020..|
000006C0: 0E 9A 01 8B 20 4C 32 B1  35 39 2E 39 39 20 A7 20  |.... L2.59.99 . |
000006D0: 31 30 32 30 00 07 0F A4  01 99 20 22 45 4E 54 45  |1020...... "ENTE|
000006E0: 52 20 54 48 45 20 4C 41  54 49 54 55 44 45 20 28  |R THE LATITUDE (|
000006F0: 44 45 47 52 45 45 53 2C  4D 49 4E 53 29 20 22 3A  |DEGREES,MINS) ":|
00000700: 85 20 4C 41 2C 41 4D 00  24 0F AE 01 4C 34 B2 B6  |. LA,AM.$...L4..|
00000710: 28 41 4D 29 3A 8B 20 4C  41 B3 30 20 A7 20 41 4D  |(AM):. LA.0 . AM|
00000720: B2 AB 4C 34 00 5E 0F B8  01 4C 33 B2 B6 28 4C 41  |..L4.^...L3..(LA|
00000730: 29 3A 4C 41 B2 4C 41 AA  41 4D AD 36 30 3A 58 41  |):LA.LA.AM.60:XA|
00000740: 24 B2 22 4E 20 4C 41 54  22 3A 8B 20 4C 41 B3 30  |$."N LAT":. LA.0|
00000750: 20 A7 20 58 41 24 B2 22  53 20 4C 41 54 22 00 71  | . XA$."S LAT".q|
00000760: 0F C2 01 8B 20 4C 33 B1  38 39 20 A7 20 31 30 32  |.... L3.89 . 102|
00000770: 30 00 87 0F CC 01 8B 20  4C 34 B1 35 39 2E 39 39  |0...... L4.59.99|
00000780: 20 A7 20 31 30 32 30 00  97 0F D6 01 48 31 B2 4C  | . 1020.....H1.L|
00000790: 41 3A 47 31 B2 4C 4F 00  BE 0F E0 01 47 34 B2 28  |A:G1.LO.....G4.(|
000007A0: 31 38 30 AB 47 31 29 AD  32 30 3A 43 B2 B5 28 47  |180.G1).20:C..(G|
000007B0: 34 29 3A 4D 31 24 B2 C7  28 43 AA 36 35 29 00 E1  |4):M1$..(C.65)..|
000007C0: 0F EA 01 52 B2 28 47 34  AB 43 29 AC 31 30 3A 43  |...R.(G4.C).10:C|
000007D0: B2 B5 28 52 29 3A 4D 33  24 B2 C7 28 43 AA 34 38  |..(R):M3$..(C.48|
000007E0: 29 00 03 10 F4 01 4D B2  28 52 AB 43 29 AC 32 34  |).....M.(R.C).24|
000007F0: 3A 43 B2 B5 28 4D 29 3A  4D 35 24 B2 C7 28 43 AA  |:C..(M):M5$..(C.|
00000800: 36 35 29 00 29 10 FE 01  48 34 B2 28 48 31 AA 39  |65).)...H4.(H1.9|
00000810: 30 29 AD 31 30 3A 43 B2  B5 28 48 34 29 3A 4D 32  |0).10:C..(H4):M2|
00000820: 24 B2 C7 28 43 AA 36 35  29 00 4C 10 08 02 52 B2  |$..(C.65).L...R.|
00000830: 28 48 34 AB 43 29 AC 31  30 3A 43 B2 B5 28 52 29  |(H4.C).10:C..(R)|
00000840: 3A 4D 34 24 B2 C7 28 43  AA 34 38 29 00 6E 10 12  |:M4$..(C.48).n..|
00000850: 02 4D B2 28 52 AB 43 29  AC 32 34 3A 43 B2 B5 28  |.M.(R.C).24:C..(|
00000860: 4D 29 3A 4D 36 24 B2 C7  28 43 AA 36 35 29 00 8D  |M):M6$..(C.65)..|
00000870: 10 1C 02 41 24 B2 4D 31  24 AA 4D 32 24 AA 4D 33  |...A$.M1$.M2$.M3|
00000880: 24 AA 4D 34 24 AA 4D 35  24 AA 4D 36 24 00 CD 10  |$.M4$.M5$.M6$...|
00000890: 26 02 99 3A 99 20 22 41  54 20 22 3B B5 28 4C 31  |&..:. "AT ";.(L1|
000008A0: 29 3B 22 2D 22 3B A5 41  28 4C 32 29 3B 58 4F 24  |);"-";.A(L2);XO$|
000008B0: 3B 22 20 41 4E 44 20 22  3B B5 28 4C 33 29 3B 22  |;" AND ";.(L3);"|
000008C0: 2D 22 3B A5 41 28 4C 34  29 3B 58 41 24 00 F1 10  |-";.A(L4);XA$...|
000008D0: 30 02 99 20 22 54 48 45  20 47 52 49 44 4C 4F 43  |0.. "THE GRIDLOC|
000008E0: 41 54 4F 52 20 49 53 20  22 3B 41 24 3A 89 20 39  |ATOR IS ";A$:. 9|
000008F0: 30 00 3D 11 3A 02 8F 20  43 4F 4E 54 45 53 54 20  |0.=.:.. CONTEST |
00000900: 53 43 4F 52 49 4E 47 20  52 4F 55 54 49 4E 45 2D  |SCORING ROUTINE-|
00000910: 2D 43 4F 4D 50 55 54 45  53 20 44 58 2C 20 42 45  |-COMPUTES DX, BE|
00000920: 41 4D 20 48 45 41 44 49  4E 47 53 20 41 4E 44 20  |AM HEADINGS AND |
00000930: 50 4F 49 4E 54 20 54 4F  54 41 4C 53 2E 00 80 11  |POINT TOTALS....|
00000940: 44 02 99 20 22 45 4E 54  45 52 20 59 4F 55 52 20  |D.. "ENTER YOUR |
00000950: 4F 57 4E 20 51 54 48 20  4C 4F 43 41 54 4F 52 22  |OWN QTH LOCATOR"|
00000960: 3B 3A 8D 20 32 31 30 3A  48 4F B2 4C 4F AD 52 41  |;:. 210:HO.LO.RA|
00000970: 3A 48 41 B2 4C 41 AD 52  41 3A 48 24 B2 47 31 24  |:HA.LA.RA:H$.G1$|
00000980: 00 AC 11 4E 02 99 3A 99  20 22 45 4E 54 45 52 20  |...N..:. "ENTER |
00000990: 4F 54 48 45 52 20 4C 4F  43 41 54 4F 52 20 28 51  |OTHER LOCATOR (Q|
000009A0: 52 54 20 54 4F 20 45 4E  44 29 22 3B 00 C8 11 58  |RT TO END)";...X|
000009B0: 02 8D 20 32 31 30 3A 4C  4F B2 4C 4F AD 52 41 3A  |.. 210:LO.LO.RA:|
000009C0: 4C 41 B2 4C 41 AD 52 41  00 E1 11 62 02 4C B2 48  |LA.LA.RA...b.L.H|
000009D0: 4F AB 4C 4F 3A 8B 20 4C  B3 B1 30 20 A7 20 36 34  |O.LO:. L..0 . 64|
000009E0: 30 00 FC 11 6C 02 8B 20  48 41 B1 4C 41 20 A7 20  |0...l.. HA.LA . |
000009F0: 41 5A B2 31 38 30 3A 89  20 37 34 30 00 16 12 76  |AZ.180:. 740...v|
00000A00: 02 8B 20 48 41 B3 B2 4C  41 20 A7 20 41 5A B2 30  |.. HA..LA . AZ.0|
00000A10: 3A 89 20 37 34 30 00 2C  12 80 02 8B 20 4C B1 50  |:. 740.,.... L.P|
00000A20: 49 20 A7 20 4C B2 4C AB  32 AC 50 49 00 43 12 8A  |I . L.L.2.PI.C..|
00000A30: 02 8B 20 4C B3 AB 50 49  20 A7 20 4C B2 4C AA 32  |.. L..PI . L.L.2|
00000A40: AC 50 49 00 61 12 94 02  8B 20 BF 28 4C 41 29 B2  |.PI.a.... .(LA).|
00000A50: 30 20 A7 20 41 41 B2 50  49 AD 32 3A 89 20 36 38  |0 . AA.PI.2:. 68|
00000A60: 30 00 84 12 9E 02 41 41  B2 BE 28 4C 29 AC 28 BE  |0.....AA..(L).(.|
00000A70: 28 4C 41 29 AD BF 28 4C  41 29 29 3A 41 41 B2 C1  |(LA)..(LA)):AA..|
00000A80: 28 41 41 29 00 9F 12 A8  02 8B 20 BF 28 41 41 29  |(AA)...... .(AA)|
00000A90: B2 30 20 A7 20 41 5A B2  30 3A 89 20 37 30 30 00  |.0 . AZ.0:. 700.|
00000AA0: D8 12 B2 02 41 5A B2 28  28 BE 28 4C 29 AD BF 28  |....AZ.((.(L)..(|
00000AB0: 4C 29 29 AC BE 28 48 41  AA 41 41 29 29 AD BF 28  |L))..(HA.AA))..(|
00000AC0: 41 41 29 3A 8B 20 41 5A  B3 B1 30 20 A7 20 41 5A  |AA):. AZ..0 . AZ|
00000AD0: B2 C1 28 31 AD 41 5A 29  00 EC 12 BC 02 41 5A B2  |..(1.AZ).....AZ.|
00000AE0: 41 5A AC 52 41 3A 4C B2  4C AC 52 41 00 09 13 C6  |AZ.RA:L.L.RA....|
00000AF0: 02 8B 20 4C B1 30 20 AF  20 41 5A B3 30 20 A7 20  |.. L.0 . AZ.0 . |
00000B00: 41 5A B2 41 5A AA 31 38  30 00 26 13 D0 02 8B 20  |AZ.AZ.180.&.... |
00000B10: 4C B3 30 20 AF 20 41 5A  B1 30 20 A7 20 41 5A B2  |L.0 . AZ.0 . AZ.|
00000B20: 41 5A AA 31 38 30 00 43  13 DA 02 8B 20 4C B3 30  |AZ.180.C.... L.0|
00000B30: 20 AF 20 41 5A B3 30 20  A7 20 41 5A B2 41 5A AA  | . AZ.0 . AZ.AZ.|
00000B40: 33 36 30 00 7B 13 E4 02  41 5A B2 B5 28 41 5A AA  |360.{...AZ..(AZ.|
00000B50: 2E 35 29 3A 44 58 B2 28  BF 28 48 41 29 AC BF 28  |.5):DX.(.(HA)..(|
00000B60: 4C 41 29 29 AA 28 BE 28  48 41 29 AC BE 28 4C 41  |LA)).(.(HA)..(LA|
00000B70: 29 AC BE 28 48 4F AB 4C  4F 29 29 00 8D 13 EE 02  |)..(HO.LO)).....|
00000B80: 8B 20 44 58 B1 31 20 A7  20 44 58 B2 31 00 A9 13  |. DX.1 . DX.1...|
00000B90: F8 02 8B 20 44 58 B3 B2  AB 31 20 A7 20 44 58 B2  |... DX...1 . DX.|
00000BA0: 31 38 30 3A 89 20 38 33  30 00 C0 13 02 03 44 58  |180:. 830.....DX|
00000BB0: B2 BA 28 31 AB 28 44 58  AC 44 58 29 29 AD 44 58  |..(1.(DX.DX)).DX|
00000BC0: 00 D3 13 0C 03 8B 20 48  4F B3 B1 4C 4F 20 A7 20  |...... HO..LO . |
00000BD0: 38 31 30 00 F1 13 16 03  8B 20 48 41 B2 B1 4C 41  |810...... HA..LA|
00000BE0: 20 A7 20 44 58 B2 48 41  AB 4C 41 3A 89 20 38 32  | . DX.HA.LA:. 82|
00000BF0: 30 00 0E 14 20 03 8B 20  48 41 B3 4C 41 20 A7 20  |0... .. HA.LA . |
00000C00: 44 58 B2 4C 41 AB 48 41  3A 89 20 38 32 30 00 1B  |DX.LA.HA:. 820..|
00000C10: 14 2A 03 44 58 B2 C1 28  44 58 29 00 44 14 34 03  |.*.DX..(DX).D.4.|
00000C20: 44 58 B2 44 58 AC 52 41  3A 8B 20 44 58 B3 30 20  |DX.DX.RA:. DX.0 |
00000C30: AF 20 44 58 B1 AB 39 30  20 A7 20 44 58 B2 44 58  |. DX..90 . DX.DX|
00000C40: AA 31 38 30 00 60 14 3E  03 4B 4D B2 44 58 AC 31  |.180.`.>.KM.DX.1|
00000C50: 31 31 2E 30 39 37 3A 4B  4D B2 A5 41 28 4B 4D 29  |11.097:KM..A(KM)|
00000C60: 00 8A 14 48 03 99 20 22  46 52 4F 4D 20 43 45 4E  |...H.. "FROM CEN|
00000C70: 54 45 52 20 4F 46 20 22  3B 48 24 3B 22 20 54 4F  |TER OF ";H$;" TO|
00000C80: 20 22 3B 47 31 24 3B 22  3A 22 00 9A 14 52 03 99  | ";G1$;":"...R..|
00000C90: 20 A3 38 29 4B 4D 3B 4D  4C 24 00 B9 14 5C 03 99  | .8)KM;ML$...\..|
00000CA0: 20 A3 38 29 41 5A 3B 22  20 44 45 47 52 45 45 53  | .8)AZ;" DEGREES|
00000CB0: 20 41 5A 49 4D 55 54 48  22 00 D8 14 66 03 8B 20  | AZIMUTH"...f.. |
00000CC0: 53 43 24 B2 22 50 22 20  A7 20 50 58 B2 B5 28 4B  |SC$."P" . PX..(K|
00000CD0: 4D 29 3A 89 20 38 39 30  00 09 15 70 03 50 58 B2  |M):. 890...p.PX.|
00000CE0: B5 28 28 4B 4D AA 34 39  2E 39 39 29 AD 35 30 29  |.((KM.49.99).50)|
00000CF0: 3A 50 58 B2 50 58 AA 50  58 AB 31 3A 8B 20 50 58  |:PX.PX.PX.1:. PX|
00000D00: B3 31 20 A7 20 50 58 B2  31 00 32 15 7A 03 99 20  |.1 . PX.1.2.z.. |
00000D10: A3 38 29 50 58 3B 22 20  50 54 53 20 46 4F 52 20  |.8)PX;" PTS FOR |
00000D20: 54 48 49 53 20 51 53 4F  22 3A 50 54 B2 50 54 AA  |THIS QSO":PT.PT.|
00000D30: 50 58 00 58 15 84 03 99  20 A3 38 29 50 54 3B 22  |PX.X.... .8)PT;"|
00000D40: 20 54 4F 54 41 4C 20 50  54 53 20 53 4F 20 46 41  | TOTAL PTS SO FA|
00000D50: 52 22 3A 89 20 35 39 30  00 9A 15 8E 03 8F 20 52  |R":. 590...... R|
00000D60: 4F 55 54 49 4E 45 20 54  4F 20 53 45 4C 45 43 54  |OUTINE TO SELECT|
00000D70: 20 53 43 4F 52 49 4E 47  20 42 59 20 44 58 20 4F  | SCORING BY DX O|
00000D80: 52 20 52 53 47 42 2D 54  59 50 45 20 53 43 4F 52  |R RSGB-TYPE SCOR|
00000D90: 49 4E 47 20 52 49 4E 47  53 2E 00 C7 15 98 03 99  |ING RINGS.......|
00000DA0: 3A 99 20 22 57 41 4E 54  20 54 4F 20 55 53 45 20  |:. "WANT TO USE |
00000DB0: 52 53 47 42 20 53 43 4F  52 49 4E 47 20 52 49 4E  |RSGB SCORING RIN|
00000DC0: 47 53 20 28 52 29 22 00  F0 15 A2 03 85 20 22 4F  |GS (R)"...... "O|
00000DD0: 52 20 53 43 4F 52 45 20  31 20 50 4F 49 4E 54 20  |R SCORE 1 POINT |
00000DE0: 50 45 52 20 4B 4D 20 28  50 29 20 22 3B 53 43 24  |PER KM (P) ";SC$|
00000DF0: 00 03 16 AC 03 8B 20 53  43 24 B2 22 50 22 20 A7  |...... SC$."P" .|
00000E00: 20 39 30 00 2D 16 B6 03  8B 20 53 43 24 B3 B1 22  | 90.-.... SC$.."|
00000E10: 52 22 20 A7 20 99 20 22  49 4E 56 41 4C 49 44 20  |R" . . "INVALID |
00000E20: 45 4E 54 52 59 2E 22 3A  89 20 39 32 30 00 57 16  |ENTRY.":. 920.W.|
00000E30: C0 03 99 3A 99 20 22 53  43 4F 52 49 4E 47 20 52  |...:. "SCORING R|
00000E40: 49 4E 47 53 20 41 52 45  20 41 53 20 46 4F 4C 4C  |INGS ARE AS FOLL|
00000E50: 4F 57 53 3A 22 3A 99 00  70 16 CA 03 46 B2 31 3A  |OWS:":..p...F.1:|
00000E60: 81 20 4A B2 30 20 A4 20  32 35 30 20 A9 20 35 30  |. J.0 . 250 . 50|
00000E70: 00 A7 16 D4 03 99 20 46  AA 28 46 AB 31 29 3B 22  |...... F.(F.1);"|
00000E80: 20 50 54 28 53 29 20 49  46 20 44 58 20 3D 20 22  | PT(S) IF DX = "|
00000E90: 3B 4A 3B 22 20 2D 20 22  3B 4A AA 35 30 3B 4D 4C  |;J;" - ";J.50;ML|
00000EA0: 24 3A 46 B2 46 AA 31 00  AF 16 DE 03 82 20 4A 00  |$:F.F.1...... J.|
00000EB0: DF 16 E8 03 99 20 22 41  4E 44 20 50 52 4F 20 52  |..... "AND PRO R|
00000EC0: 41 54 41 20 46 4F 52 20  47 52 45 41 54 45 52 20  |ATA FOR GREATER |
00000ED0: 44 49 53 54 41 4E 43 45  53 22 3A 89 20 39 30 00  |DISTANCES":. 90.|
00000EE0: E5 16 F2 03 80 00 14 17  FC 03 99 20 22 45 4E 54  |........... "ENT|
00000EF0: 52 59 20 49 4E 43 4F 52  52 45 43 54 2E 20 20 4D  |RY INCORRECT.  M|
00000F00: 41 58 49 4D 55 4D 20 43  4F 4F 52 44 49 4E 41 54  |AXIMUM COORDINAT|
00000F10: 45 53 3A 22 00 40 17 06  04 99 20 22 38 39 20 44  |ES:".@.... "89 D|
00000F20: 45 47 20 4C 41 54 49 54  55 44 45 2C 20 31 37 39  |EG LATITUDE, 179|
00000F30: 20 44 45 47 20 4C 4F 4E  47 49 54 55 44 45 2C 22  | DEG LONGITUDE,"|
00000F40: 00 60 17 10 04 99 20 22  41 4E 44 20 35 39 2E 39  |.`.... "AND 59.9|
00000F50: 39 20 4D 49 4E 55 54 45  53 22 3A 89 20 33 36 30  |9 MINUTES":. 360|
00000F60: 00 96 17 1A 04 99 20 22  49 4E 56 41 4C 49 44 20  |...... "INVALID |
00000F70: 47 52 49 44 20 46 4F 52  4D 41 54 2E 20 20 50 4C  |GRID FORMAT.  PL|
00000F80: 45 41 53 45 20 54 52 59  20 41 47 41 49 4E 2E 22  |EASE TRY AGAIN."|
00000F90: 3A 89 20 32 31 30 00 00  00                       |:. 210...       |

..H.... WORLDWIDE QTH LOCATOR CONVERSION
 PROGRAM (DL) - BY KC6A AND N6NB...... U
SES SM5AGM'S CONVERSION FORMULAS; COMPUT
ES DX AND CONTEST POINTS..Z.... --USE MI
NUS SIGN ('-') TO INDICATE EAST LONGITUD
E, SOUTH LATITUDE....(..   IF 0 DEGREES,
 USE +/- WITH MINUTES (EXAMPLE:  -10.1 M
INS)..F.2.PI.3.14159:RA.57.2958:. .A(X).
.(X.100..5).100:PT.0:ML$." KM":SC$."P"..
.<.U(1).82:U(2).82:U(3).57:U(4).57:U(5).
88:U(6).88.N.F.L(1).65:L(2).65:L(3).48:L
(4).48:L(5).65:L(6).65...P.. G(147):. CL
EAR SCREEN COMMAND...Z..:.:. "     QTH L
OCATOR PROGRAM MENU".J.D..:. "1 - CONVER
T LOCATORS TO COORDINATES".V.N.. "2 - CO
NVERT COORDINATES TO LOCATORS". .X.. "3 
- COMPUTE DX AND CONTEST SCORES".J.... "
4 - SELECT CONTEST SCORING SYSTEM"......
 "5 - EXIT"......:. "ENTER 1,2,3,4 OR 5 
";CN... .. CN . 200,360,580,920,1010.9..
.. "INVALID CHOICE.":. 90...... LOCATOR-
TO-COORDINATE CONVERSION ROUTINE; 4 AND 
6-DIGIT LOCATORS OK....... IF 4 DIGITS, 
APPROX. CENTER OF AREA IS ASSUMED....H..
:. "ENTER LOCATOR TO CONVERT":. 210:. 90
...R.. G1$:. G1$."QRT" . .. .... C(G1$).
4 . G1$.G1$."MM".7.... C(G1$)..6 . 1050.
X.... K.1 . 6:A(K).F(J(G1$,K,1)).{.... A
(K).U(K) . A(K).L(K) . 1050...... K.....
LO..180.(A(1).65).20.(A(3).48).2.(A(5).6
4.5).12:LO..LO.....LA..90.(A(2).65).10.A
(4).48.(A(6).64.5).24...".XO$."W LONG":L
X..(LO):. LO.0 . XO$."E LONG".K.,.XA$."N
 LAT":LY..(LA):. LA.0 . XA$."S LAT".Q.6.
OM.(LX..(LX)).60:AM.(LY..(LY)).60...@.. 
G1$;" = ";.(LX);"/";.A(OM);" ";XO$...J..
 .10).(LY);"/";.A(AM);" ";XA$.C.T.....^.
. COORDINATE-TO-LOCATOR CONVERSION ROUTI
NE...H..:. "USE (-) FOR EAST LONG, SOUTH
 LAT".Q.R.. "ENTER THE LONGITUDE (DEGREE
S,MINS) ":. LO,OM.N.|.L2..(OM):. LO.0 . 
OM..L2.....L1..(LO):LO.LO.OM.60:XO$."W L
ONG":. LO.0 . XO$."E LONG"...... L1.179 
. 1020.T.... L2.59.99 . 1020...... "ENTE
R THE LATITUDE (DEGREES,MINS) ":. LA,AM.
$...L4..(AM):. LA.0 . AM..L4.^...L3..(LA
):LA.LA.AM.60:XA$."N LAT":. LA.0 . XA$."
S LAT".Q.B.. L3.89 . 1020...L.. L4.59.99
 . 1020...V.H1.LA:G1.LO.....G4.(180.G1).
20:C..(G4):M1$.G(C.65).....R.(G4.C).10:C
..(R):M3$.G(C.48).....M.(R.C).24:C..(M):
M5$.G(C.65).)...H4.(H1.90).10:C..(H4):M2
$.G(C.65).L...R.(H4.C).10:C..(R):M4$.G(C
.48).N...M.(R.C).24:C..(M):M6$.G(C.65)..
...A$.M1$.M2$.M3$.M4$.M5$.M6$.M.&..:. "A
T ";.(L1);"-";.A(L2);XO$;" AND ";.(L3);"
-";.A(L4);XA$...0.. "THE GRIDLOCATOR IS 
";A$:. 90.=.:.. CONTEST SCORING ROUTINE-
-COMPUTES DX, BEAM HEADINGS AND POINT TO
TALS....D.. "ENTER YOUR OWN QTH LOCATOR"
;:. 210:HO.LO.RA:HA.LA.RA:H$.G1$...N..:.
 "ENTER OTHER LOCATOR (QRT TO END)";.H.X
.. 210:LO.LO.RA:LA.LA.RA...B.L.HO.LO:. L
..0 . 640...L.. HA.LA . AZ.180:. 740...V
.. HA..LA . AZ.0:. 740.,.... L.PI . L.L.
2.PI.C.... L..PI . L.L.2.PI.A.... .(LA).
0 . AA.PI.2:. 680.....AA..(L).(.(LA)..(L
A)):AA.A(AA)...... .(AA).0 . AZ.0:. 700.
X...AZ.((.(L)..(L))..(HA.AA))..(AA):. AZ
..0 . AZ.A(1.AZ).....AZ.AZ.RA:L.L.RA...F
.. L.0 . AZ.0 . AZ.AZ.180.&.P.. L.0 . AZ
.0 . AZ.AZ.180.C.Z.. L.0 . AZ.0 . AZ.AZ.
360.{...AZ..(AZ..5):DX.(.(HA)..(LA)).(.(
HA)..(LA)..(HO.LO))...... DX.1 . DX.1...
... DX...1 . DX.180:. 830.....DX..(1.(DX
.DX)).DX.S.... HO..LO . 810...... HA..LA
 . DX.HA.LA:. 820... .. HA.LA . DX.LA.HA
:. 820...*.DX.A(DX).D.4.DX.DX.RA:. DX.0 
. DX..90 . DX.DX.180.`.>.KM.DX.111.097:K
M..A(KM)...H.. "FROM CENTER OF ";H$;" TO
 ";G1$;":"...R.. .8)KM;ML$...\.. .8)AZ;"
 DEGREES AZIMUTH".X.F.. SC$."P" . PX..(K
M):. 890...P.PX..((KM.49.99).50):PX.PX.P
X.1:. PX.1 . PX.1.2.Z.. .8)PX;" PTS FOR 
THIS QSO":PT.PT.PX.X.... .8)PT;" TOTAL P
TS SO FAR":. 590...... ROUTINE TO SELECT
 SCORING BY DX OR RSGB-TYPE SCORING RING
S..G....:. "WANT TO USE RSGB SCORING RIN
GS (R)"...... "OR SCORE 1 POINT PER KM (
P) ";SC$...... SC$."P" . 90.-.... SC$.."
R" . . "INVALID ENTRY.":. 920.W....:. "S
CORING RINGS ARE AS FOLLOWS:":..P.J.F.1:
. J.0 . 250 . 50...T.. F.(F.1);" PT(S) I
F DX = ";J;" - ";J.50;ML$:F.F.1...... J.
..... "AND PRO RATA FOR GREATER DISTANCE
S":. 90............ "ENTRY INCORRECT.  M
AXIMUM COORDINATES:".@.... "89 DEG LATIT
UDE, 179 DEG LONGITUDE,".`.... "AND 59.9
9 MINUTES":. 360...... "INVALID GRID FOR
MAT.  PLEASE TRY AGAIN.":. 210...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL