DX DISPLAY
FILE INFORMATION
FILENAME(S): DX DISPLAY
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-30 19:36:45
APPEARS ON: 1 disk(s)
FILE HASH
2bfdd12f4164137766c1e0e60c33eaee851e5637502abd2e9538631a0d1d99db
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JBR C64 RADIO MM | DX DISPLAY | PRG | Curtcool, Bo | 25 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 8F 20 4F 4E 2D 4C 49 4E 45 20 |..(.... ON-LINE | 00000010: 48 45 41 44 49 4E 47 2F 44 58 20 43 48 45 43 4B |HEADING/DX CHECK| 00000020: 45 52 20 28 43 36 34 29 00 5F 08 14 00 8F 20 42 |ER (C64)._.... B| 00000030: 59 20 4B 43 36 41 20 41 4E 44 20 4E 36 4E 42 3B |Y KC6A AND N6NB;| 00000040: 28 43 29 31 39 38 33 20 42 59 20 48 41 59 44 45 |(C)1983 BY HAYDE| 00000050: 4E 20 42 4F 4F 4B 20 43 4F 2E 2C 49 4E 43 2E 00 |N BOOK CO.,INC..| 00000060: 6F 08 1E 00 43 4C 53 24 B2 C7 28 31 34 37 29 00 |o...CLS$..(147).| 00000070: 7C 08 20 00 99 20 43 4C 53 24 3A 99 00 A8 08 28 ||. .. CLS$:....(| 00000080: 00 99 20 22 20 20 20 20 20 4F 4E 2D 4C 49 4E 45 |.. " ON-LINE| 00000090: 20 48 45 41 44 49 4E 47 20 41 4E 44 20 44 58 20 | HEADING AND DX | 000000A0: 44 49 53 50 4C 41 59 22 00 D5 08 32 00 99 20 22 |DISPLAY"...2.. "| 000000B0: 20 20 20 20 46 4F 52 20 4D 41 4A 4F 52 20 43 49 | FOR MAJOR CI| 000000C0: 54 49 45 53 2C 20 44 58 43 43 20 43 4F 55 4E 54 |TIES, DXCC COUNT| 000000D0: 52 49 45 53 22 00 05 09 37 00 99 3A 99 20 22 20 |RIES"...7..:. " | 000000E0: 20 20 20 42 45 20 53 55 52 45 20 27 4C 41 54 4C | BE SURE 'LATL| 000000F0: 4F 4E 47 27 20 46 49 4C 45 20 49 53 20 4F 4E 20 |ONG' FILE IS ON | 00000100: 44 49 53 4B 22 00 0F 09 3C 00 99 3A 99 3A 99 00 |DISK"...<..:.:..| 00000110: 36 09 46 00 86 20 50 58 24 28 35 30 30 29 2C 51 |6.F.. PX$(500),Q| 00000120: 24 28 35 30 30 29 2C 41 58 28 35 30 30 29 2C 4F |$(500),AX(500),O| 00000130: 58 28 35 30 30 29 00 51 09 50 00 52 41 44 B2 35 |X(500).Q.P.RAD.5| 00000140: 37 2E 32 39 35 38 3A 50 49 B2 33 2E 31 34 31 35 |7.2958:PI.3.1415| 00000150: 39 00 71 09 64 00 99 20 22 45 4E 54 45 52 20 59 |9.q.d.. "ENTER Y| 00000160: 4F 55 52 20 43 4F 4F 52 44 49 4E 41 54 45 53 3A |OUR COORDINATES:| 00000170: 22 00 9E 09 6E 00 99 20 22 20 20 20 55 53 45 20 |"...n.. " USE | 00000180: 27 2D 27 20 46 4F 52 20 42 4F 54 48 20 44 45 47 |'-' FOR BOTH DEG| 00000190: 52 45 45 53 20 41 4E 44 20 4D 49 4E 53 22 00 CB |REES AND MINS"..| 000001A0: 09 78 00 99 20 22 20 20 20 49 46 20 53 4F 55 54 |.x.. " IF SOUT| 000001B0: 48 20 4C 41 54 49 54 55 44 45 2C 20 45 41 53 54 |H LATITUDE, EAST| 000001C0: 20 4C 4F 4E 47 49 54 55 44 45 22 00 E6 09 82 00 | LONGITUDE".....| 000001D0: 99 3A 85 20 22 4C 41 54 49 54 55 44 45 20 20 22 |.:. "LATITUDE "| 000001E0: 3B 4C 41 2C 41 4D 00 FF 09 8C 00 85 20 22 4C 4F |;LA,AM...... "LO| 000001F0: 4E 47 49 54 55 44 45 20 22 3B 4C 4F 2C 4F 4D 00 |NGITUDE ";LO,OM.| 00000200: 07 0A 96 00 99 3A 99 00 35 0A A0 00 99 20 22 41 |.....:..5.... "A| 00000210: 4C 4C 20 4D 45 41 53 55 52 45 4D 45 4E 54 53 20 |LL MEASUREMENTS | 00000220: 41 52 45 20 54 4F 20 54 48 45 20 43 45 4E 54 45 |ARE TO THE CENTE| 00000230: 52 20 4F 46 22 00 64 0A A2 00 99 20 22 54 48 45 |R OF".d.... "THE| 00000240: 20 43 4F 55 4E 54 52 59 20 57 48 45 4E 20 4E 4F | COUNTRY WHEN NO| 00000250: 20 43 49 54 59 20 49 53 20 53 50 45 43 49 46 49 | CITY IS SPECIFI| 00000260: 45 44 2E 22 00 92 0A A4 00 99 20 22 48 45 41 44 |ED."...... "HEAD| 00000270: 49 4E 47 53 20 41 52 45 20 49 4E 20 44 45 47 52 |INGS ARE IN DEGR| 00000280: 45 45 53 20 45 41 53 54 20 4F 46 20 4E 4F 52 54 |EES EAST OF NORT| 00000290: 48 22 00 BD 0A A6 00 99 20 22 41 4E 44 20 44 49 |H"...... "AND DI| 000002A0: 53 54 41 4E 43 45 53 20 41 52 45 20 49 4E 20 53 |STANCES ARE IN S| 000002B0: 54 41 54 55 54 45 20 4D 49 4C 45 53 22 00 D5 0A |TATUTE MILES"...| 000002C0: AA 00 99 20 22 56 49 41 20 53 48 4F 52 54 20 50 |... "VIA SHORT P| 000002D0: 41 54 48 2E 22 00 DD 0A B4 00 99 3A 99 00 0B 0B |ATH."......:....| 000002E0: BE 00 99 20 22 4E 4F 57 20 52 45 41 44 49 4E 47 |... "NOW READING| 000002F0: 20 49 4E 20 44 41 54 41 20 46 4F 52 20 41 4C 4C | IN DATA FOR ALL| 00000300: 20 43 4F 55 4E 54 52 49 45 53 22 00 2F 0B C8 00 | COUNTRIES"./...| 00000310: 99 20 22 20 20 20 20 20 20 20 20 20 50 4C 45 41 |. " PLEA| 00000320: 53 45 20 53 54 41 4E 44 20 42 59 2E 2E 2E 22 00 |SE STAND BY...".| 00000330: 39 0B D2 00 99 3A 99 3A 99 00 4F 0B DC 00 4C 54 |9....:.:..O...LT| 00000340: B2 28 4C 41 AA 41 4D AD 36 30 29 AD 52 41 44 00 |.(LA.AM.60).RAD.| 00000350: 65 0B E6 00 4C 47 B2 28 4C 4F AA 4F 4D AD 36 30 |e...LG.(LO.OM.60| 00000360: 29 AD 52 41 44 00 7F 0B F0 00 9F 20 38 2C 38 2C |).RAD...... 8,8,| 00000370: 38 2C 22 4C 41 54 4C 4F 4E 47 2C 53 2C 52 22 00 |8,"LATLONG,S,R".| 00000380: 87 0B FA 00 4A B2 31 00 A7 0B 04 01 84 38 2C 50 |....J.1......8,P| 00000390: 58 24 28 4A 29 2C 51 24 28 4A 29 2C 41 58 28 4A |X$(J),Q$(J),AX(J| 000003A0: 29 2C 4F 58 28 4A 29 00 D5 0B 0E 01 8B 20 50 58 |),OX(J)...... PX| 000003B0: 24 28 4A 29 B2 22 5A 5A 5A 22 20 A7 20 50 58 24 |$(J)."ZZZ" . PX$| 000003C0: 28 4A 29 B2 22 22 3A 51 24 28 4A 29 B2 22 22 3A |(J)."":Q$(J)."":| 000003D0: 89 20 33 30 30 00 E5 0B 18 01 4A B2 4A AA 31 3A |. 300.....J.J.1:| 000003E0: 89 20 32 36 30 00 ED 0B 2C 01 A0 20 38 00 F7 0B |. 260...,.. 8...| 000003F0: 36 01 89 20 36 31 30 00 15 0C 7C 01 41 31 B2 41 |6.. 610...|.A1.A| 00000400: 58 28 4A 29 AD 52 41 44 3A 4F 31 B2 4F 58 28 4A |X(J).RAD:O1.OX(J| 00000410: 29 AD 52 41 44 00 2D 0C 86 01 4C B2 4C 47 AB 4F |).RAD.-...L.LG.O| 00000420: 31 3A 8B 20 4C B2 30 20 A7 20 35 37 30 00 43 0C |1:. L.0 . 570.C.| 00000430: 90 01 8B 20 4C B1 50 49 20 A7 20 4C B2 4C AB 32 |... L.PI . L.L.2| 00000440: AC 50 49 00 5A 0C 9A 01 8B 20 4C B3 AB 50 49 20 |.PI.Z.... L..PI | 00000450: A7 20 4C B2 4C AA 32 AC 50 49 00 7D 0C A4 01 41 |. L.L.2.PI.}...A| 00000460: 41 B2 BE 28 4C 29 AC 28 BE 28 41 31 29 AD BF 28 |A..(L).(.(A1)..(| 00000470: 41 31 29 29 3A 41 41 B2 C1 28 41 41 29 00 AC 0C |A1)):AA..(AA)...| 00000480: AE 01 41 5A B2 28 28 BE 28 4C 29 AD BF 28 4C 29 |..AZ.((.(L)..(L)| 00000490: 29 AC BE 28 4C 54 AA 41 41 29 29 AD BF 28 41 41 |)..(LT.AA))..(AA| 000004A0: 29 3A 41 5A B2 C1 28 31 AD 41 5A 29 00 C2 0C B8 |):AZ..(1.AZ)....| 000004B0: 01 41 5A B2 41 5A AC 52 41 44 3A 4C B2 4C AC 52 |.AZ.AZ.RAD:L.L.R| 000004C0: 41 44 00 DF 0C C2 01 8B 20 4C B1 30 20 AF 20 41 |AD...... L.0 . A| 000004D0: 5A B3 30 20 A7 20 41 5A B2 41 5A AA 31 38 30 00 |Z.0 . AZ.AZ.180.| 000004E0: FC 0C CC 01 8B 20 4C B3 30 20 AF 20 41 5A B1 30 |..... L.0 . AZ.0| 000004F0: 20 A7 20 41 5A B2 41 5A AA 31 38 30 00 19 0D D6 | . AZ.AZ.180....| 00000500: 01 8B 20 4C B3 30 20 AF 20 41 5A B3 30 20 A7 20 |.. L.0 . AZ.0 . | 00000510: 41 5A B2 41 5A AA 33 36 30 00 29 0D E0 01 41 5A |AZ.AZ.360.)...AZ| 00000520: B2 B5 28 41 5A AA 2E 35 29 00 55 0D EA 01 44 58 |..(AZ..5).U...DX| 00000530: B2 28 BF 28 4C 54 29 AC BF 28 41 31 29 29 AA 28 |.(.(LT)..(A1)).(| 00000540: BE 28 4C 54 29 AC BE 28 41 31 29 AC BE 28 4C AD |.(LT)..(A1)..(L.| 00000550: 52 41 44 29 29 00 6C 0D F4 01 44 58 B2 BA 28 31 |RAD)).l...DX..(1| 00000560: AB 28 44 58 AC 44 58 29 29 AD 44 58 00 7E 0D FE |.(DX.DX)).DX.~..| 00000570: 01 8B 20 4C 47 B2 4F 31 20 A7 20 35 39 30 00 8B |.. LG.O1 . 590..| 00000580: 0D 08 02 44 58 B2 C1 28 44 58 29 00 B5 0D 12 02 |...DX..(DX).....| 00000590: 44 58 B2 44 58 AC 52 41 44 3A 8B 20 44 58 B3 30 |DX.DX.RAD:. DX.0| 000005A0: 20 AF 20 44 58 B1 AB 39 30 20 A7 20 44 58 B2 44 | . DX..90 . DX.D| 000005B0: 58 AA 31 38 30 00 C7 0D 1C 02 44 58 B2 44 58 AC |X.180.....DX.DX.| 000005C0: 36 39 2E 30 34 36 38 00 D7 0D 26 02 44 58 B2 B5 |69.0468...&.DX..| 000005D0: 28 44 58 AA 2E 35 29 00 DD 0D 30 02 8E 00 F8 0D |(DX..5)...0.....| 000005E0: 3A 02 8B 20 4C 54 B1 41 31 20 A7 20 41 5A B2 31 |:.. LT.A1 . AZ.1| 000005F0: 38 30 3A 89 20 34 38 30 00 11 0E 44 02 8B 20 4C |80:. 480...D.. L| 00000600: 54 B3 41 31 20 A7 20 41 5A B2 30 3A 89 20 34 38 |T.A1 . AZ.0:. 48| 00000610: 30 00 2E 0E 4E 02 8B 20 4C 54 B1 41 31 20 A7 20 |0...N.. LT.A1 . | 00000620: 44 58 B2 4C 54 AB 41 31 3A 89 20 35 33 30 00 4B |DX.LT.A1:. 530.K| 00000630: 0E 58 02 8B 20 4C 54 B3 41 31 20 A7 20 44 58 B2 |.X.. LT.A1 . DX.| 00000640: 41 31 AB 4C 54 3A 89 20 35 33 30 00 56 0E 62 02 |A1.LT:. 530.V.b.| 00000650: 99 20 43 4C 53 24 00 7A 0E 6C 02 99 3A 99 20 A3 |. CLS$.z.l..:. .| 00000660: 38 29 22 4F 50 45 52 41 54 49 4E 47 20 49 4E 53 |8)"OPERATING INS| 00000670: 54 52 55 43 54 49 4F 4E 53 22 00 80 0E 6D 02 99 |TRUCTIONS"...m..| 00000680: 00 A4 0E 6E 02 99 20 A3 35 29 22 45 4E 54 45 52 |...n.. .5)"ENTER| 00000690: 20 44 45 53 49 52 45 44 20 50 52 45 46 49 58 20 | DESIRED PREFIX | 000006A0: 4F 52 2D 22 00 C9 0E 6F 02 99 20 A3 38 29 22 54 |OR-"...o.. .8)"T| 000006B0: 4F 20 44 49 53 50 4C 41 59 20 41 4C 4C 20 41 43 |O DISPLAY ALL AC| 000006C0: 43 45 50 54 41 42 4C 45 22 00 E9 0E 70 02 99 20 |CEPTABLE"...p.. | 000006D0: A3 38 29 22 20 20 20 50 52 45 46 49 58 45 53 20 |.8)" PREFIXES | 000006E0: 54 59 50 45 20 27 3F 27 22 00 12 0F 71 02 99 20 |TYPE '?'"...q.. | 000006F0: A3 38 29 22 2D 54 4F 20 44 49 53 50 4C 41 59 20 |.8)"-TO DISPLAY | 00000700: 50 52 45 46 49 58 45 53 20 53 54 41 52 54 49 4E |PREFIXES STARTIN| 00000710: 47 22 00 37 0F 72 02 99 20 A3 38 29 22 20 20 20 |G".7.r.. .8)" | 00000720: 57 49 54 48 20 41 20 4C 45 54 54 45 52 2C 20 54 |WITH A LETTER, T| 00000730: 59 50 45 20 49 54 22 00 55 0F 73 02 99 20 A3 38 |YPE IT".U.s.. .8| 00000740: 29 22 2D 54 4F 20 45 58 49 54 2C 20 54 59 50 45 |)"-TO EXIT, TYPE| 00000750: 20 27 45 27 22 00 6B 0F 74 02 99 3A 85 20 22 43 | 'E'".k.t..:. "C| 00000760: 4F 4D 4D 41 4E 44 22 3B 50 31 24 00 73 0F 80 02 |OMMAND";P1$.s...| 00000770: 99 3A 99 00 87 0F 94 02 8B 20 50 31 24 B2 22 45 |.:....... P1$."E| 00000780: 22 20 A7 20 38 30 30 00 90 0F 96 02 4C 4E B2 30 |" . 800.....LN.0| 00000790: 00 A4 0F 9E 02 8B 20 50 31 24 B2 22 3F 22 20 A7 |...... P1$."?" .| 000007A0: 20 38 31 30 00 C7 0F A0 02 8B 20 C6 28 C8 28 50 | 810...... .(.(P| 000007B0: 31 24 2C 31 29 29 B3 35 38 20 A7 20 4C B2 33 35 |1$,1)).58 . L.35| 000007C0: 30 3A 89 20 36 38 30 00 EB 0F A2 02 8B 20 C6 28 |0:. 680...... .(| 000007D0: C8 28 50 31 24 2C 31 29 29 B2 B1 38 37 20 A7 20 |.(P1$,1))..87 . | 000007E0: 4C B2 32 35 30 3A 89 20 36 38 30 00 0F 10 A4 02 |L.250:. 680.....| 000007F0: 8B 20 C6 28 C8 28 50 31 24 2C 31 29 29 B2 B1 38 |. .(.(P1$,1))..8| 00000800: 35 20 A7 20 4C B2 31 37 30 3A 89 20 36 38 30 00 |5 . L.170:. 680.| 00000810: 2C 10 A6 02 8B 20 C6 28 C8 28 50 31 24 2C 31 29 |,.... .(.(P1$,1)| 00000820: 29 B2 B1 37 34 20 A7 20 4C B2 38 35 00 3C 10 A8 |)..74 . L.85.<..| 00000830: 02 81 20 4A B2 4C 20 A4 20 35 30 30 00 64 10 AD |.. J.L . 500.d..| 00000840: 02 8B 20 50 31 24 B3 B1 C8 28 50 58 24 28 4A 29 |.. P1$...(PX$(J)| 00000850: 2C C3 28 50 31 24 29 29 20 AF 20 58 B2 31 20 A7 |,.(P1$)) . X.1 .| 00000860: 20 37 38 30 00 86 10 B2 02 8B 20 50 31 24 B3 B1 | 780...... P1$..| 00000870: C8 28 50 58 24 28 4A 29 2C C3 28 50 31 24 29 29 |.(PX$(J),.(P1$))| 00000880: 20 A7 20 37 34 30 00 A7 10 BC 02 99 20 22 46 4F | . 740...... "FO| 00000890: 52 20 22 3B 50 58 24 28 4A 29 3B 22 20 41 54 20 |R ";PX$(J);" AT | 000008A0: 22 3B 51 24 28 4A 29 00 B1 10 C6 02 8D 20 33 38 |";Q$(J)...... 38| 000008B0: 30 00 E1 10 D0 02 99 20 22 41 5A 49 4D 55 54 48 |0...... "AZIMUTH| 000008C0: 3A 20 22 3B 41 5A 3B 22 20 20 44 58 3A 20 20 22 |: ";AZ;" DX: "| 000008D0: 3B 44 58 3B 22 20 53 54 41 54 2E 4D 49 4C 45 53 |;DX;" STAT.MILES| 000008E0: 22 00 F3 10 DA 02 99 3A 58 B2 31 3A 4C 4E B2 4C |"......:X.1:LN.L| 000008F0: 4E AA 33 00 08 11 DF 02 8B 20 4C 4E B2 B1 31 32 |N.3...... LN..12| 00000900: 20 A7 20 8D 20 38 38 30 00 10 11 E4 02 82 20 4A | . . 880...... J| 00000910: 00 3B 11 F8 02 99 20 22 50 52 45 46 49 58 20 4E |.;.... "PREFIX N| 00000920: 4F 54 20 46 4F 55 4E 44 20 49 4E 20 43 4F 55 4E |OT FOUND IN COUN| 00000930: 54 52 49 45 53 20 4C 49 53 54 22 00 67 11 02 03 |TRIES LIST".g...| 00000940: 99 20 22 2E 2E 2E 54 52 59 20 55 53 49 4E 47 20 |. "...TRY USING | 00000950: 50 52 49 4D 41 52 59 20 50 52 45 46 49 58 20 57 |PRIMARY PREFIX W| 00000960: 49 54 48 4F 55 54 22 00 86 11 04 03 99 20 22 20 |ITHOUT"...... " | 00000970: 20 20 41 20 43 41 4C 4C 20 41 52 45 41 20 4E 55 | A CALL AREA NU| 00000980: 4D 45 52 41 4C 22 00 96 11 0C 03 99 3A 99 3A 58 |MERAL"......:.:X| 00000990: B2 30 3A 4C B2 31 00 BD 11 0E 03 8B 20 4C 4E B2 |.0:L.1...... LN.| 000009A0: B1 31 35 20 A7 20 85 20 22 3C 43 52 3E 20 54 4F |.15 . . "<CR> TO| 000009B0: 20 43 4F 4E 54 49 4E 55 45 22 3B CB 24 00 C7 11 | CONTINUE";.$...| 000009C0: 16 03 89 20 36 32 30 00 CD 11 20 03 80 00 D6 11 |... 620... .....| 000009D0: 2A 03 4C 4E B2 30 00 E6 11 34 03 81 20 4A B2 31 |*.LN.0...4.. J.1| 000009E0: 20 A4 20 35 30 30 00 FB 11 3E 03 8B 20 51 24 28 | . 500...>.. Q$(| 000009F0: 4A 29 B2 22 22 20 A7 20 37 38 32 00 07 12 48 03 |J)."" . 782...H.| 00000A00: 4C 4E B2 4C 4E AA 31 00 1C 12 52 03 8B 20 4C 4E |LN.LN.1...R.. LN| 00000A10: B2 B1 32 30 20 A7 20 8D 20 38 38 30 00 32 12 5C |..20 . . 880.2.\| 00000A20: 03 99 20 50 58 24 28 4A 29 3B A3 38 29 51 24 28 |.. PX$(J);.8)Q$(| 00000A30: 4A 29 00 3A 12 66 03 82 20 4A 00 5B 12 70 03 4C |J).:.f.. J.[.p.L| 00000A40: 4E B2 31 3A 85 20 22 3C 43 52 3E 20 54 4F 20 43 |N.1:. "<CR> TO C| 00000A50: 4F 4E 54 49 4E 55 45 22 3B CB 24 00 61 12 72 03 |ONTINUE";.$.a.r.| 00000A60: 8E 00 00 00 |.... |
..(.... ON-LINE HEADING/DX CHECKER (C64) ._.... BY KC6A AND N6NB;(C)1983 BY HAYDE N BOOK CO.,INC..O...CLS$.G(147).|. .. CL S$:....(.. " ON-LINE HEADING AND DX DISPLAY".U.2.. " FOR MAJOR CITIES, DX CC COUNTRIES"...7..:. " BE SURE 'LATL ONG' FILE IS ON DISK"...<..:.:..6.F.. PX $(500),Q$(500),AX(500),OX(500).Q.P.RAD.5 7.2958:PI.3.14159.Q.D.. "ENTER YOUR COOR DINATES:"...N.. " USE '-' FOR BOTH DEG REES AND MINS".K.X.. " IF SOUTH LATITU DE, EAST LONGITUDE"......:. "LATITUDE " ;LA,AM...... "LONGITUDE ";LO,OM......:.. 5. .. "ALL MEASUREMENTS ARE TO THE CENTE R OF".D.... "THE COUNTRY WHEN NO CITY IS SPECIFIED."...... "HEADINGS ARE IN DEGR EES EAST OF NORTH"...... "AND DISTANCES ARE IN STATUTE MILES".U.... "VIA SHORT P ATH."......:....... "NOW READING IN DATA FOR ALL COUNTRIES"./.H.. " PLEA SE STAND BY...".9.R..:.:..O...LT.(LA.AM. 60).RAD.E...LG.(LO.OM.60).RAD..... 8,8, 8,"LATLONG,S,R".....J.1......8,PX$(J),Q$ (J),AX(J),OX(J).U.... PX$(J)."ZZZ" . PX$ (J)."":Q$(J)."":. 300.....J.J.1:. 260... ,. 8...6.. 610...|.A1.AX(J).RAD:O1.OX(J ).RAD.-...L.LG.O1:. L.0 . 570.C.... L.PI . L.L.2.PI.Z.... L..PI . L.L.2.PI.}...A A..(L).(.(A1)..(A1)):AA.A(AA).....AZ.((. (L)..(L))..(LT.AA))..(AA):AZ.A(1.AZ).B.. .AZ.AZ.RAD:L.L.RAD...B.. L.0 . AZ.0 . AZ .AZ.180...L.. L.0 . AZ.0 . AZ.AZ.180...V .. L.0 . AZ.0 . AZ.AZ.360.)...AZ..(AZ..5 ).U...DX.(.(LT)..(A1)).(.(LT)..(A1)..(L. RAD)).L...DX..(1.(DX.DX)).DX.~.... LG.O1 . 590.....DX.A(DX).....DX.DX.RAD:. DX.0 . DX..90 . DX.DX.180.G...DX.DX.69.0468. W.&.DX..(DX..5)...0.....:.. LT.A1 . AZ.1 80:. 480...D.. LT.A1 . AZ.0:. 480...N.. LT.A1 . DX.LT.A1:. 530.K.X.. LT.A1 . DX. A1.LT:. 530.V.B.. CLS$.Z.L..:. .8)"OPERA TING INSTRUCTIONS"...M.....N.. .5)"ENTER DESIRED PREFIX OR-".I.O.. .8)"TO DISPLA Y ALL ACCEPTABLE"...P.. .8)" PREFIXES TYPE '?'"...Q.. .8)"-TO DISPLAY PREFIXES STARTING".7.R.. .8)" WITH A LETTER, T YPE IT".U.S.. .8)"-TO EXIT, TYPE 'E'".K. T..:. "COMMAND";P1$.S....:....... P1$."E " . 800.....LN.0...... P1$."?" . 810.G. .. F(H(P1$,1)).58 . L.350:. 680...... F( H(P1$,1))..87 . L.250:. 680...... F(H(P1 $,1))..85 . L.170:. 680.,.... F(H(P1$,1) )..74 . L.85.<.... J.L . 500.D.... P1$.. H(PX$(J),C(P1$)) . X.1 . 780...... P1$.. H(PX$(J),C(P1$)) . 740...... "FOR ";PX$( J);" AT ";Q$(J)...F.. 380...P.. "AZIMUTH : ";AZ;" DX: ";DX;" STAT.MILES"...Z..: X.1:LN.LN.3...... LN..12 . . 880...... J .;.... "PREFIX NOT FOUND IN COUNTRIES LI ST".G.... "...TRY USING PRIMARY PREFIX W ITHOUT"...... " A CALL AREA NUMERAL".. ....:.:X.0:L.1...... LN..15 . . "<CR> TO CONTINUE";K$.G.... 620.M. ...V.*.LN.0.. .4.. J.1 . 500...>.. Q$(J)."" . 782...H. LN.LN.1...R.. LN..20 . . 880.2.\.. PX$(J );.8)Q$(J).:.F.. J.[.P.LN.1:. "<CR> TO C ONTINUE";K$.A.R.....
> CLICK IMAGE PREVIEW FOR FULL MODAL