/ PARASITIC ANTENNA SCALING PROGRAM (C64)j FOR ANY QUAD, YAGI OR QUAGI OF TWO OR MORE ELEMENTS.wŸ15,8,15(Ÿ13,4: VIC PRINTER®2† A(25),E(25):B2²0:CM²2.54Õ<CLS$²Ç(147): CLEAR-SCREEN COMMANDàF™ CLS$ PINV$²Ç(18): VIDEO-INVERSE COMMAND. ZNML$²Ç(146): VIDEO-NORMAL COMMANDf d™ " ";INV$;" "ž n™ " ";INV$;" ANTENNA SCALING PROGRAM "Ý x™ " ";INV$;" ":™ NML$þ ‚™ " HERE ARE YOUR OPTIONS--"* Œ™ " ENTER DIMENSIONS AND SCALE THEM"X –™ " TO A NEW FREQUENCY NOW (SCALE)"…  ™ " CREATE A DATA FILE WITH STANDARD"µ ª™ " DIMENSIONS TO USE LATER (CREATE)"ä ´™ " READ DATA FROM A FILE AND SCALE IT" ¾™ " TO A NEW FREQUENCY (READ)"> È™:™ " ENTER 'SCALE','CREATE' OR 'READ'":… O$[ Ò‹ O$²"READ" § 1920:‰550ƒ Ü‹ O$³±"CREATE" § ‹ O$³±"SCALE" §130œ æ DATA ENTRY SECTION¶ ð™ CLS$: CLEAR SCREEN¾ ú™:™ï ™ " ENTER THE DIMENSIONS " ™ " FOR THE ORIGINAL ANTENNA "Q ™:™:™ "HOW MANY DIRECTORS (IF NONE,'0')":… N| "‹ N±25 § ™ "TOO MANY. 25 MAXIMUM":‰280‹ ,‹ N³1 §360™ 6 J²1 ¤ NÀ @™:™ "ENTER THE LENGTH (IN INCHES)"Ü J™ " OF DIRECTOR #";J;ç T… E(J)ï ^‚ J h™:™ "HOW LONG IS THE DRIVEN ELEMENT":… D:™J r™ "HOW LONG IS THE REFLECTOR":… R:™:™:™R |™:™† †™ " NOW ENTER THE ELEMENT SPACING ":™± ™:™:… "REFLECTOR TO DRIVEN ELEMENT";B1À š‹ N³1 §480ë ¤™:… "DRIVEN ELEMENT TO DIRECTOR #1";B2ú ®‹ N³2 §480 ¸ J²1 ¤ (N«1)7™:™ "DIRECTOR #";J;"TO DIRECTOR #";Jª1BÌ… A(J)JÖ‚ Jà™:™ "WHAT IS THE ORIGINAL FREQUENCY (IN MHZ)":… F1±ê™:™ "WHAT IS THE ELEMENT DIAMETER (INCHES)"Ýô™ "(USE TYPICAL DIAMETER IF IT VARIES)"æþ… R1þ‹ O$²"CREATE" §17103 INFORMATION NEEDED TO SCALE TO A NEW FREQUENCY9™q&™:™ " NOW DESCRIBE THE NEW ANTENNA "Ÿ0™:… "ENTER THE NEW FREQUENCY (IN MHZ)";F2½:SF²F1­F2: SCALING FACTORìD™:™ "DO YOU WANT THE DIMENSIONS CORRECTED"N™ "FOR LENGTH-TO-DIAMETER RATIO (Y/N)":… A$/X‹ A$³±"Y" §630[b™ :™ "WHAT IS THE NEW ELEMENT DIAMETER"rl… "(IN INCHES)";R2Œv‹ SF³1.25 ¯ S±.8 §810¦€™ CLS$: CLEAR SCREEN®Š™:™¶”™:™çž™ "****************************************"¨™ " WARNING "I²™ "****************************************"g¼™:™:™ NML$: VIDEO NORMAL”Æ™ "SCALING ANTENNAS MATHEMATICALLY IS A"ÁЙ "TRICKY BUSINESS. THERE ARE NUMEROUS"ðÚ™ "VARIABLES THAT AFFECT THE OUTCOME. IF"ä™ "THE CHANGE IN FREQUENCY IS SMALL, THEY"Nî™ "MAY BE IGNORED. BUT WHEN A TWO-TO-ONE"zø™ "OR GREATER CHANGE IS INVOLVED, SOME"ª™ "EXPERIMENTATION WILL BE NECESSARY, EVEN"× ™ "IF LENGTH-TO-DIAMETER RATIO IS TAKEN"ü™ "INTO ACCOUNT IN THE SCALING." ™:™:™>*™:™ "DO YOU WANT A HARD COPY PRINTOUT? (Y/N)":… LP$J4X²R2­R1b>L1²D­(.975«.6¬R1­D)oHL2²L1¬SF‰RL3²L2¬(.975«.6¬R2­L2)”\S²L3­D©f‹ A$³±"Y" § S²SFÏp DISPLAY AND PRINTOUT OF RESULTSéz™ CLS$: CLEAR SCREENñ„™:™ Ž– ¥A(X)²µ(X¬100ª.5)­100+˜– ¥B(X)²µ(S¬X¬100ª.5)­100L¢– ¥C(X)²µ(CM¬S¬X¬100ª.5)­100k¬– ¥D(X)²µ(SF¬X¬100ª.5)­100Š¶1000: VIDEO DATA DISPLAYŸÀ‹ LP$³±"Y" §1880¿Ê1360: PRINTING SUBROUTINEÉÔ‰1880ÝÞ VIDEO DISPLAYè™ "ANTENNA SCALING FROM ";F1;" TO ";F2;"MHZ"ò™Cü‹ O$²"READ" § ™ £9)"ANTENNA TYPE ";FILE$:™uF1$²"ELE ORIG L(IN) NEW L(IN) NEW L(CM)"™ F1$:™¦™ "REFL";¦10«Ã(Ä(¥A(R))));¥A(R);Ú$™ ¦12«Ã(Ä(¥B(R))));¥B(R);¦11«Ã(Ä(¥C(R))));¥C(R).™ "DE";¦12«Ã(Ä(¥A(D))));¥A(D);¦12«Ã(Ä(¥B(D))));18™ ¥B(D);¦11«Ã(Ä(¥C(D))));¥C(D)AB‹ N³1 §1160OL J²1 ¤ NyV™ "DIR";¦11«Ã(Ä(¥A(E(J)))));¥A(E(J));`™ ¦12«Ã(Ä(¥B(E(J)))));¥B(E(J));Àj™ ¦11«Ã(Ä(¥C(E(J)))));¥C(E(J))Èt‚ Jì~AA$²"":… " TO CONTINUE";AA$ôˆ™:™’™ £7) "INTER-ELEMENT SPACING DATA":™OœF4$²"ELE ORIG SPACING (IN) NEW (IN)"[¦™ F4$:™„°™ "REF-DE";¦15«Ã(Ä(¥A(B1))));¥A(B1);£º™ ¦16«Ã(Ä(¥D(B1))));¥D(B1)³Ä‹ N³1 §1300ÛΙ "DE-D1";¦16«Ã(Ä(¥A(B2))));¥A(B2);úØ™ ¦16«Ã(Ä(¥D(B2))));¥D(B2) â‹ N³2 §1300ì J²1 ¤ N«1Mö™ "D";J;"-D";Jª1;¦12«Ã(Ä(¥A(A(J)))));¥A(A(J));p™ ¦16«Ã(Ä(¥D(A(J)))));¥D(A(J))x ‚ J€™:™¶‹ A$²"Y" § ™ "LENGTH-TO-DIAMETER RATIO CORRECTED"è(™:™ "NOTE: MATHEMATICALLY DERIVED DIMENSIONS"2™ "MAY REQUIRE FINE TUNING IN THE FIELD."<Ž5F HARD COPY PRINTOUToP˜13,"";¦14)"ANTENNA SCALING FROM ";F1;" TO ";F2;"MHZ"Z˜13,"":˜13,""»d‹ O$²"READ" § ˜13,"";¦22)"ANTENNA TYPE ";FILE$:˜13,""În˜13,F1$:˜13,""õx˜13,"REFL";¦10«Ã(Ä(¥A(R))));¥A(R);‚˜13,"";¦12«Ã(Ä(¥B(R))));¥B(R);:Œ˜13,"";¦12«Ã(Ä(¥C(R))));¥C(R)_–˜13,"DE";¦12«Ã(Ä(¥A(D))));¥A(D);‚ ˜13,"";¦12«Ã(Ä(¥B(D))));¥B(D);¤ª˜13,"";¦12«Ã(Ä(¥C(D))));¥C(D)´´‹ N³1 §1520¾ J²1 ¤ NîȘ13,"DIR";¦11«Ã(Ä(¥A(E(J)))));¥A(E(J));Ò˜13,"";¦12«Ã(Ä(¥B(E(J)))));¥B(E(J));?ܘ13,"";¦12«Ã(Ä(¥C(E(J)))));¥C(E(J))Gæ‚ J`ð˜13,"":˜13,"":˜13,""”ú˜13,"";¦19) "INTER-ELEMENT SPACING DATA":˜13,""§˜13,F4$:˜13,""Ò˜13,"REF-DE";¦15«Ã(Ä(¥A(B1))));¥A(B1);ö˜13,"";¦16«Ã(Ä(¥D(B1))));¥D(B1)"‹ N³1 §16500,˜13,"DE-D1";¦16«Ã(Ä(¥A(B2))));¥A(B2);T6˜13,"";¦16«Ã(Ä(¥D(B2))));¥D(B2)d@‹ N³2 §1650tJ J²1 ¤ N«1©T˜13,"D";J;"-D";Jª1;¦12«Ã(Ä(¥A(A(J)))));¥A(A(J));Ñ^˜13,"";¦16«Ã(Ä(¥D(A(J)))));¥D(A(J))Ùh‚ Jër˜13,"":˜13,""(|‹ A$²"Y" § ˜13," LENGTH-TO-DIAMETER RATIO CORRECTED"d†˜13,:˜13," NOTE: MATHEMATICALLY DERIVED DIMENSIONS"™˜13," MAY REQUIRE FINE TUNING IN THE FIELD."³š J²1 ¤ 1999:™;:‚ J:Žð¤ CREATING A NEW DATA FILE FOR A SPECIFIC ANTENNA DESIGN$®™:™:™ "GIVE YOUR DATA FILE A NAME--8 CHARS MAX"S¸™ "PREFERABLY ONE DESCRIBING THE ANTENNA."†Â™ "THE FIRST CHARACTER MUST NOT BE A NUMERAL."›Ì… "--NAME";FILE$ÁÖ‹ Ã(FILE$)±8 § ™ "TOO LONG":‰1710Õà˜15,"S0:"ªFILE$íêŸ3,8,3,FILE$ª",S,W"öô˜3,Nþ‹ N³1 §1810  J²1 ¤ N:˜3,E(J):‚ J/˜3,D;",";R@˜3,B1;",";B2P&‹ N³2 §1850l0 J²1 ¤ N«1:˜3,A(J):‚ J|:˜3,F1:˜3,R1ƒD 3žN™:™ "NEW FILE CREATED"¬X 13: 15:€Òb READING AN EXISTING DATA FILE-- l THE FILE HAS TO BE ON THE LOGGED DISK DRIVE AND THE9 v NAME ENTERED MUST MATCH THE FILE NAME.r €™:™ "ENTER THE NAME OF THE DATA FILE TO USE":… FILE$Š ŠŸ3,8,3,FILE$ª",S,R"­ ”„15,EA,EB$,EC,ED:‹ EA³20 §1960Ê ž‹ EA²62 § ™ EB$: 3:‰1920Ó ¨„3,Nã ²‹ N³1 §1990ý ¼ J²1 ¤ N:„3,E(J):‚ J!Æ„3,D,R:„3,B1,B2!!Ћ N³2 §2020=!Ú J²1 ¤ N«1:„3,A(J):‚ JM!ä„3,F1:„3,R1T!î 3Z!øŽ