ڃAMPNOISEAQC]BINCONV AQCECHBYFILTAQC+EDBCHNGR ASCH6E/CALC AQCN5]FIXISTORAQCd-˴LOGICSIMASCsLOGICSIMDOCPARADISHASC PLLCNTLRASC QUADANT ASCMSATFIND ASCmWVLNTH ASCFkv WAMPNOISE.ASC<  !"$y^F晋B¼tGg {"IHEj! M-Q~7X72w|t^,=(TQi!yS"u7w,'v׋OY a>o koZ[ۢMp8)7&ko8h6y-)d9_ M&koCiI?7xhF dmL "~qF_J^p\"\xmXh'9ywR 3(I">ySn[eNթ^YDTu5MYlXzMz4*+gSuJmt5ѪDGr6}s{é*86kZTVT^Y%фT)^YӔjΆ%ׄGr6;UpJmt5!ׄGr6}a~p><{Xp FiSn[eNթ^YDN)^YժDGr6}SY;UpmִکSnKԣ QY9*86kTٰDhBTV&jXܣ<{X?'ySn[eNթ^YDdSY;UpmִکSnKԣ QhE=j0?Xԣa~pSY;UfMʪTNzt5*2K"5Oe}s{éaLobEE.a^˷]ı6!v׋!kEF{aL9bQY1ʊ[eŧ2'dw|"(SVS2ʏaL}ĢzpWܪW|WF<, ߑXN[O( dw"%)SVS2o:۬'y02!kE #q"4, ( ߿cJ#7'İqǍZjFyyɄx&VQ "|Ezh"mw¼VdTÈL&|NeŭSY0" XԣN=[=O=ʨ #2ETUTJ0" ߑXN[Oʨ#2EIᔤJ0" ¼Vı8r_ȫ .2*uL|>7F%"w01lqQkx~;B?5R זɄhw dwLJi ^F晋8K^I ݁4nh7O-koGwh~"<w\h<9XTF<5=SXMvw\1y-)dyo;s1h5al,^ ]x2"P紗;)r ߷? +kEV/qPOPinʒ6ZC=OsW\c<ە]߶y.<۰;h%&]77L.ߖPi_*vWnW{6Zܴ:@r`0c,zo-Vg/:6)O3X]t[2Hg2zdŸ~&3&3?s<<@?ABCDEoGFHJILKMNOPQR'-C5g7պ,.JVQ?\7 u)vur[+k}3jn5eI.\bZ=*\Ӱ2Vs _buۿvuoݟ٣ؽXWpV|?ܷzb>O)/nqp Y=R_l{TjNm-}+NS_d=nCuush]?uoKIπ$u@/ #6`foofqBaRP!XaџjfuL B8Ʒ݀#c 50R)PTbl1Rbg={uO}jiPi4e/ozgZZ73qC\ ^v/1gк5`4aL{Y7g}ki$Cm\60jOcUj фe2a{v|cEֶnFí]m9Y\? ujImOki|CzP/6/1puj@…2b .=i`p坧ujf:O6D]1#ju*`pͿOKRX8^gաEڬ*ҺJ ѭ]2:h]Uj趮z5gd.zlP2-.syܻͿO>Ғ˺ͅUb/ ? ynh 7IP͠6A,h]3,0{uڧ52FU:,a1F gEi]Q/ޓepgA=/ -vcquEjt8ܺjNߧ%}u3>}Iqd33囫(Һjt8ܺXͿOaxyݺjIqf.\#+;߉ڬjn]Y̿pz~q(`.7WQuL}aJ0|#g;;A- ZǡAm.*fuϙ:25~G$Ue47  {VYTVhR]H?{:, khe/a=3,Paxo}5uXhZeAѿ@u"yLӰ2s=IP BA}@Aí{dP͠6jТImOAҺL ѭ뼼]Тg݃jQ> js!Qڧ:hRSuz<Һ35Fw˫CuGjnݺ^Q] C\Ֆ<]'sy]ZxYdu*q|M1c`[4|?P=A,Zw|N4~{/|{o0B뎏9a=@'f=/|{;: ;Sgew U|T]C{uL;3oPuaηE1u>_U?{u:|/|{X' IPw4Gs"u7M}?͉sO|h]HO!ڬ7L3M@o ,g,3ZJu3O|ko?uc&L:Ҍa/3˾fOu/S!ef7ҌoX̲o7_ff|o-{3_fK-h6L:Ҍ70ef4Ҍab7L0gj%fz#7|:Ls@|O{>ìR?1=:ߓXYb:|߀#7[ϲoF015apo=˾߀u@:ߕ}0M:_)M0R66ͅXub*Ð7|'X"oOuT2%򆕔$)$Z8S0ջ Tf /S7yKR!Tg2%erxKE L2UT*ZX|s!HY &OC||rM;WN>&Ywb1W'gC짆ʬ;z7gve|;ZXSLeȐ&O%DޚwbΙ*UDޕK2C^)3{'$R6uOpV)0L*߫,UoU忊,R”7U^2SW*Zbf^(-JO)C P4g/#ՙfL 2r70Rhc7LpSltk[ 8I|sauH0!f[n[n!NeMC#mD!noC'N:$$5F7Fí»N>*܊CѨ;ZJO'[]Ro.$ϴIɂlhgjn,6> js=CHOghMj~6u׼\Zܫ/"z!9ڧ:&Y?ݺke.-ZjN2.\XʹLOghMj~zn]52w uXa}ClRSlt/y:hV3EV+`ݺ^Q] C\Ֆ<]'sy]ZxYU```0wf=*RltZBOW_2zZ_+ֿBOuX=SVF Lz6Altx32Gw6 /syzW[]w}wiZeVT=F7X lt__f._,gVT=Fu*xy{*w n+xYE:CPj 02{eaLuguXTc:i$5F:^}3zW_EnC^}*w{Z*>letK]xuXznuf:o0݆BUD6hTt@ѿլ`[O!8T3ͅaO݆M -EVjt8ܺsZk P4NSVF|s=i>g  3'I}J5:n]??ԹJ_3h>Tteڬ7>i>)wu|>d\OyL5:n]??Tss(]^ZTTeڬ7>0GjS߇ZRdnha=Z /@t7:|Tub-f»z\:|TdkKSu#GjӠ6 jsU}P_謹TMj8T3 u~+ -[AѿլG?qfP {h$eh$(wuxǡAm.$SZ4|saJ8S9CNg$>7cj~{hќE7gZ*qE:<4EmO Tt|~aQfT]OHu9(gkux<|sJOݚؙnќ_X'{htuTtVSC¢h1>ͷڬZ4E?Sltj:ANbJ+\˻>Iѿլ~8T3ͅ:-fT]f>:?SCajΛPS-C-]fiC-2U~?>¢|s͜iL?7}:o(j~.\3gZ7Si/,Z7i̙5'3Aݢ(OPТLfTtVS-C¢h*>ͷڬjZ4Ef6u5v[k5z?ӻ j~ syТu3)wu3C5\H@Es-CfZEVn1 EZ7{xsG<39Y1 s$"MRuccs|G13Gq$G,rgZ7H׽ 9qg|H2GBr$I?NJX=r,0L׽x9>9>3>1sę9"ȴn#u_*|fxgi3sU8#I?7d9~uWU$scc3s|3G9g[xM|^L?7sf'  u10 REM CALCULATE DECIBLE CHANGE 20 REM FROM JOHN ROHNER 30 REM SATELLITE TVRO DIGEST, P.O. BOX 318 40 REM WEST LIBERTY, IA. 52776 50 PRINT "DECIBEL CHANGE FOR VOLTAGE OR POWER RATIO" 60 INPUT "ENTER MODE: (V = VOLTAGE, P = POWER)";X$ 70 IF X$="V" GOTO 150 80 I=10 90 INPUT "OUTPUT IN WATTS";P1 100 INPUT "INPUT IN WATTS";P2 110 A=P1 120 B=P2 130 PRINT 140 GOTO 210 150 INPUT "ENTER OUTPUT IN VOLTS";E1 160 INPUT "ENTER INPUT IN VOLTS";E2 170 A=E1 180 B=E2 190 I=20 200 PRINT 210 X=I*LOG(A/B)/LOG(10) 220 Y$="POWER" 230 IF X$ = "V" THEN Y$ = "VOLTAGE" 240 PRINT "THE ";Y$;" RATIO REPRESENTS A ";X;" DB CHANGE" 250 PRINT 260 INPUT "ANOTHER RUN (Y OR N)";C$ 270 IF C$="Y" GOTO 50 280 END HE ";Y$;" RATIO REPRESENTS A ";X;" DB CHANGE" 250 PRIvWbE/CALC.ASCA  !"$#%'&()*+,-./012345678:o;9<>?@=QMip ,"@w'A)iq#܇fp~֙0=i ݁XpN}\ m)`} Ϻی SQSpkW56g0fTŒ wcfp~֋]pρ=9>57&㲁8x}4 zY1a3\V?Tfp~ֵ9@΂TQ}>kOqW[~E{ߵ(Ogڝ[~E>E}?[-+Y+ L疾bnѾF#^'3[~Ekq>[-QGD'3[~E;Yn=YoAO`R疾/أ-R8j;L,o%Afp~Y63 #JnKa', ~Q38?+$0D >|֦!_ J? XkZ}>kӰ#jgo~8E0>i}Ȫfp~fAK+V'EM M`}Q}>kӴ!-}MC'0:}ڇ|Q'un"kJ}ӾQV疾/+C1C( b>䵚YsKy>>-ԇၲ߇TcJ&_F(-RX^kƔM/V>ic υ_vV>>V([}d5p/>V5>>>V+Mװ[7cuUcJp>Vk53<2*ܞ\o Q38?+fT=>VM5󳏫5.O{r㺫xCq J? 4-}?~/EoI e@s[aNAc}\Wjg} ~s#~zUڬ6[l(}\lN5-}cJS㊨O9է:)LkS}ͩ74JkUes:)Sc'pٜjW疾1CTXlN)-}E /ZV38?Vpf綤˻5[}/jg]|+%KicX6]6X_'pl-RٵZ}&?]~FVQe~O"n1)$inyu]y@T,:[@'pٜj~njL`.숼+">S:"J.숼+>-RQY17Lu]y} S:64oˆjMUcJSDIׅ >Q)@wedYc2.hjgYw4Elh^6+iz>+:eͫ|f=>YC^|-_oZ}I[n6&Ɠ_/QRklCz-_GI7 8HR }D?͍$^!~ᵁ*}D΂z}z÷nkQWj秳~lS>^@#Z tSXyNE`V`L |feyNn|Gz>66YCFSr.Iss=wz[6,7Q'rsW疾/.}čSt߹pI`,\ϝp#]}ͩ_[~ K1YspI`,\ϝ8 >bO`Tϯ-}s&k_X]qMK$/K8|1^ա)b,ޒt]yqxԒq>nwh>bDϴK_~%!Ysz{nG5P{ gAc#,h os}fp~)wJ??-.yğU}>kۜwiTo>V&XQr#$]x7 OgAKSS-oGU t7|,!??-.yğrTڬ ,DYo(j:k()ƍ>Ge5Y*|,V-n6#+5gTeݯ͗|-y%Eݸ1UtʡTo[5F (@cV-n6#+5g "J.숼+>-RQY17Lu]y} S:64oˆjMUcJSDIׅv4FIXISTOR.ASCD ! "#$%&')(+*,-./0o12354687:9;><?=BA@Ctd_HyĩfPi4!M$J}$\=?sx\WuxlrƗ,u{wfC*j|yﺌ7sn@-'6C*{L,c|ɜFj#O[O: )#--'osȌvh|9Gs 3?vo9y?ԺujH?wo9ye?N!3ٛ6$ [N^EZ]!κ"1GCԶ#4BH+;ƷCuEbfN,u#\ P[N^EZ]wm5 g(x[N^EZ]ֹɼ﷏!3ٛ1Nmj>SwHvH;W'/r+vA?ouݣ}!f]4HǢ@sx~{̧Gșp?^ =g|ϝƓ7ٛ,e=UuNhCzX;W'w5Pt_c!#*NDsx\WJe;,orO~{/D1?>s޹j<`Žc|>ƿwXڹj+;Wux|\5ƿئ;W'ohgo~~/G3 f7?GSe]ٹj<`sx]e+s4Dg_{d_Hs-p>;W'B*8Og_stkd_Hs-p>;W'B*8>g_L bCTعj<Ry98o79&M>>wOT,p})p`q\5ԙRy9JQ<*X;W'C^ɗ+}]8Sp#,VvOyT^U)p>Ɠa{ GEUΣU)p7Ebqd_ŏj<`s䭧KY8>g_gauY??U[OL [AwOzEo~(U'zϙnEΫm]??*;W'=(U9B8_L"ն흫Ɠ,u3/to-uýsxc9{ ;4~wOhgo~kA7? |нNSUSEdc3/tosg1rWۺZGq-u#tB3ٛϙY-ucrb.!9]4L [|ߜw??>wO)/v z{ 睦Ͻsxjc:2ƷIj>g_A"ӠtY1I'SjɜH|AMjDѴ ~w12 {K/ ^=>/ 糸ڹjot2 >)-\5,/|Z|L]4Tm]g~\5/ V>6Rܹj%T?,O쫨9d/;sB+@v\5U;W'L_޻.sfi}Jg)vOhgo~fc>˷L]4Tm]g]ܹjisե1DRŗ[@;Wuxnc|ɓNL|9!?hgo~fZohZ|Zsx\W@n^%isxF;{s4C)s˭皂 uwL/4i7-12 {|^Au7sx, IRtU2W~gN{osx)S5d=Uu{֮6MJַ?vo9y%Vŧ@12-ѿLƓwO5w]枵2DR\W @*;F_%i.nALvosx, IRtU2\9m;WuxbUɛ3ٛK?cЦAMjVC;[YDT,޹j< rcfy1-o[9lezT;FF*ȞՈ/ ]Rǎ C;[YLvqHş;W'",,eyJMg_E!;sB ;3'~ѝj<үUɛqEbP Q"OTsx[L"ն" D?W{MH:YW$hRyrb9u^__Ɠ7#0`F;{sT4A5=멢Ġ_❫ƓGuEb(U'u'LQ^G2DEv~}\5?(>Wqc',O&sRzL3 jF;{s4%Vŧ^~}^%i12 {|^A-V6HwOE:3)YBYξC9 *nisx)S5dN@Uɛ|zi09*MHys\5MզIOc5YW$hkAYH?U>ƿԥ1G)Gӳ*j~{/t~@YٹjsSEdRL عjv8?(}/Gӳ*U>ƿL9?ե1G{9TQqEbPzVveg]!JU jOң$L!L&uX흫Ɠ(J(>+۽sxcxcX41d'OY2W;W'o c5kqPv~gN. Ko!4 REM 5 REM D I G I T I A L L O G I C S I M U L A T O R 6 REM 10 PRINT "This program prints the truth table of combination logic" 20 PRINT "units written as boolean equations.":PRINT 30 PRINT "The following expressions must be used for the logic functions" 40 PRINT " For -AND- use (A AND B)" 50 PRINT " For -NAND- use NOT(A AND B)" 60 PRINT " For -OR- use (A OR B)" 70 PRINT " For -NOR- use NOT(A OR B)" 80 PRINT " For -XOR- use (A XOR B)" 90 PRINT:PRINT 100 INPUT "What is the number of inputs : ";I 120 IF I = 2 GOTO 400 130 IF I = 3 GOTO 600 140 IF I = 4 GOTO 800 150 INPUT "Is that all? ";B$ 160 IF LEFT$(B$,1) = "N" GOTO 100 170 PRINT "Thank you" 180 END 400 A = 440:B = 420:GOSUB 1100 410 END 420 PRINT:PRINT TAB(5);" A";TAB(10)" B";TAB(15);" X":PRINT 430 FOR A = 0 TO 1:FOR B = 0 TO 1: 440 X = NOT(NOT(A OR B) OR (A AND B)) 450 GOSUB 1000 460 PRINT TAB(5);A;TAB(10);B;TAB(15);X 470 NEXT B:NEXT A 480 PRINT 490 GOTO 150 600 A = 640:B = 620:GOSUB 1100 610 END 620 PRINT:PRINT TAB(5);" A";TAB(10);" B";TAB(15);" C";TAB(20);" X":PRINT 630 FOR A = 0 TO 1:FOR B = 0 TO 1:FOR C = 0 TO 1 640 X = NOT(C OR NOT(A AND B)) 650 GOSUB 1000 660 PRINT TAB(5);A;TAB(10);B;TAB(15);C;TAB(20);X 670 NEXT C:NEXT B:NEXT A 680 PRINT 690 GOTO 150 800 A = 840:B = 820:GOSUB 1100 810 END 820 PRINT:PRINT TAB(5);" A";TAB(10);" B";TAB(15);" C";TAB(20); " D";TAB(25);" X":PRINT 830 FOR A = 0 TO 1:FOR B = 0 TO 1:FOR C = 0 TO 1:FOR D = 0 TO 1 840 X = NOT(NOT(NOT(A AND B) AND C) OR D) 850 GOSUB 1000 860 PRINT TAB(5);A;TAB(10);B;TAB(15);C;TAB(20);D;TAB(25);X 870 NEXT D:NEXT C:NEXT B:NEXT A 880 PRINT 890 GOTO 150 1000 IF X = -2 THEN X = 0 1010 IF X = -1 THEN X = 1 1020 RETURN 1100 PRINT "Put in the equation by typing " 1110 PRINT A;" X = < logic equation > " 1120 PRINT "Then type " 1130 PRINT "RUN ";B;" " 1140 RETURN n by typing " 1110 PRINT A;" X = < logic e DIGITAL LOGIC SIMILATOR The object of this program is the analysis of combinational logic by generating a truth table for the logic equation that is requested from the operator. It is quicker and less error prone than doing it analytically. To enter the equation with variables into an already structured program, it was necessary to modify the program with each equation entry. The program is stopped, the equation is entered at a specified line number, and then the program is continued from that point using a RUN XXX. On the next run, the equation is entered at the same line number, wiping out the first equation. In writing the equation care must be taken to use the correct expressions (GIGO). Parantheses must be used to define functions of NOT logic. It is also advisable to use parantheses to assist in defining logic groups. When you have several logic functions in one equation, it makes no difference whether you start at the output and work towards the input, or start at the input and work towards the output. Usually the logic can be broken into segements with separate equations, if more than four inputs are required. SAMPLE RUNS What are the number of inputs ?2 Put in the equation by typing 440 X = < logic equation > then type RUN 420 OK 440 X = NOT(NOT(A OR B) OR (A AND B)) RUN 420 A B X 0 0 0 0 1 1 1 0 1 1 1 0 Is that all? NO What are the number of inputs ?4 Put in the equation by typing 840 X = < logic equation > then type RUN 820 OK 840 X = NOT(NOT(NOT(A AND B) AND C) OR D) RUN 820 A B C D X 0 0 0 0 0 0 0 0 1 0 0 0 1 0 1 0 0 1 1 0 0 1 0 0 0 0 1 0 1 0 0 1 1 0 1 0 1 1 1 0 1 0 0 0 0 1 0 0 1 0 1 0 1 0 1 1 0 1 1 0 1 1 0 0 0 1 1 0 1 0 1 1 1 0 0 1 1 1 1 0 Is that all? YES Thank You OK 10 REM PROGRAM TO DEFINE PARAMETERS TO BUILD PARABOLIC SATELLITE DISH 20 REM WRITTEN BY JOHN P. ROHNER 30 REM FROM SATELLITE TVRO DIGEST - JUNE 1982 40 REM P.O. BOX 318, WEST LIBERTY, IA. 52776 50 R=D/2: R=Y 60 PRINT "PLOT THE CURVE FOR A PARABOLIC DISH" 70 INPUT "DIAMETER OF DISH IN FEET";J 80 INPUT "NUMBER OF SIDES/PETALS ";P 90 INPUT "DEPTH OF DISH IN INCHES";C 100 D=J*12: F=D*D/(16*C): B=4*D 110 E=A/B: E=F: A=R*R: M=F/D 120 PRINT "THE RATIO OF FOCAL LENGTH TO DIAMETER IS";M 130 INPUT "IS THIS THE PROPER RATIO Y OR N";T$ 140 IF T$="N" GOTO 90 150 LPRINT CHR$(12): Z=0 160 LPRINT "CURVE PLOT FOR ";J;" FOOT PARABOLIC DISH" 170 LPRINT "WITH F/D OF ";M;" AND FOCAL POINT LOCATED AT ";F;" INCHES" 180 LPRINT "USING ";P;" SIDES OR PETALS" 190 Z=Z+1: IF Z<4 THEN GOTO 210 200 LPRINT CHR$(12): Z=0 210 X=0: LPRINT 220 LPRINT "FROM CENTER","TO CURVE","IN INCHES" 230 G=Y^2: H=4*F: B=G/H 240 IF B>C+.1 GOTO 290 250 LPRINT Y,B 260 IF B>11.99 AND D(2)=0 THEN D(2)=(Y+Y) 270 Y=Y+1: X=X+1: IF X=15 THEN GOTO 190 280 GOTO 230 290 A(1)=D*3.14159 300 V=A(1)/P 310 LPRINT CHR$(12) 320 LPRINT V;" INCHES = WIDTH OF PIE SHAPE WEDGE.";P;" REQUIRED" 330 LPRINT (V)+1;" INCHES WIDE WILL GIVE ENOUGH TO OVERLAP" 340 LPRINT: LPRINT 350 LPRINT "OUTER RING" 360 B(1)=A(1)/12 370 LPRINT "CIRCUMFERENCE =";A(1)" INCHES OR ";B(1)" FEET" 380 A(3)=A(1)/P: P(1)=360/P 390 LPRINT "BEND ";P(1);" DEGREES EVERY ";A(3)" INCHES" 400 IF D(2)<=0 THEN GOTO 470 410 A(1)=D(2)*3.14159 420 LPRINT 430 D(3)=D(2)/2 440 LPRINT "NEXT RING AT ";D(3);" INCHES FROM CENTER" 450 D(2)=0 460 GOTO 360 470 END .14159 420 LPRINT 430 D(3)=D(2)/2 440 LPRIN ` 5106 PLL CODING PROGRAMU` PROGRAM WILL GENERATE PROGRAM FOR USING A X5106 TYPE PLL CONTROLLER` ALSO USEFUL FOR THE ENTIRE MC1451XX OR NAT. 551XX SERIES CONTROLLERS`( INCLUDES THE CONVERSION TO HEX FOR PROM LOADING`2 FROM JOHN ROHNERa< SATELLITE TVRO DIGEST, P.O. BOX 3185aF WEST LIBERTY, IA. 52776NaP A = DIVIDER NUMBERpaZ B = STARTING LOW FREQUENCY ad C = STEPING FREQ IN MHZan D = NUMBER OF STEPSax E = PLL STEP FREQa F1 = INTERMEDIATE FREQUENCYa F2 = DIVIDER N NUMBERb Q = N STEP FOR PLL-b F3(): P()Bb C : D eb "PLL CONTROLLER N GENERATOR"|b "P DIVIDE BY ",Ab "CRYSTAL FREQ. MHZ? ",E1b "REF DIVIDER 1024 OR 2048? ",E2bE E1E2b "STARTING FREQ. IN MHZ ",B4c "CHART FOR "A" DIVIDER - STARTING AT "B" WITH PLL STEPS OF "E:cc "TR OSC FREQ","INPUT FREQ","DIVIDER N"; " P N 9 8 7 6 5 4 3 2 1"c I  DcF1 B Ac"F2 F1 Ec,S1 : S F2c6 J  c@P(J)dJ SS1 hdTS S S1d^P(J)+dhS1 S1 3dr JCd| B, F1, F2d I;)B, F1, F2,P();P();P();P();P();P();P();P();P()dF3(I) F2dB B Cd Id: d "DO YOU WANT TO REVERSE N ",A$d A$ "N"  e "LOAD INTEGERS? ",A$"e A$ "N" 2e I  DIe "CHANNEL ",F3(I)Qe I[e &ye "STARTING N NUMBER ",F2eF4 F2e "STEP ",Qe& I  De0 F4  F2 (F3(I))e:F1 F2 EeDB F1 AeN I, B, F1, F2fX I, B, F1, F2fbF2 F2 Q fl I)fv: 3f 9f3(I))e:F1 F2 EeDB F1 AeN I, B10 REM THIS IS AN OLDY BUT STILL VERY USEFUL IF DESIGNING YOUR OWN 20 REM FROM JOHN ROHNER 30 REM SATELLITE TVRO DIGEST, P.O. BOX 318 40 REM WEST LIBERTY, IA. 52776 50 PRINT "custom designing your own high gain antenna" 60 PRINT 70 INPUT "center frequency (in megahertz) = ";F 80 PRINT">--> cubical quad antenna <--<" 90 PRINT 100 E=.985*F 110 G=1.033*F 120 D=1000/F 130 R=1032/F 140 B=118/F 150 X=(2*(R*R/64)) 160 GOSUB 720 170 S=Y 180 X=(S*S + (B*B/4)) 190 GOSUB 720 200 P=Y 210 X=((R*R/64)+75*75/(F*F*4)) 220 GOSUB 720 230 T=Y 240 X=((R*R/64) + 125*125/(F*F*4)) 250 GOSUB 720 260 U=Y 270 W=468/F 280 INPUT "DO YOU WANT HARD COPY (Y OR N)";A$ 290 IF LEFT$(A$,1)<>"Y" GOTO 330 300 CONSOLE6,0 310 PRINT">----> cubical quad antenna <----<" 320 PRINT" " 330 PRINT "the design center frequency is";F;"mhz." 340 PRINT "this 2 element quad should exhibit a standing wave ratio" 350 PRINT "of 2:1 or less over the frequency range from";E;"to" 360 PRINT G;"mhz when used with 50 to 75 ohm feed line." 370 PRINT 380 PRINT "the boom length can vary between";75/F;"feet and" 390 PRINT 125/F;"feet with little effect. a length of";B 400 PRINT "feet is optimum." 410 PRINT 420 PRINT "total length of the wire in the driven element is";D 430 PRINT "feet, which comes to";D/4;"feet on each side." 440 PRINT 450 PRINT "total length of wire in the reflection element is";R 460 PRINT "feet, which is";R/4;" feet on each side." 470 PRINT 480 PRINT "the minimum length of bamboo, fiberglass or other" 490 PRINT "will be";S;"feet, measured from the center of the" 500 PRINT "boom. if a spider (boomless) quad mount is used" 510 PRINT "each spreader will have to be at least";P;"feet." 520 PRINT 530 PRINT "the turning radius (for tree clearance, etc)" 540 PRINT "will vary between";T;"feet and";U;"feet, depending" 550 PRINT "on the length of the boom." 560 PRINT 570 PRINT "this quad antenna will work well even at low heigths" 580 PRINT "above the ground, but it works best when up in the" 590 PRINT "air a half-wavelength --- ";W;"feet, or more" 600 PRINT 610 PRINT "the front-to-back ratio (ability to reduce" 620 PRINT "unwanted signals from the opposite direction)" 630 PRINT "should exceed 10 decibels from about" 640 PRINT 97*F;"to";1.03*F;"megAHertz." 650 PRINT "approaching 25 db at";F;"megahertz." 660 PRINT 670 IF A$="Y" THEN CONSOLE0,0 680 INPUT "do you want another ant (Y OR N)";A$ 690 IF LEFT$(A$,1)<>"Y" GOTO 710 700 GOTO 50 710 END 720 REM 730 IF X>=0 GOTO 760 740 PRINT "no such thing as square root of negative numbersz 750 END 760 Y=X/2 770 Z=0 780 W=(X/Y - Y)/2 790 IF W=0 GOTO 830 800 IF W=Z GOTO 830 810 Y=Y+W:Z=W 820 GOTO 780 830 RETURN END 760 Y=X/2 770 Z=0 780 W=(X/Y - Y)/2 790 IF W=0 GOTO 830 800 IF W=Z GOTO10 REM COMPUTE SATELLITE TVRO ANTENNA AIMING COORDINATES 20 REM WRITTEN BY JOHN P. ROHNER JANUARY,1978 30 REM FROM: SATELLITE TVRO DIGEST, NOV. 1981 40 REM P.O. BOX 318, WEST LIBERTY, IA. 52776 50 REM CONSTANTS - RS IS IN NAUTICAL MILES - USE 42166 FOR KM 60 K=6.61 : PI=3.1415927# : RS=22766 70 REM BASIC COMPUTES IN RADIANS SO THESE ARE THE CONVERSIONS TO/FROM DEGREES 80 DEF FNRAD(X)=X*PI/180 90 DEF FNDEG(X)=X*180/PI 100 DEF FNACSN(X)=-ATN(X/SQR(-X*X+1))+PI/2 110 REM INPUT ANTENNA COORDINATES IN DEGREES (99.99) NO MINUTES/SECONDS 120 INPUT "ANTENNA LATITUDE ";AD 130 INPUT "ANTENNA LONGITUDE ";HD 140 LPRINT CHR$(12) 150 PRINT "AIMING CHART FOR LATITUDE ",AD," LONGITUDE ",HD 160 LPRINT "AIMING CHART FOR LATITUDE ",AD," LONGITUDE ",HD 170 PRINT:LPRINT 180 PRINT "SATELLITE","LOCATION","BEARING","ELEVATION","RANGE" 190 LPRINT "SATELLITE","LOCATION","BEARING","ELEVATION","RANGE" 200 PRINT:LPRINT 210 REM I = NUMBER OF DATA ENTRIES (NAME,LOC) TO BE PROCESSED 220 FOR I=1 TO 20 230 READ SN$,SL 240 W=FNRAD(SL) : H=FNRAD(HD) : A=FNRAD(AD) 250 L=(H-W) 260 D=FNACSN(COS(A)*COS(L)) 270 REM C = TRUE AZIMUTH 280 C=FNACSN(-TAN(A)/TAN(D)) 290 IF L<0 THEN C=2*PI-C 300 CD=FNDEG(C) 310 REM EL = ELEVATION BEARING 320 EL=ATN((COS(D)-(1/K))/SQR(1-COS(D)*COS(D))) 330 Y=FNDEG(EL) 340 REM RG = RANGE TO SATELLITE 350 RG=RS*SQR(1-(2/K)*COS(D)+(1/(K*K))) 360 PRINT SN$,SL,CD,Y,RG 370 LPRINT SN$,SL,CD,Y,RG 380 NEXT I 390 END 400 DATA SATCOM F5,143,SATCOM F1R,139,GALAXY 1,135,SATCOM 3R,131,COMSTAR D4,127 410 DATA WESTAR 5,123,SATCOM 2,119,ANIK 2 + 3,114,ANIK B,109,ANIK D,104 420 DATA WESTAR 4,99,COMSTAR D2,95,WESTAR 3,91,COMSTAR 3,87,SATCOM 4,83 430 DATA WESTAR 1,79,GALAXY 2,74,INTELSAT 3,34,INTELSAT 2,29.5,INTELSAT I,24.5 AR D2,95,WESTAR 3,91,COMSTA10 REM COMPUTE WAVE LENGTH IN INCHES, THEN BY DEGREES NEEDED 20 REM FINALLY COMPUTE LENGTH OF LINE OR COAX FOR THE VELOCITY CONST. 30 REM THE LATTER USEFUL FOR QUADRATURE TYPE FM DETECTORS 40 REM LIKE THOSE NEEDED FOR SATELLITE RECEIVERS 50 REM FROM JOHN ROHNER 60 REM SATELLITE TVRO DIGEST, P.O. BOX 318 70 REM WEST LIBERTY, IA. 52776 80 INPUT "FREQUENCY IN GHZ ";A 90 WI = 11.8 / A 100 PRINT "WAVE LENTH IN INCHES ";WI 110 D = WI / 360 120 INPUT "NNMBER OF DEGREES NEEDED ";ND 130 L = ND * D 140 PRINT ND;" DEGREES = INCHES ";USING "##.###";L 150 INPUT "VELOCITY CONSTANT";VC 160 LR = L * VC 170 PRINT "LENGTH OF RUN = ";LR 180 END REES = INCHES ";USING "##.###";L 150 INPUT "VELOCITY CONSTANT";VC 160 LR = L * VC 170 PRINT "LENGTH OF RUN = ";L