ANT MATCHING
FILE INFORMATION
FILENAME(S): ANT MATCHING
FILE TYPE(S): PRG
FILE SIZE: 3K
FIRST SEEN: 2025-11-30 19:36:45
APPEARS ON: 1 disk(s)
FILE HASH
9e00f6403506efd842f5be364710197ed7a7613c2369e673cfb3f34223b39463
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JBR C64 RADIO MM | ANT MATCHING | PRG | Curtcool, Bo | 17 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3D 08 0A 00 8F 20 41 4E 54 45 4E 4E 41 20 |..=.... ANTENNA | 00000010: 4D 41 54 43 48 49 4E 47 2F 54 52 41 4E 53 4D 49 |MATCHING/TRANSMI| 00000020: 53 53 49 4F 4E 20 4C 49 4E 45 20 45 56 41 4C 55 |SSION LINE EVALU| 00000030: 41 54 49 4F 4E 20 50 52 4F 47 52 41 4D 00 76 08 |ATION PROGRAM.v.| 00000040: 14 00 8F 20 42 59 20 4B 43 36 41 20 41 4E 44 20 |... BY KC6A AND | 00000050: 4E 36 4E 42 3B 20 28 43 29 20 31 39 38 33 20 42 |N6NB; (C) 1983 B| 00000060: 59 20 48 41 59 44 45 4E 20 42 4F 4F 4B 20 43 4F |Y HAYDEN BOOK CO| 00000070: 2E 2C 49 4E 43 2E 00 96 08 1E 00 99 20 C7 28 31 |.,INC....... .(1| 00000080: 34 37 29 3A 99 3A 99 3A 8F 20 43 4C 45 41 52 20 |47):.:.:. CLEAR | 00000090: 53 43 52 45 45 4E 00 BE 08 20 00 99 3A 99 20 A3 |SCREEN... ..:. .| 000000A0: 36 29 22 41 4E 54 45 4E 4E 41 20 4D 41 54 43 48 |6)"ANTENNA MATCH| 000000B0: 49 4E 47 20 45 56 41 4C 55 41 54 4F 52 22 00 FA |ING EVALUATOR"..| 000000C0: 08 28 00 8F 20 46 4F 52 20 41 50 50 4C 45 2C 20 |.(.. FOR APPLE, | 000000D0: 56 49 43 20 41 4E 44 20 43 50 2F 4D 3B 20 43 48 |VIC AND CP/M; CH| 000000E0: 41 4E 47 45 20 27 5E 27 20 54 4F 20 27 5B 27 20 |ANGE '^' TO '[' | 000000F0: 46 4F 52 20 54 52 53 2D 38 30 00 05 09 32 00 99 |FOR TRS-80...2..| 00000100: 3A 99 3A 99 20 00 12 09 3C 00 42 4C 24 B2 C7 28 |:.:. ...<.BL$..(| 00000110: 37 29 00 29 09 46 00 96 20 A5 4C 28 58 29 B2 BC |7).).F.. .L(X)..| 00000120: 28 58 29 AD BC 28 31 30 29 00 45 09 50 00 96 20 |(X)..(10).E.P.. | 00000130: A5 41 28 58 29 B2 B5 28 58 AC 31 30 30 AA 2E 35 |.A(X)..(X.100..5| 00000140: 29 AD 31 30 30 00 74 09 5A 00 99 3A 99 20 22 4E |).100.t.Z..:. "N| 00000150: 4F 54 45 3A 20 20 41 4C 4C 20 50 4F 57 45 52 20 |OTE: ALL POWER | 00000160: 4C 45 56 45 4C 53 20 41 52 45 20 49 4E 20 57 41 |LEVELS ARE IN WA| 00000170: 54 54 53 22 00 A1 09 64 00 99 3A 99 20 22 57 48 |TTS"...d..:. "WH| 00000180: 41 54 20 49 53 20 59 4F 55 52 20 46 4F 52 57 41 |AT IS YOUR FORWA| 00000190: 52 44 20 50 4F 57 45 52 20 52 45 41 44 49 4E 47 |RD POWER READING| 000001A0: 22 00 C1 09 66 00 85 20 22 41 54 20 54 48 45 20 |"...f.. "AT THE | 000001B0: 54 52 41 4E 53 4D 49 54 54 45 52 3F 20 22 3B 46 |TRANSMITTER? ";F| 000001C0: 50 00 DB 09 6E 00 8B 20 46 50 B3 B2 30 20 A7 20 |P...n.. FP..0 . | 000001D0: 99 20 42 4C 24 3A 89 20 31 30 30 00 08 0A 78 00 |. BL$:. 100...x.| 000001E0: 99 3A 99 20 22 59 4F 55 27 4C 4C 20 4E 45 45 44 |.:. "YOU'LL NEED| 000001F0: 20 54 4F 20 45 4E 54 45 52 20 54 48 45 20 52 45 | TO ENTER THE RE| 00000200: 46 4C 45 43 54 45 44 22 00 38 0A 7A 00 99 20 22 |FLECTED".8.z.. "| 00000210: 50 4F 57 45 52 20 4F 52 20 54 48 45 20 56 53 57 |POWER OR THE VSW| 00000220: 52 2E 20 20 57 48 49 43 48 20 44 4F 20 59 4F 55 |R. WHICH DO YOU| 00000230: 20 57 49 53 48 2D 2D 22 00 67 0A 82 00 99 20 22 | WISH--".g.... "| 00000240: 52 45 46 4C 45 43 54 45 44 20 50 4F 57 45 52 20 |REFLECTED POWER | 00000250: 28 52 29 20 4F 52 20 56 53 57 52 20 28 56 29 3F |(R) OR VSWR (V)?| 00000260: 20 22 3A 85 20 41 24 00 7A 0A 8C 00 8B 20 41 24 | ":. A$.z.... A$| 00000270: B2 22 52 22 20 A7 20 31 39 30 00 A5 0A 96 00 8B |."R" . 190......| 00000280: 20 41 24 B3 B1 22 56 22 20 A7 20 99 20 42 4C 24 | A$.."V" . . BL$| 00000290: 3B 22 45 4E 54 45 52 20 52 20 4F 52 20 56 22 3A |;"ENTER R OR V":| 000002A0: 89 20 31 33 30 00 DA 0A A0 00 99 3A 99 20 22 57 |. 130......:. "W| 000002B0: 48 41 54 20 49 53 20 54 48 45 20 56 53 57 52 20 |HAT IS THE VSWR | 000002C0: 41 54 20 54 48 45 20 54 52 41 4E 53 4D 49 54 54 |AT THE TRANSMITT| 000002D0: 45 52 3F 20 22 3A 85 20 56 53 00 F3 0A AA 00 8B |ER? ":. VS......| 000002E0: 20 56 53 B3 31 20 A7 20 99 20 42 4C 24 3A 89 20 | VS.1 . . BL$:. | 000002F0: 31 36 30 00 11 0B B4 00 52 50 B2 28 28 28 56 53 |160.....RP.(((VS| 00000300: AB 31 29 AD 28 56 53 AA 31 29 29 AE 32 29 AC 46 |.1).(VS.1)).2).F| 00000310: 50 00 1B 0B B9 00 89 20 32 35 30 00 48 0B BE 00 |P...... 250.H...| 00000320: 99 3A 99 20 22 57 48 41 54 20 49 53 20 54 48 45 |.:. "WHAT IS THE| 00000330: 20 52 45 46 4C 45 43 54 45 44 20 50 4F 57 45 52 | REFLECTED POWER| 00000340: 20 41 54 20 54 48 45 22 00 61 0B C0 00 85 20 22 | AT THE".a.... "| 00000350: 54 52 41 4E 53 4D 49 54 54 45 52 3F 20 22 3B 52 |TRANSMITTER? ";R| 00000360: 50 00 82 0B C8 00 8B 20 52 50 B3 30 20 A7 20 99 |P...... RP.0 . .| 00000370: 20 42 4C 24 3B 22 45 52 52 4F 52 22 3A 89 20 31 | BL$;"ERROR":. 1| 00000380: 39 30 00 BA 0B D2 00 8B 20 52 50 B1 46 50 20 A7 |90...... RP.FP .| 00000390: 20 99 20 42 4C 24 3B 22 4D 55 53 54 20 42 45 20 | . BL$;"MUST BE | 000003A0: 4C 45 53 53 20 54 48 45 4E 20 46 57 44 20 50 4F |LESS THEN FWD PO| 000003B0: 57 45 52 22 3A 89 20 31 39 30 00 D8 0B DC 00 56 |WER":. 190.....V| 000003C0: B2 BA 28 52 50 AD 46 50 29 3A 56 53 B2 28 31 AA |..(RP.FP):VS.(1.| 000003D0: 56 29 AD 28 31 AB 56 29 00 06 0C FA 00 99 3A 99 |V).(1.V)......:.| 000003E0: 20 22 4E 4F 57 20 59 4F 55 20 43 41 4E 20 45 4E | "NOW YOU CAN EN| 000003F0: 54 45 52 20 45 49 54 48 45 52 20 54 48 45 20 54 |TER EITHER THE T| 00000400: 52 41 4E 53 2D 22 00 34 0C FC 00 99 20 22 4D 49 |RANS-".4.... "MI| 00000410: 53 53 49 4F 4E 20 4C 49 4E 45 20 4C 4F 53 53 20 |SSION LINE LOSS | 00000420: 4F 52 20 54 48 45 20 54 59 50 45 20 4F 46 20 4C |OR THE TYPE OF L| 00000430: 49 4E 45 22 00 4D 0C FE 00 99 20 22 41 4E 44 20 |INE".M.... "AND | 00000440: 49 54 53 20 4C 45 4E 47 54 48 2E 20 22 00 82 0C |ITS LENGTH. "...| 00000450: 04 01 99 3A 99 20 22 57 41 4E 54 20 54 48 45 20 |...:. "WANT THE | 00000460: 4C 49 4E 45 20 4C 4F 53 53 20 43 41 4C 43 55 4C |LINE LOSS CALCUL| 00000470: 41 54 45 44 3F 20 28 59 2F 4E 29 20 22 3A 85 20 |ATED? (Y/N) ":. | 00000480: 41 24 00 95 0C 0E 01 8B 20 41 24 B2 22 59 22 20 |A$...... A$."Y" | 00000490: A7 20 33 31 30 00 C8 0C 18 01 99 3A 99 20 22 57 |. 310......:. "W| 000004A0: 48 41 54 20 49 53 20 54 48 45 20 54 52 41 4E 53 |HAT IS THE TRANS| 000004B0: 4D 49 53 53 49 4F 4E 20 4C 49 4E 45 20 4C 4F 53 |MISSION LINE LOS| 000004C0: 53 20 49 4E 20 44 42 22 00 F6 0C 1A 01 99 20 22 |S IN DB"...... "| 000004D0: 4E 4F 54 45 2D 2D 4D 55 53 54 20 42 45 20 4D 41 |NOTE--MUST BE MA| 000004E0: 54 48 45 4D 41 54 49 43 41 4C 4C 59 20 50 4F 53 |THEMATICALLY POS| 000004F0: 53 49 42 4C 45 22 00 1E 0D 1C 01 99 20 22 57 49 |SIBLE"...... "WI| 00000500: 54 48 20 4F 54 48 45 52 20 56 41 4C 55 45 53 20 |TH OTHER VALUES | 00000510: 45 4E 54 45 52 45 44 2E 22 3A 85 20 4C 4C 00 40 |ENTERED.":. LL.@| 00000520: 0D 22 01 8B 20 4C 4C B3 30 20 A7 20 99 20 42 4C |.".. LL.0 . . BL| 00000530: 24 3B 22 45 52 52 4F 52 22 3A 20 89 20 32 38 30 |$;"ERROR": . 280| 00000540: 00 4A 0D 2C 01 89 20 35 30 30 00 6E 0D 36 01 99 |.J.,.. 500.n.6..| 00000550: 3A 85 20 22 54 52 41 4E 53 4D 49 53 53 49 4F 4E |:. "TRANSMISSION| 00000560: 20 4C 49 4E 45 3D 20 52 47 2D 22 3B 43 24 00 90 | LINE= RG-";C$..| 00000570: 0D 3B 01 8F 20 46 49 4E 44 20 54 52 41 4E 53 4D |.;.. FIND TRANSM| 00000580: 49 53 53 49 4F 4E 20 4C 49 4E 45 20 4C 4F 53 53 |ISSION LINE LOSS| 00000590: 00 99 0D 40 01 87 20 4E 4D 00 AA 0D 4A 01 81 20 |...@.. NM...J.. | 000005A0: 4A 20 B2 20 31 20 A4 20 4E 4D 00 B8 0D 54 01 87 |J . 1 . NM...T..| 000005B0: 20 58 24 3A 87 20 4C 4C 00 CA 0D 5E 01 8B 20 43 | X$:. LL...^.. C| 000005C0: 24 B2 58 24 20 A7 20 34 30 30 00 D2 0D 68 01 82 |$.X$ . 400...h..| 000005D0: 20 4A 00 04 0E 86 01 99 20 42 4C 24 3B 22 49 4E | J...... BL$;"IN| 000005E0: 56 41 4C 49 44 20 4C 49 4E 45 20 54 59 50 45 2E |VALID LINE TYPE.| 000005F0: 20 20 54 52 59 20 41 47 41 49 4E 22 3A 8C 3A 89 | TRY AGAIN":.:.| 00000600: 20 32 36 30 00 2F 0E 90 01 99 3A 85 20 22 57 48 | 260./....:. "WH| 00000610: 41 54 20 49 53 20 54 48 45 20 46 52 45 51 55 45 |AT IS THE FREQUE| 00000620: 4E 43 59 20 49 4E 20 4D 48 5A 3F 20 22 3B 46 00 |NCY IN MHZ? ";F.| 00000630: 48 0E 9A 01 8B 20 46 B3 B2 30 20 A7 20 99 20 42 |H.... F..0 . . B| 00000640: 4C 24 3A 89 20 34 30 30 00 74 0E A4 01 99 3A 99 |L$:. 400.t....:.| 00000650: 20 22 48 4F 57 20 4C 4F 4E 47 20 49 53 20 54 48 | "HOW LONG IS TH| 00000660: 45 20 54 52 41 4E 53 4D 49 53 53 49 4F 4E 20 4C |E TRANSMISSION L| 00000670: 49 4E 45 22 00 89 0E A6 01 85 20 22 49 4E 20 46 |INE"...... "IN F| 00000680: 45 45 54 3F 20 22 3B 4C 4E 00 AA 0E AE 01 8B 20 |EET? ";LN...... | 00000690: 4C 4E B3 30 20 A7 20 99 20 42 4C 24 3B 22 45 52 |LN.0 . . BL$;"ER| 000006A0: 52 4F 52 22 3A 89 20 34 32 30 00 C4 0E B8 01 4C |ROR":. 420.....L| 000006B0: 4C B2 4C 4C AC BA 28 46 AD 31 30 30 29 AC 4C 4E |L.LL..(F.100).LN| 000006C0: AD 31 30 30 00 DC 0E F4 01 8F 20 43 41 4C 43 20 |.100...... CALC | 000006D0: 56 53 57 52 20 41 54 20 4C 4F 41 44 00 01 0F F9 |VSWR AT LOAD....| 000006E0: 01 8B 20 56 53 B2 31 20 A7 20 56 4C B2 31 3A 42 |.. VS.1 . VL.1:B| 000006F0: B2 31 30 AE 28 4C 4C AD 31 30 29 3A 89 20 35 33 |.10.(LL.10):. 53| 00000700: 30 00 22 0F FE 01 41 B2 28 56 53 AA 31 29 AD 28 |0."...A.(VS.1).(| 00000710: 56 53 AB 31 29 3A 42 B2 31 30 AE 28 4C 4C AD 31 |VS.1):B.10.(LL.1| 00000720: 30 29 00 44 0F 08 02 56 4C B2 28 41 AA 42 29 AD |0).D...VL.(A.B).| 00000730: 28 41 AB 42 29 3A 8F 20 56 53 57 52 20 41 54 20 |(A.B):. VSWR AT | 00000740: 4C 4F 41 44 00 5D 0F 12 02 8F 20 43 41 4C 43 20 |LOAD.].... CALC | 00000750: 4C 4F 53 53 20 49 4E 20 43 41 42 4C 45 00 71 0F |LOSS IN CABLE.q.| 00000760: 1C 02 43 B2 28 56 4C AB 31 29 AD 28 56 4C AA 31 |..C.(VL.1).(VL.1| 00000770: 29 00 A2 0F 26 02 43 4C B2 31 30 AC A5 4C 28 28 |)...&.CL.10..L((| 00000780: 42 AE 32 AB 43 AE 32 29 AD 28 42 AC 28 31 AB 43 |B.2.C.2).(B.(1.C| 00000790: AE 32 29 29 29 3A 8F 20 43 41 42 4C 45 20 4C 4F |.2))):. CABLE LO| 000007A0: 53 53 00 CD 0F 30 02 46 4C B2 46 50 AD 28 31 30 |SS...0.FL.FP.(10| 000007B0: AE 28 43 4C AD 31 30 29 29 3A 8F 20 46 57 44 20 |.(CL.10)):. FWD | 000007C0: 50 4F 57 45 52 20 41 54 20 4C 4F 41 44 00 FE 0F |POWER AT LOAD...| 000007D0: 3A 02 52 4C B2 28 28 28 56 4C AB 31 29 AD 28 56 |:.RL.(((VL.1).(V| 000007E0: 4C AA 31 29 29 AE 32 29 AC 46 4C 3A 8F 20 52 45 |L.1)).2).FL:. RE| 000007F0: 46 4C 20 50 57 52 20 41 54 20 4C 4F 41 44 00 1B |FL PWR AT LOAD..| 00000800: 10 44 02 50 52 B2 46 4C AB 52 4C 3A 8F 20 50 4F |.D.PR.FL.RL:. PO| 00000810: 57 45 52 20 54 4F 20 4C 4F 41 44 00 41 10 58 02 |WER TO LOAD.A.X.| 00000820: 50 43 B2 46 50 AB 52 50 AB 50 52 3A 8F 20 50 4F |PC.FP.RP.PR:. PO| 00000830: 57 45 52 20 4C 4F 53 54 20 49 4E 20 43 41 42 4C |WER LOST IN CABL| 00000840: 45 00 69 10 62 02 99 3A 85 22 44 4F 20 59 4F 55 |E.i.b..:."DO YOU| 00000850: 20 57 41 4E 54 20 48 41 52 44 43 4F 50 59 20 28 | WANT HARDCOPY (| 00000860: 59 2F 4E 29 22 3B 4C 50 24 00 82 10 6C 02 8B 4C |Y/N)";LP$...l..L| 00000870: 50 24 B3 B1 22 4E 22 A7 20 9F 34 2C 34 3A 89 37 |P$.."N". .4,4:.7| 00000880: 30 30 00 8B 10 76 02 9F 34 2C 33 00 9D 10 BC 02 |00...v..4,3.....| 00000890: 98 34 2C 22 20 22 3A 98 34 2C 22 20 22 00 CD 10 |.4," ":.4," "...| 000008A0: C1 02 98 34 2C 22 46 52 45 51 55 45 4E 43 59 20 |...4,"FREQUENCY | 000008B0: 3D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |= | 000008C0: 20 20 20 20 20 22 3B 46 3B 22 4D 48 5A 00 FD 10 | ";F;"MHZ...| 000008D0: C6 02 98 34 2C 22 56 53 57 52 20 41 54 20 54 52 |...4,"VSWR AT TR| 000008E0: 41 4E 53 4D 49 54 54 45 52 20 3D 20 20 20 20 20 |ANSMITTER = | 000008F0: 20 20 20 20 20 22 3B A5 41 28 56 53 29 00 2D 11 | ";.A(VS).-.| 00000900: D0 02 98 34 2C 22 56 53 57 52 20 41 54 20 4C 4F |...4,"VSWR AT LO| 00000910: 41 44 20 3D 20 20 20 20 20 20 20 20 20 20 20 20 |AD = | 00000920: 20 20 20 20 20 22 3B A5 41 28 56 4C 29 00 5D 11 | ";.A(VL).].| 00000930: DA 02 98 34 2C 22 46 4F 52 57 41 52 44 20 50 57 |...4,"FORWARD PW| 00000940: 52 20 41 54 20 58 4D 54 52 20 3D 20 20 20 20 20 |R AT XMTR = | 00000950: 20 20 20 20 20 22 3B A5 41 28 46 50 29 00 8D 11 | ";.A(FP)...| 00000960: E4 02 98 34 2C 22 52 45 56 45 52 53 45 20 50 57 |...4,"REVERSE PW| 00000970: 52 20 41 54 20 58 4D 54 52 20 3D 20 20 20 20 20 |R AT XMTR = | 00000980: 20 20 20 20 20 22 3B A5 41 28 52 50 29 00 C0 11 | ";.A(RP)...| 00000990: EE 02 98 34 2C 22 54 52 55 45 20 50 4F 57 45 52 |...4,"TRUE POWER| 000009A0: 20 49 4E 54 4F 20 58 4D 53 4E 20 4C 49 4E 45 20 | INTO XMSN LINE | 000009B0: 3D 20 20 20 20 22 3B A5 41 28 46 50 AB 52 50 29 |= ";.A(FP.RP)| 000009C0: 00 F0 11 F8 02 98 34 2C 22 46 4F 52 57 41 52 44 |......4,"FORWARD| 000009D0: 20 50 4F 57 45 52 20 41 54 20 4C 4F 41 44 20 3D | POWER AT LOAD =| 000009E0: 20 20 20 20 20 20 20 20 22 3B A5 41 28 46 4C 29 | ";.A(FL)| 000009F0: 00 20 12 02 03 98 34 2C 22 52 45 46 4C 45 43 54 |. ....4,"REFLECT| 00000A00: 45 44 20 50 57 52 20 46 52 4F 4D 20 4C 4F 41 44 |ED PWR FROM LOAD| 00000A10: 20 3D 20 20 20 20 20 20 22 3B A5 41 28 52 4C 29 | = ";.A(RL)| 00000A20: 00 50 12 0C 03 98 34 2C 22 54 52 55 45 20 50 57 |.P....4,"TRUE PW| 00000A30: 52 20 49 4E 54 4F 20 4C 4F 41 44 20 3D 20 20 20 |R INTO LOAD = | 00000A40: 20 20 20 20 20 20 20 20 22 3B A5 41 28 50 52 29 | ";.A(PR)| 00000A50: 00 86 12 16 03 98 34 2C 22 4C 49 4E 45 20 4C 4F |......4,"LINE LO| 00000A60: 53 53 20 28 49 4E 43 4C 20 56 53 57 52 20 45 46 |SS (INCL VSWR EF| 00000A70: 46 45 43 54 53 29 3D 20 22 3B A5 41 28 43 4C 29 |FECTS)= ";.A(CL)| 00000A80: 3B 22 20 44 42 22 00 AA 12 84 03 8B 4C 50 24 B3 |;" DB"......LP$.| 00000A90: B1 22 4E 22 A7 81 58 B2 31 A4 39 3A 98 34 2C 22 |."N"..X.1.9:.4,"| 00000AA0: 20 22 3A 82 3A 98 34 3A A0 34 00 B1 12 E8 03 80 | ":.:.4:.4......| 00000AB0: 20 00 D4 12 D0 07 8F 20 54 52 41 4E 53 4D 49 53 | ...... TRANSMIS| 00000AC0: 53 49 4F 4E 20 4C 49 4E 45 20 4C 4F 53 53 20 54 |SION LINE LOSS T| 00000AD0: 41 42 4C 45 00 F1 12 DA 07 83 20 31 31 3A 8F 20 |ABLE...... 11:. | 00000AE0: 4E 55 4D 42 45 52 20 4F 46 20 45 4E 54 52 49 45 |NUMBER OF ENTRIE| 00000AF0: 53 00 2E 13 E4 07 8F 20 54 4F 20 45 58 50 41 4E |S...... TO EXPAN| 00000B00: 44 20 54 48 49 53 20 54 41 42 4C 45 2C 20 45 4E |D THIS TABLE, EN| 00000B10: 54 45 52 20 41 20 54 59 50 45 20 4F 46 20 4C 49 |TER A TYPE OF LI| 00000B20: 4E 45 20 46 4F 4C 4C 4F 57 45 44 20 42 59 00 57 |NE FOLLOWED BY.W| 00000B30: 13 E6 07 8F 20 49 54 53 20 4C 4F 53 53 20 49 4E |.... ITS LOSS IN| 00000B40: 20 44 42 2F 31 30 30 20 46 45 45 54 20 41 54 20 | DB/100 FEET AT | 00000B50: 31 30 30 20 4D 48 5A 00 8A 13 EE 07 83 20 22 38 |100 MHZ...... "8| 00000B60: 22 2C 32 2E 33 2C 22 39 22 2C 32 2E 33 2C 22 31 |",2.3,"9",2.3,"1| 00000B70: 31 22 2C 32 2E 33 2C 22 32 31 33 22 2C 32 2E 33 |1",2.3,"213",2.3| 00000B80: 2C 22 32 31 34 22 2C 32 2E 33 00 C0 13 F8 07 83 |,"214",2.3......| 00000B90: 20 22 38 46 4F 41 4D 22 2C 31 2E 37 2C 22 31 37 | "8FOAM",1.7,"17| 00000BA0: 22 2C 2E 38 35 2C 22 31 2F 32 48 41 52 44 22 2C |",.85,"1/2HARD",| 00000BB0: 2E 38 35 2C 22 33 2F 34 48 41 52 44 22 2C 2E 36 |.85,"3/4HARD",.6| 00000BC0: 00 DA 13 02 08 83 20 22 35 38 22 2C 35 2C 22 35 |...... "58",5,"5| 00000BD0: 38 46 4F 41 4D 22 2C 33 2E 35 00 00 00 00 00 00 |8FOAM",3.5......| 00000BE0: 00 00 |.. |
..=.... ANTENNA MATCHING/TRANSMISSION LI
NE EVALUATION PROGRAM.V.... BY KC6A AND
N6NB; (C) 1983 BY HAYDEN BOOK CO.,INC...
.... G(147):.:.:. CLEAR SCREEN... ..:. .
6)"ANTENNA MATCHING EVALUATOR"...(.. FOR
APPLE, VIC AND CP/M; CHANGE '^' TO '['
FOR TRS-80...2..:.:. ...<.BL$.G(7).).F..
.L(X)..(X)..(10).E.P.. .A(X)..(X.100..5
).100.T.Z..:. "NOTE: ALL POWER LEVELS A
RE IN WATTS"...D..:. "WHAT IS YOUR FORWA
RD POWER READING".A.F.. "AT THE TRANSMIT
TER? ";FP...N.. FP..0 . . BL$:. 100...X.
.:. "YOU'LL NEED TO ENTER THE REFLECTED"
.8.Z.. "POWER OR THE VSWR. WHICH DO YOU
WISH--".G.... "REFLECTED POWER (R) OR V
SWR (V)? ":. A$.Z.... A$."R" . 190......
A$.."V" . . BL$;"ENTER R OR V":. 130.Z.
..:. "WHAT IS THE VSWR AT THE TRANSMITT
ER? ":. VS...... VS.1 . . BL$:. 160.....
RP.(((VS.1).(VS.1)).2).FP...... 250.H...
.:. "WHAT IS THE REFLECTED POWER AT THE"
.A.... "TRANSMITTER? ";RP...H.. RP.0 . .
BL$;"ERROR":. 190...R.. RP.FP . . BL$;"
MUST BE LESS THEN FWD POWER":. 190.X...V
..(RP.FP):VS.(1.V).(1.V)......:. "NOW YO
U CAN ENTER EITHER THE TRANS-".4.... "MI
SSION LINE LOSS OR THE TYPE OF LINE".M..
.. "AND ITS LENGTH. "......:. "WANT THE
LINE LOSS CALCULATED? (Y/N) ":. A$......
A$."Y" . 310.H....:. "WHAT IS THE TRANS
MISSION LINE LOSS IN DB"...... "NOTE--MU
ST BE MATHEMATICALLY POSSIBLE"...... "WI
TH OTHER VALUES ENTERED.":. LL.@.".. LL.
0 . . BL$;"ERROR": . 280.J.,.. 500.N.6..
:. "TRANSMISSION LINE= RG-";C$...;.. FIN
D TRANSMISSION LINE LOSS...@.. NM...J..
J . 1 . NM...T.. X$:. LL.J.^.. C$.X$ . 4
00.R.H.. J...... BL$;"INVALID LINE TYPE.
TRY AGAIN":.:. 260./....:. "WHAT IS TH
E FREQUENCY IN MHZ? ";F.H.... F..0 . . B
L$:. 400.T....:. "HOW LONG IS THE TRANSM
ISSION LINE"...... "IN FEET? ";LN......
LN.0 . . BL$;"ERROR":. 420.D...LL.LL..(F
.100).LN.100...... CALC VSWR AT LOAD....
.. VS.1 . VL.1:B.10.(LL.10):. 530."...A.
(VS.1).(VS.1):B.10.(LL.10).D...VL.(A.B).
(A.B):. VSWR AT LOAD.].... CALC LOSS IN
CABLE.Q...C.(VL.1).(VL.1)...&.CL.10..L((
B.2.C.2).(B.(1.C.2))):. CABLE LOSS.M.0.F
L.FP.(10.(CL.10)):. FWD POWER AT LOAD...
:.RL.(((VL.1).(VL.1)).2).FL:. REFL PWR A
T LOAD...D.PR.FL.RL:. POWER TO LOAD.A.X.
PC.FP.RP.PR:. POWER LOST IN CABLE.I.B..:
."DO YOU WANT HARDCOPY (Y/N)";LP$...L..L
P$.."N". .4,4:.700...V..4,3......4," ":.
4," ".M.A..4,"FREQUENCY =
";F;"MHZ...F..4,"VSWR AT TRANSMITTE
R = ";.A(VS).-.P..4,"VSWR AT LO
AD = ";.A(VL).].Z..4,"FO
RWARD PWR AT XMTR = ";.A(FP)...
...4,"REVERSE PWR AT XMTR = ";.
A(RP)......4,"TRUE POWER INTO XMSN LINE
= ";.A(FP.RP)......4,"FORWARD POWER A
T LOAD = ";.A(FL). ....4,"REFLECT
ED PWR FROM LOAD = ";.A(RL).P....4,
"TRUE PWR INTO LOAD = ";.A(PR)
......4,"LINE LOSS (INCL VSWR EFFECTS)=
";.A(CL);" DB"......LP$.."N"..X.1.9:.4,"
":.:.4: 4...... .T.P.. TRANSMISSION LIN
E LOSS TABLE...Z.. 11:. NUMBER OF ENTRIE
S...... TO EXPAND THIS TABLE, ENTER A TY
PE OF LINE FOLLOWED BY.W.... ITS LOSS IN
DB/100 FEET AT 100 MHZ...... "8",2.3,"9
",2.3,"11",2.3,"213",2.3,"214",2.3......
"8FOAM",1.7,"17",.85,"1/2HARD",.85,"3/4
HARD",.6.Z.... "58",5,"58FOAM",3.5......
..
> CLICK IMAGE PREVIEW FOR FULL MODAL