ANTENNA SCALE
FILE INFORMATION
FILENAME(S): ANTENNA SCALE
FILE TYPE(S): PRG
FILE SIZE: 6.4K
FIRST SEEN: 2025-11-30 19:36:45
APPEARS ON: 1 disk(s)
FILE HASH
9205aa1c4515ae6dd702e5b9e75bea97311681ae4a486c93eaf38ba536d8aa94
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JBR C64 RADIO MM | ANTENNA SCALE | PRG | Curtcool, Bo | 17 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2F 08 0A 00 8F 20 50 41 52 41 53 49 54 49 |../.... PARASITI| 00000010: 43 20 41 4E 54 45 4E 4E 41 20 53 43 41 4C 49 4E |C ANTENNA SCALIN| 00000020: 47 20 50 52 4F 47 52 41 4D 20 28 43 36 34 29 00 |G PROGRAM (C64).| 00000030: 6A 08 14 00 8F 20 46 4F 52 20 41 4E 59 20 51 55 |j.... FOR ANY QU| 00000040: 41 44 2C 20 59 41 47 49 20 4F 52 20 51 55 41 47 |AD, YAGI OR QUAG| 00000050: 49 20 4F 46 20 54 57 4F 20 4F 52 20 4D 4F 52 45 |I OF TWO OR MORE| 00000060: 20 45 4C 45 4D 45 4E 54 53 2E 00 A3 08 1E 00 8F | ELEMENTS.......| 00000070: 20 42 59 20 4B 43 36 41 20 41 4E 44 20 4E 36 4E | BY KC6A AND N6N| 00000080: 42 3B 20 28 43 29 20 31 39 38 33 20 42 59 20 48 |B; (C) 1983 BY H| 00000090: 41 59 44 45 4E 20 42 4F 4F 4B 20 43 4F 2E 2C 49 |AYDEN BOOK CO.,I| 000000A0: 4E 43 2E 00 B0 08 1F 00 9F 31 35 2C 38 2C 31 35 |NC.......15,8,15| 000000B0: 00 C8 08 20 00 9F 31 33 2C 34 3A 8F 20 56 49 43 |... ..13,4:. VIC| 000000C0: 20 50 52 49 4E 54 45 52 00 E7 08 28 00 86 20 41 | PRINTER...(.. A| 000000D0: 28 32 35 29 2C 45 28 32 35 29 3A 42 32 B2 30 3A |(25),E(25):B2.0:| 000000E0: 43 4D B2 32 2E 35 34 00 0E 09 32 00 43 4C 53 24 |CM.2.54...2.CLS$| 000000F0: B2 C7 28 31 34 37 29 3A 8F 20 43 4C 45 41 52 2D |..(147):. CLEAR-| 00000100: 53 43 52 45 45 4E 20 43 4F 4D 4D 41 4E 44 00 19 |SCREEN COMMAND..| 00000110: 09 3C 00 99 20 43 4C 53 24 00 40 09 46 00 49 4E |.<.. CLS$.@.F.IN| 00000120: 56 24 B2 C7 28 31 38 29 3A 8F 20 56 49 44 45 4F |V$..(18):. VIDEO| 00000130: 2D 49 4E 56 45 52 53 45 20 43 4F 4D 4D 41 4E 44 |-INVERSE COMMAND| 00000140: 00 67 09 50 00 4E 4D 4C 24 B2 C7 28 31 34 36 29 |.g.P.NML$..(146)| 00000150: 3A 8F 20 56 49 44 45 4F 2D 4E 4F 52 4D 41 4C 20 |:. VIDEO-NORMAL | 00000160: 43 4F 4D 4D 41 4E 44 00 9F 09 76 00 99 20 22 20 |COMMAND...v.. " | 00000170: 22 3B 49 4E 56 24 3B 22 20 20 20 20 20 20 20 20 |";INV$;" | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".| 000001A0: D7 09 78 00 99 20 22 20 22 3B 49 4E 56 24 3B 22 |..x.. " ";INV$;"| 000001B0: 20 20 20 20 20 20 20 41 4E 54 45 4E 4E 41 20 53 | ANTENNA S| 000001C0: 43 41 4C 49 4E 47 20 50 52 4F 47 52 41 4D 20 20 |CALING PROGRAM | 000001D0: 20 20 20 20 20 20 22 00 16 0A 82 00 99 20 22 20 | "...... " | 000001E0: 22 3B 49 4E 56 24 3B 22 20 20 20 20 20 20 20 20 |";INV$;" | 000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":| 00000210: 99 20 4E 4D 4C 24 00 37 0A 8C 00 99 20 22 20 48 |. NML$.7.... " H| 00000220: 45 52 45 20 41 52 45 20 59 4F 55 52 20 4F 50 54 |ERE ARE YOUR OPT| 00000230: 49 4F 4E 53 2D 2D 22 00 63 0A 96 00 99 20 22 20 |IONS--".c.... " | 00000240: 20 20 20 45 4E 54 45 52 20 44 49 4D 45 4E 53 49 | ENTER DIMENSI| 00000250: 4F 4E 53 20 41 4E 44 20 53 43 41 4C 45 20 54 48 |ONS AND SCALE TH| 00000260: 45 4D 22 00 91 0A A0 00 99 20 22 20 20 20 20 20 |EM"...... " | 00000270: 20 20 54 4F 20 41 20 4E 45 57 20 46 52 45 51 55 | TO A NEW FREQU| 00000280: 45 4E 43 59 20 4E 4F 57 20 28 53 43 41 4C 45 29 |ENCY NOW (SCALE)| 00000290: 22 00 BE 0A AA 00 99 20 22 20 20 20 20 43 52 45 |"...... " CRE| 000002A0: 41 54 45 20 41 20 44 41 54 41 20 46 49 4C 45 20 |ATE A DATA FILE | 000002B0: 57 49 54 48 20 53 54 41 4E 44 41 52 44 22 00 EE |WITH STANDARD"..| 000002C0: 0A B4 00 99 20 22 20 20 20 20 20 20 20 44 49 4D |.... " DIM| 000002D0: 45 4E 53 49 4F 4E 53 20 54 4F 20 55 53 45 20 4C |ENSIONS TO USE L| 000002E0: 41 54 45 52 20 28 43 52 45 41 54 45 29 22 00 1D |ATER (CREATE)"..| 000002F0: 0B BE 00 99 20 22 20 20 20 20 52 45 41 44 20 44 |.... " READ D| 00000300: 41 54 41 20 46 52 4F 4D 20 41 20 46 49 4C 45 20 |ATA FROM A FILE | 00000310: 41 4E 44 20 53 43 41 4C 45 20 49 54 22 00 46 0B |AND SCALE IT".F.| 00000320: C8 00 99 20 22 20 20 20 20 20 20 20 54 4F 20 41 |... " TO A| 00000330: 20 4E 45 57 20 46 52 45 51 55 45 4E 43 59 20 28 | NEW FREQUENCY (| 00000340: 52 45 41 44 29 22 00 77 0B DC 00 99 3A 99 20 22 |READ)".w....:. "| 00000350: 20 45 4E 54 45 52 20 27 53 43 41 4C 45 27 2C 27 | ENTER 'SCALE','| 00000360: 43 52 45 41 54 45 27 20 4F 52 20 27 52 45 41 44 |CREATE' OR 'READ| 00000370: 27 22 3A 85 20 4F 24 00 96 0B E6 00 8B 20 4F 24 |'":. O$...... O$| 00000380: B2 22 52 45 41 44 22 20 A7 20 8D 20 31 38 32 30 |."READ" . . 1820| 00000390: 3A 89 20 35 37 30 00 BF 0B F0 00 8B 20 4F 24 B3 |:. 570...... O$.| 000003A0: B1 22 43 52 45 41 54 45 22 20 A7 20 8B 20 4F 24 |."CREATE" . . O$| 000003B0: B3 B1 22 53 43 41 4C 45 22 20 A7 20 31 34 30 00 |.."SCALE" . 140.| 000003C0: D8 0B FA 00 8F 20 44 41 54 41 20 45 4E 54 52 59 |..... DATA ENTRY| 000003D0: 20 53 45 43 54 49 4F 4E 00 F2 0B 04 01 99 20 43 | SECTION...... C| 000003E0: 4C 53 24 3A 8F 20 43 4C 45 41 52 20 53 43 52 45 |LS$:. CLEAR SCRE| 000003F0: 45 4E 00 FA 0B 0E 01 99 3A 99 00 2B 0C 18 01 99 |EN......:..+....| 00000400: 20 22 20 20 20 20 20 20 20 20 20 20 45 4E 54 45 | " ENTE| 00000410: 52 20 54 48 45 20 44 49 4D 45 4E 53 49 4F 4E 53 |R THE DIMENSIONS| 00000420: 20 20 20 20 20 20 20 20 20 20 22 00 5C 0C 22 01 | ".\.".| 00000430: 99 20 22 20 20 20 20 20 20 20 20 46 4F 52 20 54 |. " FOR T| 00000440: 48 45 20 4F 52 49 47 49 4E 41 4C 20 41 4E 54 45 |HE ORIGINAL ANTE| 00000450: 4E 4E 41 20 20 20 20 20 20 20 20 22 00 8D 0C 2C |NNA "...,| 00000460: 01 99 3A 99 3A 99 20 22 48 4F 57 20 4D 41 4E 59 |..:.:. "HOW MANY| 00000470: 20 44 49 52 45 43 54 4F 52 53 20 28 49 46 20 4E | DIRECTORS (IF N| 00000480: 4F 4E 45 2C 27 30 27 29 22 3A 85 20 4E 00 B9 0C |ONE,'0')":. N...| 00000490: 36 01 8B 20 4E B1 32 35 20 A7 20 99 20 22 54 4F |6.. N.25 . . "TO| 000004A0: 4F 20 4D 41 4E 59 2E 20 32 35 20 4D 41 58 49 4D |O MANY. 25 MAXIM| 000004B0: 55 4D 22 3A 89 20 33 30 30 00 C9 0C 40 01 8B 20 |UM":. 300...@.. | 000004C0: 4E B3 31 20 A7 20 33 38 30 00 D7 0C 4A 01 81 20 |N.1 . 380...J.. | 000004D0: 4A B2 31 20 A4 20 4E 00 FE 0C 54 01 99 3A 99 20 |J.1 . N...T..:. | 000004E0: 22 45 4E 54 45 52 20 54 48 45 20 4C 45 4E 47 54 |"ENTER THE LENGT| 000004F0: 48 20 28 49 4E 20 49 4E 43 48 45 53 29 22 00 1A |H (IN INCHES)"..| 00000500: 0D 5E 01 99 20 22 20 20 20 4F 46 20 44 49 52 45 |.^.. " OF DIRE| 00000510: 43 54 4F 52 20 23 22 3B 4A 3B 00 25 0D 68 01 85 |CTOR #";J;.%.h..| 00000520: 20 45 28 4A 29 00 2D 0D 72 01 82 20 4A 00 5C 0D | E(J).-.r.. J.\.| 00000530: 7C 01 99 3A 99 20 22 48 4F 57 20 4C 4F 4E 47 20 ||..:. "HOW LONG | 00000540: 49 53 20 54 48 45 20 44 52 49 56 45 4E 20 45 4C |IS THE DRIVEN EL| 00000550: 45 4D 45 4E 54 22 3A 85 20 44 3A 99 00 88 0D 86 |EMENT":. D:.....| 00000560: 01 99 20 22 48 4F 57 20 4C 4F 4E 47 20 49 53 20 |.. "HOW LONG IS | 00000570: 54 48 45 20 52 45 46 4C 45 43 54 4F 52 22 3A 85 |THE REFLECTOR":.| 00000580: 20 52 3A 99 3A 99 3A 99 00 90 0D 90 01 99 3A 99 | R:.:.:.......:.| 00000590: 00 C4 0D 9A 01 99 20 22 20 20 20 20 20 20 4E 4F |...... " NO| 000005A0: 57 20 45 4E 54 45 52 20 54 48 45 20 45 4C 45 4D |W ENTER THE ELEM| 000005B0: 45 4E 54 20 53 50 41 43 49 4E 47 20 20 20 20 20 |ENT SPACING | 000005C0: 20 22 3A 99 00 EF 0D A4 01 99 3A 99 3A 85 20 22 | ":.......:.:. "| 000005D0: 52 45 46 4C 45 43 54 4F 52 20 54 4F 20 44 52 49 |REFLECTOR TO DRI| 000005E0: 56 45 4E 20 45 4C 45 4D 45 4E 54 22 3B 42 31 00 |VEN ELEMENT";B1.| 000005F0: FF 0D AE 01 8B 20 4E B3 31 20 A7 20 35 30 30 00 |..... N.1 . 500.| 00000600: 2A 0E B8 01 99 3A 85 20 22 44 52 49 56 45 4E 20 |*....:. "DRIVEN | 00000610: 45 4C 45 4D 45 4E 54 20 54 4F 20 44 49 52 45 43 |ELEMENT TO DIREC| 00000620: 54 4F 52 20 23 31 22 3B 42 32 00 3A 0E C2 01 8B |TOR #1";B2.:....| 00000630: 20 4E B3 32 20 A7 20 35 30 30 00 4C 0E CC 01 81 | N.2 . 500.L....| 00000640: 20 4A B2 31 20 A4 20 28 4E AB 31 29 00 77 0E D6 | J.1 . (N.1).w..| 00000650: 01 99 3A 99 20 22 44 49 52 45 43 54 4F 52 20 23 |..:. "DIRECTOR #| 00000660: 22 3B 4A 3B 22 54 4F 20 44 49 52 45 43 54 4F 52 |";J;"TO DIRECTOR| 00000670: 20 23 22 3B 4A AA 31 00 82 0E E0 01 85 20 41 28 | #";J.1...... A(| 00000680: 4A 29 00 8A 0E EA 01 82 20 4A 00 C1 0E F4 01 99 |J)...... J......| 00000690: 3A 99 20 22 57 48 41 54 20 49 53 20 54 48 45 20 |:. "WHAT IS THE | 000006A0: 4F 52 49 47 49 4E 41 4C 20 46 52 45 51 55 45 4E |ORIGINAL FREQUEN| 000006B0: 43 59 20 28 49 4E 20 4D 48 5A 29 22 3A 85 20 46 |CY (IN MHZ)":. F| 000006C0: 31 00 F1 0E FE 01 99 3A 99 20 22 57 48 41 54 20 |1......:. "WHAT | 000006D0: 49 53 20 54 48 45 20 45 4C 45 4D 45 4E 54 20 44 |IS THE ELEMENT D| 000006E0: 49 41 4D 45 54 45 52 20 28 49 4E 43 48 45 53 29 |IAMETER (INCHES)| 000006F0: 22 00 1D 0F 08 02 99 20 22 28 55 53 45 20 54 59 |"...... "(USE TY| 00000700: 50 49 43 41 4C 20 44 49 41 4D 45 54 45 52 20 49 |PICAL DIAMETER I| 00000710: 46 20 49 54 20 56 41 52 49 45 53 29 22 00 26 0F |F IT VARIES)".&.| 00000720: 12 02 85 20 52 31 00 3F 0F 1C 02 8B 20 4F 24 B2 |... R1.?.... O$.| 00000730: 22 43 52 45 41 54 45 22 20 A7 20 31 36 30 30 00 |"CREATE" . 1600.| 00000740: 74 0F 26 02 8F 20 49 4E 46 4F 52 4D 41 54 49 4F |t.&.. INFORMATIO| 00000750: 4E 20 4E 45 45 44 45 44 20 54 4F 20 53 43 41 4C |N NEEDED TO SCAL| 00000760: 45 20 54 4F 20 41 20 4E 45 57 20 46 52 45 51 55 |E TO A NEW FREQU| 00000770: 45 4E 43 59 00 7A 0F 30 02 99 00 B2 0F 3A 02 99 |ENCY.z.0.....:..| 00000780: 3A 99 20 20 22 20 20 20 20 20 20 20 20 4E 4F 57 |:. " NOW| 00000790: 20 44 45 53 43 52 49 42 45 20 54 48 45 20 4E 45 | DESCRIBE THE NE| 000007A0: 57 20 41 4E 54 45 4E 4E 41 20 20 20 20 20 20 20 |W ANTENNA | 000007B0: 20 22 00 E0 0F 44 02 99 3A 85 20 22 45 4E 54 45 | "...D..:. "ENTE| 000007C0: 52 20 54 48 45 20 4E 45 57 20 46 52 45 51 55 45 |R THE NEW FREQUE| 000007D0: 4E 43 59 20 28 49 4E 20 4D 48 5A 29 22 3B 46 32 |NCY (IN MHZ)";F2| 000007E0: 00 FE 0F 4E 02 53 46 B2 46 31 AD 46 32 3A 8F 20 |...N.SF.F1.F2:. | 000007F0: 53 43 41 4C 49 4E 47 20 46 41 43 54 4F 52 00 2D |SCALING FACTOR.-| 00000800: 10 58 02 99 3A 99 20 22 44 4F 20 59 4F 55 20 57 |.X..:. "DO YOU W| 00000810: 41 4E 54 20 54 48 45 20 44 49 4D 45 4E 53 49 4F |ANT THE DIMENSIO| 00000820: 4E 53 20 43 4F 52 52 45 43 54 45 44 22 00 5D 10 |NS CORRECTED".].| 00000830: 62 02 99 20 22 46 4F 52 20 4C 45 4E 47 54 48 2D |b.. "FOR LENGTH-| 00000840: 54 4F 2D 44 49 41 4D 45 54 45 52 20 52 41 54 49 |TO-DIAMETER RATI| 00000850: 4F 20 28 59 2F 4E 29 22 3A 85 20 41 24 00 71 10 |O (Y/N)":. A$.q.| 00000860: 6C 02 8B 20 41 24 B3 B1 22 59 22 20 A7 20 36 35 |l.. A$.."Y" . 65| 00000870: 30 00 9D 10 76 02 99 20 3A 99 20 22 57 48 41 54 |0...v.. :. "WHAT| 00000880: 20 49 53 20 54 48 45 20 4E 45 57 20 45 4C 45 4D | IS THE NEW ELEM| 00000890: 45 4E 54 20 44 49 41 4D 45 54 45 52 22 00 B4 10 |ENT DIAMETER"...| 000008A0: 80 02 85 20 22 28 49 4E 20 49 4E 43 48 45 53 29 |... "(IN INCHES)| 000008B0: 22 3B 52 32 00 CF 10 8A 02 8B 20 53 46 B3 31 2E |";R2...... SF.1.| 000008C0: 32 35 20 AF 20 53 B1 2E 38 20 A7 20 38 33 30 00 |25 . S..8 . 830.| 000008D0: E9 10 94 02 99 20 43 4C 53 24 3A 8F 20 43 4C 45 |..... CLS$:. CLE| 000008E0: 41 52 20 53 43 52 45 45 4E 00 F1 10 9E 02 99 3A |AR SCREEN......:| 000008F0: 99 00 F9 10 A8 02 99 3A 99 00 2A 11 B2 02 99 20 |.......:..*.... | 00000900: 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |"***************| 00000910: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000920: 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 5B 11 BC 02 99 |*********".[....| 00000930: 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | " | 00000940: 20 20 57 41 52 4E 49 4E 47 20 20 20 20 20 20 20 | WARNING | 00000950: 20 20 20 20 20 20 20 20 20 20 22 00 8C 11 C6 02 | ".....| 00000960: 99 20 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. "*************| 00000970: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000980: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 AA 11 D0 |***********"....| 00000990: 02 99 3A 99 3A 99 20 4E 4D 4C 24 3A 8F 20 56 49 |..:.:. NML$:. VI| 000009A0: 44 45 4F 20 4E 4F 52 4D 41 4C 00 D7 11 DA 02 99 |DEO NORMAL......| 000009B0: 20 22 53 43 41 4C 49 4E 47 20 41 4E 54 45 4E 4E | "SCALING ANTENN| 000009C0: 41 53 20 4D 41 54 48 45 4D 41 54 49 43 41 4C 4C |AS MATHEMATICALL| 000009D0: 59 20 49 53 20 41 22 00 04 12 E4 02 99 20 22 54 |Y IS A"...... "T| 000009E0: 52 49 43 4B 59 20 42 55 53 49 4E 45 53 53 2E 20 |RICKY BUSINESS. | 000009F0: 20 54 48 45 52 45 20 41 52 45 20 4E 55 4D 45 52 | THERE ARE NUMER| 00000A00: 4F 55 53 22 00 33 12 EE 02 99 20 22 56 41 52 49 |OUS".3.... "VARI| 00000A10: 41 42 4C 45 53 20 54 48 41 54 20 41 46 46 45 43 |ABLES THAT AFFEC| 00000A20: 54 20 54 48 45 20 4F 55 54 43 4F 4D 45 2E 20 20 |T THE OUTCOME. | 00000A30: 49 46 22 00 62 12 F8 02 99 20 22 54 48 45 20 43 |IF".b.... "THE C| 00000A40: 48 41 4E 47 45 20 49 4E 20 46 52 45 51 55 45 4E |HANGE IN FREQUEN| 00000A50: 43 59 20 49 53 20 53 4D 41 4C 4C 2C 20 54 48 45 |CY IS SMALL, THE| 00000A60: 59 22 00 91 12 02 03 99 20 22 4D 41 59 20 42 45 |Y"...... "MAY BE| 00000A70: 20 49 47 4E 4F 52 45 44 2E 20 20 42 55 54 20 57 | IGNORED. BUT W| 00000A80: 48 45 4E 20 41 20 54 57 4F 2D 54 4F 2D 4F 4E 45 |HEN A TWO-TO-ONE| 00000A90: 22 00 BD 12 0C 03 99 20 22 4F 52 20 47 52 45 41 |"...... "OR GREA| 00000AA0: 54 45 52 20 43 48 41 4E 47 45 20 49 53 20 49 4E |TER CHANGE IS IN| 00000AB0: 56 4F 4C 56 45 44 2C 20 53 4F 4D 45 22 00 ED 12 |VOLVED, SOME"...| 00000AC0: 16 03 99 20 22 45 58 50 45 52 49 4D 45 4E 54 41 |... "EXPERIMENTA| 00000AD0: 54 49 4F 4E 20 57 49 4C 4C 20 42 45 20 4E 45 43 |TION WILL BE NEC| 00000AE0: 45 53 53 41 52 59 2C 20 45 56 45 4E 22 00 1A 13 |ESSARY, EVEN"...| 00000AF0: 20 03 99 20 22 49 46 20 4C 45 4E 47 54 48 2D 54 | .. "IF LENGTH-T| 00000B00: 4F 2D 44 49 41 4D 45 54 45 52 20 52 41 54 49 4F |O-DIAMETER RATIO| 00000B10: 20 49 53 20 54 41 4B 45 4E 22 00 3F 13 2A 03 99 | IS TAKEN".?.*..| 00000B20: 20 22 49 4E 54 4F 20 41 43 43 4F 55 4E 54 20 49 | "INTO ACCOUNT I| 00000B30: 4E 20 54 48 45 20 53 43 41 4C 49 4E 47 2E 22 00 |N THE SCALING.".| 00000B40: 49 13 34 03 99 3A 99 3A 99 00 81 13 3E 03 99 3A |I.4..:.:....>..:| 00000B50: 99 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 41 |. "DO YOU WANT A| 00000B60: 20 48 41 52 44 20 43 4F 50 59 20 50 52 49 4E 54 | HARD COPY PRINT| 00000B70: 4F 55 54 3F 20 28 59 2F 4E 29 22 3A 85 20 4C 50 |OUT? (Y/N)":. LP| 00000B80: 24 00 8D 13 48 03 58 B2 52 32 AD 52 31 00 A5 13 |$...H.X.R2.R1...| 00000B90: 52 03 4C 31 B2 44 AD 28 2E 39 37 35 AB 2E 36 AC |R.L1.D.(.975..6.| 00000BA0: 52 31 AD 44 29 00 B2 13 5C 03 4C 32 B2 4C 31 AC |R1.D)...\.L2.L1.| 00000BB0: 53 46 00 CC 13 66 03 4C 33 B2 4C 32 AC 28 2E 39 |SF...f.L3.L2.(.9| 00000BC0: 37 35 AB 2E 36 AC 52 32 AD 4C 32 29 00 D7 13 70 |75..6.R2.L2)...p| 00000BD0: 03 53 B2 4C 33 AD 44 00 EC 13 7A 03 8B 20 41 24 |.S.L3.D...z.. A$| 00000BE0: B3 B1 22 59 22 20 A7 20 53 B2 53 46 00 12 14 84 |.."Y" . S.SF....| 00000BF0: 03 8F 20 44 49 53 50 4C 41 59 20 41 4E 44 20 50 |.. DISPLAY AND P| 00000C00: 52 49 4E 54 4F 55 54 20 4F 46 20 52 45 53 55 4C |RINTOUT OF RESUL| 00000C10: 54 53 00 2C 14 8E 03 99 20 43 4C 53 24 3A 8F 20 |TS.,.... CLS$:. | 00000C20: 43 4C 45 41 52 20 53 43 52 45 45 4E 00 34 14 98 |CLEAR SCREEN.4..| 00000C30: 03 99 3A 99 00 50 14 A2 03 96 20 A5 41 28 58 29 |..:..P.... .A(X)| 00000C40: B2 B5 28 58 AC 31 30 30 AA 2E 35 29 AD 31 30 30 |..(X.100..5).100| 00000C50: 00 6E 14 A4 03 96 20 A5 42 28 58 29 B2 B5 28 53 |.n.... .B(X)..(S| 00000C60: AC 58 AC 31 30 30 AA 2E 35 29 AD 31 30 30 00 8F |.X.100..5).100..| 00000C70: 14 A6 03 96 20 A5 43 28 58 29 B2 B5 28 43 4D AC |.... .C(X)..(CM.| 00000C80: 53 AC 58 AC 31 30 30 AA 2E 35 29 AD 31 30 30 00 |S.X.100..5).100.| 00000C90: AE 14 AC 03 96 20 A5 44 28 58 29 B2 B5 28 53 46 |..... .D(X)..(SF| 00000CA0: AC 58 AC 31 30 30 AA 2E 35 29 AD 31 30 30 00 CE |.X.100..5).100..| 00000CB0: 14 C0 03 8D 20 31 30 32 30 3A 8F 20 56 49 44 45 |.... 1020:. VIDE| 00000CC0: 4F 20 44 41 54 41 20 44 49 53 50 4C 41 59 00 E4 |O DATA DISPLAY..| 00000CD0: 14 CA 03 8B 20 4C 50 24 B3 B1 22 59 22 20 A7 20 |.... LP$.."Y" . | 00000CE0: 31 37 38 30 00 05 15 DE 03 8D 20 31 33 34 30 3A |1780...... 1340:| 00000CF0: 8F 20 50 52 49 4E 54 49 4E 47 20 53 55 42 52 4F |. PRINTING SUBRO| 00000D00: 55 54 49 4E 45 00 10 15 E8 03 89 20 31 37 38 30 |UTINE...... 1780| 00000D10: 00 24 15 F2 03 8F 20 56 49 44 45 4F 20 44 49 53 |.$.... VIDEO DIS| 00000D20: 50 4C 41 59 00 55 15 FC 03 99 20 22 41 4E 54 45 |PLAY.U.... "ANTE| 00000D30: 4E 4E 41 20 53 43 41 4C 49 4E 47 20 46 52 4F 4D |NNA SCALING FROM| 00000D40: 20 22 3B 46 31 3B 22 20 54 4F 20 22 3B 46 32 3B | ";F1;" TO ";F2;| 00000D50: 22 4D 48 5A 22 00 5B 15 06 04 99 00 8A 15 10 04 |"MHZ".[.........| 00000D60: 8B 20 4F 24 B2 22 52 45 41 44 22 20 A7 20 99 20 |. O$."READ" . . | 00000D70: A3 39 29 22 41 4E 54 45 4E 4E 41 20 54 59 50 45 |.9)"ANTENNA TYPE| 00000D80: 20 22 3B 46 49 4C 45 24 3A 99 00 BC 15 1A 04 46 | ";FILE$:......F| 00000D90: 31 24 B2 22 45 4C 45 20 20 4F 52 49 47 20 4C 28 |1$."ELE ORIG L(| 00000DA0: 49 4E 29 20 20 20 4E 45 57 20 4C 28 49 4E 29 20 |IN) NEW L(IN) | 00000DB0: 20 20 4E 45 57 20 4C 28 43 4D 29 22 00 C8 15 38 | NEW L(CM)"...8| 00000DC0: 04 99 20 46 31 24 3A 99 00 ED 15 42 04 99 20 22 |.. F1$:....B.. "| 00000DD0: 52 45 46 4C 22 3B A6 31 30 AB C3 28 C4 28 A5 41 |REFL";.10..(.(.A| 00000DE0: 28 52 29 29 29 29 3B A5 41 28 52 29 3B 00 21 16 |(R))));.A(R);.!.| 00000DF0: 44 04 99 20 A6 31 32 AB C3 28 C4 28 A5 42 28 52 |D.. .12..(.(.B(R| 00000E00: 29 29 29 29 3B A5 42 28 52 29 3B A6 31 31 AB C3 |))));.B(R);.11..| 00000E10: 28 C4 28 A5 43 28 52 29 29 29 29 3B A5 43 28 52 |(.(.C(R))));.C(R| 00000E20: 29 00 55 16 4C 04 99 20 22 44 45 22 3B A6 31 32 |).U.L.. "DE";.12| 00000E30: AB C3 28 C4 28 A5 41 28 44 29 29 29 29 3B A5 41 |..(.(.A(D))));.A| 00000E40: 28 44 29 3B A6 31 32 AB C3 28 C4 28 A5 42 28 44 |(D);.12..(.(.B(D| 00000E50: 29 29 29 29 3B 00 78 16 4E 04 99 20 A5 42 28 44 |))));.x.N.. .B(D| 00000E60: 29 3B A6 31 31 AB C3 28 C4 28 A5 43 28 44 29 29 |);.11..(.(.C(D))| 00000E70: 29 29 3B A5 43 28 44 29 00 89 16 56 04 8B 20 4E |));.C(D)...V.. N| 00000E80: B3 31 20 A7 20 31 31 35 30 00 97 16 60 04 81 20 |.1 . 1150...`.. | 00000E90: 4A B2 31 20 A4 20 4E 00 C1 16 6A 04 99 20 22 44 |J.1 . N...j.. "D| 00000EA0: 49 52 22 3B A6 31 31 AB C3 28 C4 28 A5 41 28 45 |IR";.11..(.(.A(E| 00000EB0: 28 4A 29 29 29 29 29 3B A5 41 28 45 28 4A 29 29 |(J)))));.A(E(J))| 00000EC0: 3B 00 E5 16 6C 04 99 20 A6 31 32 AB C3 28 C4 28 |;...l.. .12..(.(| 00000ED0: A5 42 28 45 28 4A 29 29 29 29 29 3B A5 42 28 45 |.B(E(J)))));.B(E| 00000EE0: 28 4A 29 29 3B 00 08 17 6E 04 99 20 A6 31 31 AB |(J));...n.. .11.| 00000EF0: C3 28 C4 28 A5 43 28 45 28 4A 29 29 29 29 29 3B |.(.(.C(E(J)))));| 00000F00: A5 43 28 45 28 4A 29 29 00 10 17 74 04 82 20 4A |.C(E(J))...t.. J| 00000F10: 00 34 17 79 04 41 41 24 B2 22 22 3A 85 20 22 3C |.4.y.AA$."":. "<| 00000F20: 43 52 3E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |CR> TO CONTINUE"| 00000F30: 3B 41 41 24 00 3C 17 7E 04 99 3A 99 00 65 17 88 |;AA$.<.~..:..e..| 00000F40: 04 99 20 A3 37 29 20 22 49 4E 54 45 52 2D 45 4C |.. .7) "INTER-EL| 00000F50: 45 4D 45 4E 54 20 53 50 41 43 49 4E 47 20 44 41 |EMENT SPACING DA| 00000F60: 54 41 22 3A 99 00 97 17 92 04 46 34 24 B2 22 45 |TA":......F4$."E| 00000F70: 4C 45 20 20 20 20 20 4F 52 49 47 20 53 50 41 43 |LE ORIG SPAC| 00000F80: 49 4E 47 20 28 49 4E 29 20 20 20 20 20 20 4E 45 |ING (IN) NE| 00000F90: 57 20 28 49 4E 29 22 00 A3 17 B0 04 99 20 46 34 |W (IN)"...... F4| 00000FA0: 24 3A 99 00 CC 17 BA 04 99 20 22 52 45 46 2D 44 |$:....... "REF-D| 00000FB0: 45 22 3B A6 31 35 AB C3 28 C4 28 A5 41 28 42 31 |E";.15..(.(.A(B1| 00000FC0: 29 29 29 29 3B A5 41 28 42 31 29 3B 00 EB 17 BC |))));.A(B1);....| 00000FD0: 04 99 20 A6 31 36 AB C3 28 C4 28 A5 44 28 42 31 |.. .16..(.(.D(B1| 00000FE0: 29 29 29 29 3B A5 44 28 42 31 29 00 FC 17 C4 04 |))));.D(B1).....| 00000FF0: 8B 20 4E B3 31 20 A7 20 31 32 38 30 00 24 18 CE |. N.1 . 1280.$..| 00001000: 04 99 20 22 44 45 2D 44 31 22 3B A6 31 36 AB C3 |.. "DE-D1";.16..| 00001010: 28 C4 28 A5 41 28 42 32 29 29 29 29 3B A5 41 28 |(.(.A(B2))));.A(| 00001020: 42 32 29 3B 00 43 18 D0 04 99 20 A6 31 36 AB C3 |B2);.C.... .16..| 00001030: 28 C4 28 A5 44 28 42 32 29 29 29 29 3B A5 44 28 |(.(.D(B2))));.D(| 00001040: 42 32 29 00 54 18 D8 04 8B 20 4E B3 32 20 A7 20 |B2).T.... N.2 . | 00001050: 31 32 38 30 00 64 18 E2 04 81 20 4A B2 31 20 A4 |1280.d.... J.1 .| 00001060: 20 4E AB 31 00 97 18 EC 04 99 20 22 44 22 3B 4A | N.1...... "D";J| 00001070: 3B 22 2D 44 22 3B 4A AA 31 3B A6 31 32 AB C3 28 |;"-D";J.1;.12..(| 00001080: C4 28 A5 41 28 41 28 4A 29 29 29 29 29 3B A5 41 |.(.A(A(J)))));.A| 00001090: 28 41 28 4A 29 29 3B 00 BA 18 EE 04 99 20 A6 31 |(A(J));...... .1| 000010A0: 36 AB C3 28 C4 28 A5 44 28 41 28 4A 29 29 29 29 |6..(.(.D(A(J))))| 000010B0: 29 3B A5 44 28 41 28 4A 29 29 00 C2 18 F6 04 82 |);.D(A(J))......| 000010C0: 20 4A 00 CA 18 00 05 99 3A 99 00 00 19 0A 05 8B | J......:.......| 000010D0: 20 41 24 B2 22 59 22 20 A7 20 99 20 22 4C 45 4E | A$."Y" . . "LEN| 000010E0: 47 54 48 2D 54 4F 2D 44 49 41 4D 45 54 45 52 20 |GTH-TO-DIAMETER | 000010F0: 52 41 54 49 4F 20 43 4F 52 52 45 43 54 45 44 22 |RATIO CORRECTED"| 00001100: 00 32 19 14 05 99 3A 99 20 22 4E 4F 54 45 3A 20 |.2....:. "NOTE: | 00001110: 4D 41 54 48 45 4D 41 54 49 43 41 4C 4C 59 20 44 |MATHEMATICALLY D| 00001120: 45 52 49 56 45 44 20 44 49 4D 45 4E 53 49 4F 4E |ERIVED DIMENSION| 00001130: 53 22 00 60 19 1E 05 99 20 22 4D 41 59 20 52 45 |S".`.... "MAY RE| 00001140: 51 55 49 52 45 20 46 49 4E 45 20 54 55 4E 49 4E |QUIRE FINE TUNIN| 00001150: 47 20 49 4E 20 54 48 45 20 46 49 45 4C 44 2E 22 |G IN THE FIELD."| 00001160: 00 66 19 28 05 8E 00 7F 19 32 05 8F 20 48 41 52 |.f.(.....2.. HAR| 00001170: 44 20 43 4F 50 59 20 50 52 49 4E 54 4F 55 54 00 |D COPY PRINTOUT.| 00001180: B9 19 3C 05 98 31 33 2C 22 22 3B A6 31 34 29 22 |..<..13,"";.14)"| 00001190: 41 4E 54 45 4E 4E 41 20 53 43 41 4C 49 4E 47 20 |ANTENNA SCALING | 000011A0: 46 52 4F 4D 20 22 3B 46 31 3B 22 20 54 4F 20 22 |FROM ";F1;" TO "| 000011B0: 3B 46 32 3B 22 4D 48 5A 22 00 CB 19 46 05 98 31 |;F2;"MHZ"...F..1| 000011C0: 33 2C 22 22 3A 98 31 33 2C 22 22 00 05 1A 50 05 |3,"":.13,""...P.| 000011D0: 8B 20 4F 24 B2 22 52 45 41 44 22 20 A7 20 98 31 |. O$."READ" . .1| 000011E0: 33 2C 22 22 3B A6 32 32 29 22 41 4E 54 45 4E 4E |3,"";.22)"ANTENN| 000011F0: 41 20 54 59 50 45 20 22 3B 46 49 4C 45 24 3A 98 |A TYPE ";FILE$:.| 00001200: 31 33 2C 22 22 00 18 1A 5A 05 98 31 33 2C 46 31 |13,""...Z..13,F1| 00001210: 24 3A 98 31 33 2C 22 22 00 3F 1A 64 05 98 31 33 |$:.13,"".?.d..13| 00001220: 2C 22 52 45 46 4C 22 3B A6 31 30 AB C3 28 C4 28 |,"REFL";.10..(.(| 00001230: A5 41 28 52 29 29 29 29 3B A5 41 28 52 29 3B 00 |.A(R))));.A(R);.| 00001240: 62 1A 66 05 98 31 33 2C 22 22 3B A6 31 32 AB C3 |b.f..13,"";.12..| 00001250: 28 C4 28 A5 42 28 52 29 29 29 29 3B A5 42 28 52 |(.(.B(R))));.B(R| 00001260: 29 3B 00 84 1A 68 05 98 31 33 2C 22 22 3B A6 31 |);...h..13,"";.1| 00001270: 32 AB C3 28 C4 28 A5 43 28 52 29 29 29 29 3B A5 |2..(.(.C(R))));.| 00001280: 43 28 52 29 00 A9 1A 6E 05 98 31 33 2C 22 44 45 |C(R)...n..13,"DE| 00001290: 22 3B A6 31 32 AB C3 28 C4 28 A5 41 28 44 29 29 |";.12..(.(.A(D))| 000012A0: 29 29 3B A5 41 28 44 29 3B 00 CC 1A 70 05 98 31 |));.A(D);...p..1| 000012B0: 33 2C 22 22 3B A6 31 32 AB C3 28 C4 28 A5 42 28 |3,"";.12..(.(.B(| 000012C0: 44 29 29 29 29 3B A5 42 28 44 29 3B 00 EE 1A 72 |D))));.B(D);...r| 000012D0: 05 98 31 33 2C 22 22 3B A6 31 32 AB C3 28 C4 28 |..13,"";.12..(.(| 000012E0: A5 43 28 44 29 29 29 29 3B A5 43 28 44 29 00 FF |.C(D))));.C(D)..| 000012F0: 1A 78 05 8B 20 4E B3 31 20 A7 20 31 34 34 30 00 |.x.. N.1 . 1440.| 00001300: 0D 1B 82 05 81 20 4A B2 31 20 A4 20 4E 00 39 1B |..... J.1 . N.9.| 00001310: 8C 05 98 31 33 2C 22 44 49 52 22 3B A6 31 31 AB |...13,"DIR";.11.| 00001320: C3 28 C4 28 A5 41 28 45 28 4A 29 29 29 29 29 3B |.(.(.A(E(J)))));| 00001330: A5 41 28 45 28 4A 29 29 3B 00 62 1B 8E 05 98 31 |.A(E(J));.b....1| 00001340: 33 2C 22 22 3B A6 31 32 AB C3 28 C4 28 A5 42 28 |3,"";.12..(.(.B(| 00001350: 45 28 4A 29 29 29 29 29 3B A5 42 28 45 28 4A 29 |E(J)))));.B(E(J)| 00001360: 29 3B 00 8A 1B 90 05 98 31 33 2C 22 22 3B A6 31 |);......13,"";.1| 00001370: 32 AB C3 28 C4 28 A5 43 28 45 28 4A 29 29 29 29 |2..(.(.C(E(J))))| 00001380: 29 3B A5 43 28 45 28 4A 29 29 00 92 1B 96 05 82 |);.C(E(J))......| 00001390: 20 4A 00 AB 1B A0 05 98 31 33 2C 22 22 3A 98 31 | J......13,"":.1| 000013A0: 33 2C 22 22 3A 98 31 33 2C 22 22 00 DF 1B AA 05 |3,"":.13,"".....| 000013B0: 98 31 33 2C 22 22 3B A6 31 39 29 20 22 49 4E 54 |.13,"";.19) "INT| 000013C0: 45 52 2D 45 4C 45 4D 45 4E 54 20 53 50 41 43 49 |ER-ELEMENT SPACI| 000013D0: 4E 47 20 44 41 54 41 22 3A 98 31 33 2C 22 22 00 |NG DATA":.13,"".| 000013E0: F2 1B B4 05 98 31 33 2C 46 34 24 3A 98 31 33 2C |.....13,F4$:.13,| 000013F0: 22 22 00 1D 1C BE 05 98 31 33 2C 22 52 45 46 2D |""......13,"REF-| 00001400: 44 45 22 3B A6 31 35 AB C3 28 C4 28 A5 41 28 42 |DE";.15..(.(.A(B| 00001410: 31 29 29 29 29 3B A5 41 28 42 31 29 3B 00 41 1C |1))));.A(B1);.A.| 00001420: C0 05 98 31 33 2C 22 22 3B A6 31 36 AB C3 28 C4 |...13,"";.16..(.| 00001430: 28 A5 44 28 42 31 29 29 29 29 3B A5 44 28 42 31 |(.D(B1))));.D(B1| 00001440: 29 00 52 1C C8 05 8B 20 4E B3 31 20 A7 20 31 35 |).R.... N.1 . 15| 00001450: 34 30 00 7C 1C D2 05 98 31 33 2C 22 44 45 2D 44 |40.|....13,"DE-D| 00001460: 31 22 3B A6 31 36 AB C3 28 C4 28 A5 41 28 42 32 |1";.16..(.(.A(B2| 00001470: 29 29 29 29 3B A5 41 28 42 32 29 3B 00 A0 1C D4 |))));.A(B2);....| 00001480: 05 98 31 33 2C 22 22 3B A6 31 36 AB C3 28 C4 28 |..13,"";.16..(.(| 00001490: A5 44 28 42 32 29 29 29 29 3B A5 44 28 42 32 29 |.D(B2))));.D(B2)| 000014A0: 00 B1 1C DC 05 8B 20 4E B3 32 20 A7 20 31 35 34 |...... N.2 . 154| 000014B0: 30 00 C1 1C E6 05 81 20 4A B2 31 20 A4 20 4E AB |0...... J.1 . N.| 000014C0: 31 00 F6 1C F0 05 98 31 33 2C 22 44 22 3B 4A 3B |1......13,"D";J;| 000014D0: 22 2D 44 22 3B 4A AA 31 3B A6 31 32 AB C3 28 C4 |"-D";J.1;.12..(.| 000014E0: 28 A5 41 28 41 28 4A 29 29 29 29 29 3B A5 41 28 |(.A(A(J)))));.A(| 000014F0: 41 28 4A 29 29 3B 00 1E 1D F2 05 98 31 33 2C 22 |A(J));......13,"| 00001500: 22 3B A6 31 36 AB C3 28 C4 28 A5 44 28 41 28 4A |";.16..(.(.D(A(J| 00001510: 29 29 29 29 29 3B A5 44 28 41 28 4A 29 29 00 26 |)))));.D(A(J)).&| 00001520: 1D FA 05 82 20 4A 00 38 1D 04 06 98 31 33 2C 22 |.... J.8....13,"| 00001530: 22 3A 98 31 33 2C 22 22 00 75 1D 0E 06 8B 20 41 |":.13,"".u.... A| 00001540: 24 B2 22 59 22 20 A7 20 98 31 33 2C 22 20 20 20 |$."Y" . .13," | 00001550: 20 20 4C 45 4E 47 54 48 2D 54 4F 2D 44 49 41 4D | LENGTH-TO-DIAM| 00001560: 45 54 45 52 20 52 41 54 49 4F 20 43 4F 52 52 45 |ETER RATIO CORRE| 00001570: 43 54 45 44 22 00 B1 1D 18 06 98 31 33 2C 3A 98 |CTED"......13,:.| 00001580: 31 33 2C 22 20 20 20 20 20 4E 4F 54 45 3A 20 4D |13," NOTE: M| 00001590: 41 54 48 45 4D 41 54 49 43 41 4C 4C 59 20 44 45 |ATHEMATICALLY DE| 000015A0: 52 49 56 45 44 20 44 49 4D 45 4E 53 49 4F 4E 53 |RIVED DIMENSIONS| 000015B0: 22 00 E6 1D 22 06 98 31 33 2C 22 20 20 20 20 20 |"..."..13," | 000015C0: 4D 41 59 20 52 45 51 55 49 52 45 20 46 49 4E 45 |MAY REQUIRE FINE| 000015D0: 20 54 55 4E 49 4E 47 20 49 4E 20 54 48 45 20 46 | TUNING IN THE F| 000015E0: 49 45 4C 44 2E 22 00 00 1E 2C 06 81 20 4A B2 31 |IELD."...,.. J.1| 000015F0: 20 A4 20 31 39 39 39 3A 99 3B 3A 82 20 4A 3A 8E | . 1999:.;:. J:.| 00001600: 00 3D 1E 36 06 8F 20 43 52 45 41 54 49 4E 47 20 |.=.6.. CREATING | 00001610: 41 20 4E 45 57 20 44 41 54 41 20 46 49 4C 45 20 |A NEW DATA FILE | 00001620: 46 4F 52 20 41 20 53 50 45 43 49 46 49 43 20 41 |FOR A SPECIFIC A| 00001630: 4E 54 45 4E 4E 41 20 44 45 53 49 47 4E 00 71 1E |NTENNA DESIGN.q.| 00001640: 40 06 99 3A 99 3A 99 20 22 47 49 56 45 20 59 4F |@..:.:. "GIVE YO| 00001650: 55 52 20 44 41 54 41 20 46 49 4C 45 20 41 20 4E |UR DATA FILE A N| 00001660: 41 4D 45 2D 2D 38 20 43 48 41 52 53 20 4D 41 58 |AME--8 CHARS MAX| 00001670: 22 00 A0 1E 4A 06 99 20 22 50 52 45 46 45 52 41 |"...J.. "PREFERA| 00001680: 42 4C 59 20 4F 4E 45 20 44 45 53 43 52 49 42 49 |BLY ONE DESCRIBI| 00001690: 4E 47 20 54 48 45 20 41 4E 54 45 4E 4E 41 2E 22 |NG THE ANTENNA."| 000016A0: 00 D3 1E 54 06 99 20 22 54 48 45 20 46 49 52 53 |...T.. "THE FIRS| 000016B0: 54 20 43 48 41 52 41 43 54 45 52 20 4D 55 53 54 |T CHARACTER MUST| 000016C0: 20 4E 4F 54 20 42 45 20 41 20 4E 55 4D 45 52 41 | NOT BE A NUMERA| 000016D0: 4C 2E 22 00 E8 1E 5E 06 85 20 22 2D 2D 4E 41 4D |L."...^.. "--NAM| 000016E0: 45 22 3B 46 49 4C 45 24 00 0F 1F 68 06 8B 20 C3 |E";FILE$...h.. .| 000016F0: 28 46 49 4C 45 24 29 B1 38 20 A7 20 99 20 22 54 |(FILE$).8 . . "T| 00001700: 4F 4F 20 4C 4F 4E 47 22 3A 89 20 31 36 30 30 00 |OO LONG":. 1600.| 00001710: 23 1F 6C 06 98 31 35 2C 22 53 30 3A 22 AA 46 49 |#.l..15,"S0:".FI| 00001720: 4C 45 24 00 3B 1F 72 06 9F 33 2C 38 2C 33 2C 46 |LE$.;.r..3,8,3,F| 00001730: 49 4C 45 24 AA 22 2C 53 2C 57 22 00 44 1F 86 06 |ILE$.",S,W".D...| 00001740: 98 33 2C 4E 00 55 1F 9A 06 8B 20 4E B3 31 20 A7 |.3,N.U.... N.1 .| 00001750: 20 31 37 31 30 00 6F 1F A4 06 81 20 4A B2 31 20 | 1710.o.... J.1 | 00001760: A4 20 4E 3A 98 33 2C 45 28 4A 29 3A 82 20 4A 00 |. N:.3,E(J):. J.| 00001770: 7E 1F AE 06 98 33 2C 44 3B 22 2C 22 3B 52 00 8F |~....3,D;",";R..| 00001780: 1F B8 06 98 33 2C 42 31 3B 22 2C 22 3B 42 32 00 |....3,B1;",";B2.| 00001790: A0 1F C2 06 8B 20 4E B3 32 20 A7 20 31 37 35 30 |..... N.2 . 1750| 000017A0: 00 BC 1F CC 06 81 20 4A B2 31 20 A4 20 4E AB 31 |...... J.1 . N.1| 000017B0: 3A 98 33 2C 41 28 4A 29 3A 82 20 4A 00 CC 1F D6 |:.3,A(J):. J....| 000017C0: 06 98 33 2C 46 31 3A 98 33 2C 52 31 00 D3 1F E0 |..3,F1:.3,R1....| 000017D0: 06 A0 33 00 EE 1F EA 06 99 3A 99 20 22 4E 45 57 |..3......:. "NEW| 000017E0: 20 46 49 4C 45 20 43 52 45 41 54 45 44 22 00 FC | FILE CREATED"..| 000017F0: 1F F4 06 A0 31 33 3A A0 31 35 3A 80 00 22 20 FE |....13:.15:.." .| 00001800: 06 8F 20 52 45 41 44 49 4E 47 20 41 4E 20 45 58 |.. READING AN EX| 00001810: 49 53 54 49 4E 47 20 44 41 54 41 20 46 D2 FF FF |ISTING DATA F...| 00001820: FF FF FF EB FF FF F4 31 FF FF FF FF FF FF D2 FF |.......1........| 00001830: FF FF FF FF FF FF FF D1 FF FF FF FF D0 DD FF FF |................| 00001840: FF FF FF FF D0 D4 D4 FF FF FF FF D2 FF D7 FF FF |................| 00001850: FF D2 FF FF FF FF FF FF FF FF FF FF FF 33 FF FF |.............3..| 00001860: F4 31 FF FF FF DA FF FF FF FF FF FF FF FF FF FF |.1..............| 00001870: DA EE FF ED FF DA FF FF FF FF FF FF FF FF FF FF |................| 00001880: D2 FF FF FF FF FF DA FF FF FF FF FF 6A F5 33 FF |............j.3.| 00001890: 33 FF FF FF FF FF FF FF FF FF FF FF FF FF FF DA |3...............| 000018A0: FF FF D0 DC FF FF FF FF FF FF FF FF FF FF FF D2 |................| 000018B0: FF FF FF FF D1 FF EE FF FF FF FF FF FF FF D2 FF |................| 000018C0: FF FF FF BF FF FF F5 31 FF FF FF FF FF FF 46 49 |.......1......FI| 000018D0: 4C 45 24 AA 22 2C 53 2C 52 22 00 FE 20 30 07 84 |LE$.",S,R".. 0..| 000018E0: 31 35 2C 45 41 2C 45 42 24 2C 45 43 2C 45 44 3A |15,EA,EB$,EC,ED:| 000018F0: 8B 20 45 41 B3 32 30 20 A7 20 31 38 36 30 00 1C |. EA.20 . 1860..| 00001900: 21 3A 07 8B 20 45 41 B2 36 32 20 A7 20 99 20 45 |!:.. EA.62 . . E| 00001910: 42 24 3A A0 33 3A 89 20 31 38 32 30 00 25 21 44 |B$:.3:. 1820.%!D| 00001920: 07 84 33 2C 4E 00 36 21 4E 07 8B 20 4E B3 31 20 |..3,N.6!N.. N.1 | 00001930: A7 20 31 38 39 30 00 50 21 58 07 81 20 4A B2 31 |. 1890.P!X.. J.1| 00001940: 20 A4 20 4E 3A 84 33 2C 45 28 4A 29 3A 82 20 4A | . N:.3,E(J):. J| 00001950: 00 64 21 62 07 84 33 2C 44 2C 52 3A 84 33 2C 42 |.d!b..3,D,R:.3,B| 00001960: 31 2C 42 32 00 75 21 6C 07 8B 20 4E B3 32 20 A7 |1,B2.u!l.. N.2 .| 00001970: 20 31 39 32 30 00 91 21 76 07 81 20 4A B2 31 20 | 1920..!v.. J.1 | 00001980: A4 20 4E AB 31 3A 84 33 2C 41 28 4A 29 3A 82 20 |. N.1:.3,A(J):. | 00001990: 4A 00 A1 21 80 07 84 33 2C 46 31 3A 84 33 2C 52 |J..!...3,F1:.3,R| 000019A0: 31 00 A8 21 8A 07 A0 33 00 AE 21 94 07 8E 00 00 |1..!...3..!.....| 000019B0: 00 |. |
../.... PARASITIC ANTENNA SCALING PROGRA
M (C64).J.... FOR ANY QUAD, YAGI OR QUAG
I OF TWO OR MORE ELEMENTS....... BY KC6A
AND N6NB; (C) 1983 BY HAYDEN BOOK CO.,I
NC.......15,8,15.H. ..13,4:. VIC PRINTER
...(.. A(25),E(25):B2.0:CM.2.54...2.CLS$
.G(147):. CLEAR-SCREEN COMMAND...<.. CLS
$.@.F.INV$.G(18):. VIDEO-INVERSE COMMAND
.G.P.NML$.G(146):. VIDEO-NORMAL COMMAND.
..V.. " ";INV$;"
".W.X.. " ";INV$;" A
NTENNA SCALING PROGRAM "...... "
";INV$;"
":. NML$.7.... " HERE ARE YOUR OPT
IONS--".C.... " ENTER DIMENSIONS AND
SCALE THEM"... .. " TO A NEW FREQU
ENCY NOW (SCALE)"...... " CREATE A DA
TA FILE WITH STANDARD"...... " DIM
ENSIONS TO USE LATER (CREATE)"...... "
READ DATA FROM A FILE AND SCALE IT".F.
H.. " TO A NEW FREQUENCY (READ)".W
....:. " ENTER 'SCALE','CREATE' OR 'READ
'":. O$...... O$."READ" . . 1820:. 570..
.... O$.."CREATE" . . O$.."SCALE" . 140.
X.... DATA ENTRY SECTION...... CLS$:. CL
EAR SCREEN......:..+.... " ENTE
R THE DIMENSIONS ".\.".. "
FOR THE ORIGINAL ANTENNA "...,
..:.:. "HOW MANY DIRECTORS (IF NONE,'0')
":. N...6.. N.25 . . "TOO MANY. 25 MAXIM
UM":. 300.I.@.. N.1 . 380.W.J.. J.1 . N.
..T..:. "ENTER THE LENGTH (IN INCHES)"..
.^.. " OF DIRECTOR #";J;.%.H.. E(J).-.
R.. J.\.|..:. "HOW LONG IS THE DRIVEN EL
EMENT":. D:....... "HOW LONG IS THE REFL
ECTOR":. R:.:.:.......:..D.... " NO
W ENTER THE ELEMENT SPACING ":.....
..:.:. "REFLECTOR TO DRIVEN ELEMENT";B1.
..... N.1 . 500.*....:. "DRIVEN ELEMENT
TO DIRECTOR #1";B2.:.B.. N.2 . 500.L.L..
J.1 . (N.1).W.V..:. "DIRECTOR #";J;"TO
DIRECTOR #";J.1...... A(J)...... J.A....
:. "WHAT IS THE ORIGINAL FREQUENCY (IN M
HZ)":. F1......:. "WHAT IS THE ELEMENT D
IAMETER (INCHES)"...... "(USE TYPICAL DI
AMETER IF IT VARIES)".&.... R1.?.... O$.
"CREATE" . 1600.T.&.. INFORMATION NEEDED
TO SCALE TO A NEW FREQUENCY.Z.0.....:..
:. " NOW DESCRIBE THE NEW ANTENN
A "...D..:. "ENTER THE NEW FREQUE
NCY (IN MHZ)";F2...N.SF.F1.F2:. SCALING
FACTOR.-.X..:. "DO YOU WANT THE DIMENSIO
NS CORRECTED".].B.. "FOR LENGTH-TO-DIAME
TER RATIO (Y/N)":. A$.Q.L.. A$.."Y" . 65
0...V.. :. "WHAT IS THE NEW ELEMENT DIAM
ETER"...... "(IN INCHES)";R2.O.... SF.1.
25 . S..8 . 830...... CLS$:. CLEAR SCREE
N......:.......:..*.... "***************
*************************".[.... "
WARNING "...F.
. "*************************************
***"...P..:.:. NML$:. VIDEO NORMAL.W.Z..
"SCALING ANTENNAS MATHEMATICALLY IS A".
..... "TRICKY BUSINESS. THERE ARE NUMER
OUS".3.... "VARIABLES THAT AFFECT THE OU
TCOME. IF".B.... "THE CHANGE IN FREQUEN
CY IS SMALL, THEY"...... "MAY BE IGNORED
. BUT WHEN A TWO-TO-ONE"...... "OR GREA
TER CHANGE IS INVOLVED, SOME"...... "EXP
ERIMENTATION WILL BE NECESSARY, EVEN"...
.. "IF LENGTH-TO-DIAMETER RATIO IS TAKE
N".?.*.. "INTO ACCOUNT IN THE SCALING.".
I.4..:.:....>..:. "DO YOU WANT A HARD CO
PY PRINTOUT? (Y/N)":. LP$...H.X.R2.R1...
R.L1.D.(.975..6.R1.D)...\.L2.L1.SF.L.F.L
3.L2.(.975..6.R2.L2).W.P.S.L3.D...Z.. A$
.."Y" . S.SF...... DISPLAY AND PRINTOUT
OF RESULTS.,.... CLS$:. CLEAR SCREEN.4..
..:..P.... .A(X)..(X.100..5).100.N.... .
B(X)..(S.X.100..5).100...... .C(X)..(CM.
S.X.100..5).100...... .D(X)..(SF.X.100..
5).100.N.... 1020:. VIDEO DATA DISPLAY..
.J.. LP$.."Y" . 1780...... 1340:. PRINTI
NG SUBROUTINE...... 1780.$.... VIDEO DIS
PLAY.U.... "ANTENNA SCALING FROM ";F1;"
TO ";F2;"MHZ".[.......... O$."READ" . .
.9)"ANTENNA TYPE ";FILE$:......F1$."ELE
ORIG L(IN) NEW L(IN) NEW L(CM)".H.8
.. F1$:....B.. "REFL";.10.C(D(.A(R))));.
A(R);.!.D.. .12.C(D(.B(R))));.B(R);.11.C
(D(.C(R))));.C(R).U.L.. "DE";.12.C(D(.A(
D))));.A(D);.12.C(D(.B(D))));.X.N.. .B(D
);.11.C(D(.C(D))));.C(D)...V.. N.1 . 115
0...`.. J.1 . N.A.J.. "DIR";.11.C(D(.A(E
(J)))));.A(E(J));...L.. .12.C(D(.B(E(J))
)));.B(E(J));...N.. .11.C(D(.C(E(J)))));
.C(E(J))...T.. J.4.Y.AA$."":. "<CR> TO C
ONTINUE";AA$.<.~..:..E.... .7) "INTER-EL
EMENT SPACING DATA":......F4$."ELE O
RIG SPACING (IN) NEW (IN)"...... F4
$:..L.... "REF-DE";.15.C(D(.A(B1))));.A(
B1);...... .16.C(D(.D(B1))));.D(B1)...D.
. N.1 . 1280.$.N.. "DE-D1";.16.C(D(.A(B2
))));.A(B2);.C.P.. .16.C(D(.D(B2))));.D(
B2).T.X.. N.2 . 1280.D.... J.1 . N.1....
.. "D";J;"-D";J.1;.12.C(D(.A(A(J)))));.A
(A(J));...... .16.C(D(.D(A(J)))));.D(A(J
)).B.... J.J....:....... A$."Y" . . "LEN
GTH-TO-DIAMETER RATIO CORRECTED".2....:.
"NOTE: MATHEMATICALLY DERIVED DIMENSION
S".`.... "MAY REQUIRE FINE TUNING IN THE
FIELD.".F.(....2.. HARD COPY PRINTOUT.
..<..13,"";.14)"ANTENNA SCALING FROM ";F
1;" TO ";F2;"MHZ".K.F..13,"":.13,""...P.
. O$."READ" . .13,"";.22)"ANTENNA TYPE "
;FILE$:.13,""...Z..13,F1$:.13,"".?.D..13
,"REFL";.10.C(D(.A(R))));.A(R);.B.F..13,
"";.12.C(D(.B(R))));.B(R);...H..13,"";.1
2.C(D(.C(R))));.C(R)...N..13,"DE";.12.C(
D(.A(D))));.A(D);.L.P..13,"";.12.C(D(.B(
D))));.B(D);...R..13,"";.12.C(D(.C(D))))
;.C(D)...X.. N.1 . 1440...... J.1 . N.9.
...13,"DIR";.11.C(D(.A(E(J)))));.A(E(J))
;.B....13,"";.12.C(D(.B(E(J)))));.B(E(J)
);......13,"";.12.C(D(.C(E(J)))));.C(E(J
))...... J... ..13,"":.13,"":.13,"".....
.13,"";.19) "INTER-ELEMENT SPACING DATA"
:.13,""......13,F4$:.13,""......13,"REF-
DE";.15.C(D(.A(B1))));.A(B1);.A....13,""
;.16.C(D(.D(B1))));.D(B1).R.H.. N.1 . 15
40.|.R..13,"DE-D1";.16.C(D(.A(B2))));.A(
B2);. .T..13,"";.16.C(D(.D(B2))));.D(B2)
...... N.2 . 1540.A.... J.1 . N.1......1
3,"D";J;"-D";J.1;.12.C(D(.A(A(J)))));.A(
A(J));......13,"";.16.C(D(.D(A(J)))));.D
(A(J)).&.... J.8....13,"":.13,"".U.... A
$."Y" . .13," LENGTH-TO-DIAMETER RAT
IO CORRECTED"......13,:.13," NOTE: M
ATHEMATICALLY DERIVED DIMENSIONS"..."..1
3," MAY REQUIRE FINE TUNING IN THE F
IELD."...,.. J.1 . 1999:.;:. J:..=.6.. C
REATING A NEW DATA FILE FOR A SPECIFIC A
NTENNA DESIGN.Q.@..:.:. "GIVE YOUR DATA
FILE A NAME--8 CHARS MAX". .J.. "PREFERA
BLY ONE DESCRIBING THE ANTENNA.".S.T.. "
THE FIRST CHARACTER MUST NOT BE A NUMERA
L."...^.. "--NAME";FILE$...H.. C(FILE$).
8 . . "TOO LONG":. 1600.#.L..15,"S0:".FI
LE$.;.R..3,8,3,FILE$.",S,W".D....3,N.U..
.. N.1 . 1710.O.... J.1 . N:.3,E(J):. J.
~....3,D;",";R......3,B1;",";B2. .B.. N.
2 . 1750...L.. J.1 . N.1:.3,A(J):. J.L.V
..3,F1:.3,R1.S... 3......:. "NEW FILE CR
EATED"..... 13: 15:.." ... READING AN EX
ISTING DATA FR.........1......R........Q
....P.......PTT....R.W...R...........3..
.1...Z..........Z....Z..........R.....Z.
....J.3.3..............Z..P............R
....Q.........R........1......FILE$.",S,
R".. 0..15,EA,EB$,EC,ED:. EA.20 . 1860..
!:.. EA.62 . . EB$: 3:. 1820.%!D..3,N.6!
N.. N.1 . 1890.P!X.. J.1 . N:.3,E(J):. J
.D!B..3,D,R:.3,B1,B2.U!L.. N.2 . 1920..!
V.. J.1 . N.1:.3,A(J):. J..!...3,F1:.3,R
1..!.. 3..!......
> CLICK IMAGE PREVIEW FOR FULL MODAL