ADDER MF4"=G"ADDER MF4RELCRFPRNM2c, Pj F3ٍ0Av™""gx)'!FKAY"*dX) Ls"3V&AsԌ`Eu#y=I1%E@X$@hX,n 4h1`m@ X,n/6p6LN@X$J@ 65) [ͧͨ(' LADDER NETWORK ANALYSIS PROGRAM')(' This program analyses a full ladder network for gain and phase'/' starting at the load and working towards the voltage source.'/' Any null or infinite branches must be declared as such.'/' ...report problems to Trevor Marshall,'/' SYSOP, Thousand Oaks Tech RBBS (805) 492 3693'/)(' NUMBER OF BRANCHES (including the load) ? ')(F2.0)(' R, L or C ? ')(A1)(' VALUE ? ')(E12.5)('0 OUTPUT')('0OHMS 0----R----O'/' ! !')(' HY O----L----O'/' ! !')(' FD O----C----O'/' ! !')(' OHMS !----R----!'/' ! !')(' HY !----L----!'/' ! !')(' FD !----C----!'/' ! !')(' OHMS R !'/' ! !')(' HY L !'/' ! !')(' FD C !'/' ! !')(' O INPUT O')('0FREQUENCY SWEEP STARTS AT ? ')(E12.5)('+ AND ENDS AT ? ')(F5.0)(' NUMBER OF INTERVALS ')(F3.0)('0FREQ.(HZ),MAGNITUDE (DB),PHASE (DEGREES)'/' ')C.LE.R(1))GO TO 900 1550 WRITE (3,26) P =L(F8.2,2(' ',F12.2))('0NEW SWEEP (Y/N) ? ')(A1).!p'!a'! ! ! !!{> !p'!! T" !""*"))"$!wp'*$a'*"#* {zY!"&!!(a',! =!!{>x *}2A*}!A2B!sp'!a'*}2A*}!A2B-!p'!a'*}2A*}!A2Bg!p'!a'!p'![2Aʉ!!(a'C! P!!{> !p'![2A*&))*"$!p'*$a'*&))."$!(ͧ!*$a'*&##"&!p'!!sa!Wa'*&!Wa=Ɓ2AŠ[! !.p'!a=2Aa l! !.p'!a=2A¾ !2p'!a=2Aʛ ! !2p'!a=2A¾ ! !"&*&!sa!t!Wa'!WW!Wa !a'!a=2A  *&))*p'!a=2A. ! *&))*p'!a=2A8 *&)).p'!a=2At ! *&)).p'!a=2A8 9! 8 *&))*p'!a=2A b! *&))*p'!a=2A8 *&)).p'!a=2A ! *&)).p'!a=2A8 ! *&##"&!p'!![!Wa'*&!Wa=Ɓ2A ! ! !!{> ! ;!!{> A! Z! !{> `! !p'!a'!sp'! t!Wa'!p'!t!WͶ!a'!sp'!a'!!a'!!a'!!a'!!a'!!"a'!"&!!a'!!a'!!(a'!!a'*&))*p'!a=2A !!a'*&))*p'!a=2A‡ *&)).p'!!!!*a'!a=2A+ !p'!a'!*p'!a=2A™ !!(a'*&)).p'!!!!Wa'!sp'!Wt !*a'*&))*p'!a'*&!s!t!Wa'!WW!Wa !a'/<*!p'![2A !sp'!t!a'!sp'!a'!p'![2A*!sp'!*t!*a'!p'![2AR!p'!!a'!p'![2Az!p'!*!a'!p'![2A!!a!(!Wa'!p'!!W!a'!p'![2A!ͧ!!t!!a'!͜!!a'!ͨ!!a'!p'!a'!p'![2AL!p'!!a'!p'![2At!"p'!!a'!p'![2Aʜ!p'!!a'!p'![2A!p'!!a'!p'![2A!p'!a'!p'![2A!p'!a'!p'![2A6!p'!a'!p'!"a'!p'!!Wa'!p'!!W!a'!!a'!p'![=2Aʕ!p'!t! a'!p'![=Ɓ2A!p'!t ! a'!p'?!p'!t!Wa'!W ! a'!p'![2A! p'!! a'!p'![2A?!p'!! a ! a'! p'!a'!p'!a'*&##"&!p'!!Wa'!WW"$*&*${ozg}=Ɓ2At !sp'!t!a'!ͧ!!a'!p'!!t !a'!p'!a'!!{> !p'!a2A6!p'!!a'!a=Ɓ2A& ! !!{>x *}2A{ .I@_B"4G>6:="*p'![2!!a'*p'![2!!a'*p'![2!!a'!p'p'Px>@G2N0>axw!k=*Gy'.!K0p'>ʑi.͙'͇͘'ʍ!O06Yg> (|5!>cakp'!ëp'xڶ."~ axkxd!a!a ! !d&X4#]Ip' ! QYͲ/!`Cz 8ͲZ!ia!pC!oz!x!a !׳]b5~P$L~yI p' x à'p'w ͑'͠'a{Ͳ||'! at>OQYy'#à'!N0~+>wà':N0NhFaxƁNCg!WJ QYy'͠''&|Yt&wz^Pc|u~r1y'~.>2N0!aog }}{(qnz a͇'a~#p'=x͑'͑'ʠ':N0y'/Ow͑'#͠'ȯGX"40y260Fo:C!D*K0:M0OҴN04&g.*40:60Ozҵg.*K0:M0x<={_zWxG)yOHG&͑'|'͠'Xy+F+F+Fw`h|Pgy4:K0O|g}oxG-|(}#6&ElaO"!N0~Gxpƀ'wLw+ɷ&'͇'x{|'!O06Ywgz• > (|'{>2N06&/2/0200<20>2/02/0<>2/020020~#fo"E0!Y0"/~#+!"0!9##"v:006go"0"0"0"0r!0>1(*0~#Lgo"0*0~#Zgo"0*0~#fo"0*0~#for"02102B02D02>02 020go"0"/'*0|ʪ#*0"20(q".2/2/2/2/<2D0:/0>l % > ʹ#w:0/<ʹ#=20:%0ʸ$:&0/ ʸ$ʹ#=%:0## W!=20:%05>ʹ#=.:'0GW!ʹ#5!'0Q0w# K:/0}*/DM*/"J0*/ */͜`i"/"/*/DM*0"J0*/*/ ͜`i"/y:&0*J0+}|:/0*J0"/>l */à>l */"J0*/àw#=Ÿ*/+"/|œ<>G!/60#%!04:.00w& "#0~:> w+.w!/|S}S!04#" 0|/W}/_*#0"#0>20:%0Z$:0G:>0x20:>02 0 !:>00W!!05<£:0 öE:0DW!:0!>020+-/<20W!:0_! '{0GW!}0GW!:%0Z$:0G!0:>0w.2 0:020:0G2 0!0w !:0/q*#0"!0!"#0 !04a*!0"#0 q:%0Z$:0x!0/0~w<2 02>020202 0>20 W!*0*0DM*<0K+|"<0"0#*0*0FW!*0#"0*<0+"<0|##*/DM!05A*/+}|F*/ ~2C0`i"/>7> 7T !04K:0I¯:%0=v==v=v}:0ʁ.!+0ʒ.×#‡:?0ʸ$:%0ʩ'&&ø$>2/:%0.!0:0:0: 0w~/020S&:.0ʸ$!/~w:0@!'0:%0!+0~#~+w#%!/4:-0o:?06}o:/g"-0ø$!%ð':%0=^==ʞ=k.:'0og"'0Þ*)0}ʞ#}ʞgo"+02-0>2.0$:0:0202 0 !!(0~/W+~/_>2?020! '}0o!04{¶!/:0G202 02#0s#!/" 0 !V+^ò K >00:02C0>ɯ202020 -/>2?04+7 $*/+"/!04:C0._>2020:C0[EoDt +ʃ-ˆ>2/ y20*/+"/!04Ox ڮ.> GÙ:/x/<20G!0~w[:.0͵ &&B&:C0!Q0w#wB!0:0wK :0<20 ZF, TZ>2'0K0 ø$!'0~D >T>Fw> #w#w#w>2%02&0> f > f >O}2E0O!L':E0 . .=_^#V ^#V ڢ *0|® .*0|® .*v!Q0'0w#½ !'0Q0û :D0!/wB":/0>l !05 :!0*W!!#050W!* 0F#" 0W!!0~!?0!02!0'!H!20/C!:?0-W!! 05=!.W! 0!. W!!!05H!'!*/*/{zx!#"/*/+p!05|!.: 0:<0#Ê"!10~4ʚ!. *#0"20*<0"80#!"0*0*0:/0!~'!Kw#þ!#~'!"0#~'!GW!*0#"0#!*0#"0#~'!#:10="!B04!"0×"210#*80+"80|#*20"0!104#!/6:/0f":0f"*/z_"*/6 "/͎%:/2/2/:/0~"*0"/ #!"/#!B0~ʗ"wæ"*/+"/|æ":B0="*<0|#+"<0: 0202?0202/go"'0")0"+0"-0:0!0w:/0"4*:0:&0G:%0*/'0"+0~#""/":0l *0"/ɯ2/go"'0*0*0~# ,#-C#/ ,#"02C0G0e# e#*'0T])))_!#*'0|p##x:/ʁ#o>g"'0|x!.0~w+ ‹#…#!.0~w+ž#!X0͛#©#(0!'0w#½#6 #"<0#,#/=") "'ʩ!P#:'02>0#|$.!"<020G!$$# y x$.yO!$:/01$!$ ^#V":0yN$*0"#0!"0#X$.}202 0y x$:C0.‚$#*'0}2 0*0+"0Ê".XH(AILEFGD%! %!J9 iwf:&0G*/'0:%0$+0w#$"/*<0|#Ê"!.0~{%x2/w:%0=%==%=%+>2?0>w#%'&:*0h%&>2?07԰'S&!/~w$%?%%'%`%!G0'0ͻ %'%!'0G0ͻ !04/Gͅ#!'0~#n%#%#%2/!'0w#ƒ%!04>l *<0*/"/*0DMyx#. */"/# W!*<0+"<0|º%#:&0G:020!/>w!05ͅ#͵ ͅ#B!'0~/G#~/&'2(2, j-,j-j-j-(((((͇'s#r#q#pÙ'͑'|'͙'"K0`i"M0*K0*M0DM^#V#N#F#xyè':N0:M07͘#͵ ͘#B͵ ͧ#B'͘#͘#͘#!04|/G}/O!>' '7>{_zW}o|g='|g}o(CZQ( o-yOzW{_xG(`iN#F#q#p#=4(2/"40"60`i"/2/:/l(!40_À(:/*/څ(_~#fo:/<2/W:/Ҙ(ompatible with OperatoMixing of Operand Modes Not AlloweMissi0FORTDAT+B+&+** .*....!(:E0_~):E0_!(^#V!(:E0_~!(:E0_^#V7)!!*07)! p# ])w#d):E0 () *@l*F)z™)^#V)wñ))(,)wF)s#r#6:.{zG{O7)! ~*! 6*() )! p<*ʹ*! q*(!9}|(!(:E0O s#r!7)r+s!$"(6#(d):E0G 1wx X*0#w> #w#(d)>w+)r*.*|*}ʄ*"(".S))y ʢ*ʹ*<()yw<()@*)*6,7))!(~{2E0*:L'*0m)*/*/&+w#+d,7m)*/>2/Z,? m)2(:/:/]+.>+*/~,#=c+> ,)w:(7m)2/2(++ڻ++*/&*/w"/ ʻ+}ڏ+.:(?ɷ)++)6+)+5!(/Ɓ_#>W)Z,2(>w7+)D,4!(_#>Wɇ(,>,+)6)o&C,6#<8,+)d,2()ww7):.Ok,7):.OF)4x,#4:L'=(~2E0') *7) w ʨ,#wœ,:E0_!L'(p+q= - - - - - -,:, -> T-i-2,:,*,> T-> T-*.,|-}-",". .:,a-:/*/=> T-~+F-16-> T-F-> T-~0F-> T-#~#T-=H-_>2,,}--z-z-x-x-x- .2/ͮ/ ʁ-*/&*/w"/ }ځ-.:/*/=> ͟/~+-1-> ͟/-> ͟/~ -0-> ͟/#~#͟/=- **** at address ** .!-Z.~"~".>#O!. ~͟/#~͟/:.<2.G.W.!-Z.d.W..!.~͟/#Z.|q.}q.> ß/z.Ɛ':'ß/IDF0MPIRFWITEXDOMLDZLGSQIBTLOBDEISBEINOVCNGLGSSNA2IODTBIRCEFFNDFUNOM??WvS 2.2.!.".*+ 2.!.!!""./!/*.> ͟/> ͟/P ferenced: Variables: COMMON Length Labels: Warning(s) Issued Fatal Error(s) Detected :e=*]O<2**taT2P/_*/~ ̿/#~"/ /!/^#6 #> ͟/w2e+V+^"]+V+^+"t@ !w+´TT*]"+~2-+V+^"]:TT:=:T*"<T>2:*]*t*2s:-* gV+^+aT:e*?U*7s s#r#=#U:-!s=ʈU=~iUGmUGʈU!jx~U͗UڇU++͗U7aT"t"]V+^ V+^+aT:e*