Nd : "FILTER1"{n );"****FILTER RESPONSE PROGRAM****"x : : R.BAIN-1985 : "PRESS #1 FOR BUTTERWORTH OR #2 FOR CHEBYSHEVA$ : A$""  );A$ : A$"2"  A$"1" < : "BUTTERWORTH FILTER ANALYSIS"` "---------------------------" : : "ENTER Num. of Poles ";NP : : "ENTER BW(3DB) IN Mhz ";BW3 : : "PRESS #1 ATTEN for GIVEN FREQ #2 FREQ for GIVEN ATTEN" B$ : B$"" : );A$ : B$"2"  : B$"1" D J\C$ : C$""  C$"2" r : C$"4" r (C$)  ATTEN AT A GIVEN FREQ FOR LOW & HIGH PASS FILTERS" C$"3" FG, : : "ENTER FREQ IN Mhz ";FA"6WFABW3 : FG WWN@A(W(NP)) :ADB((A)( ))~J : "ATTEN @";FA;"Mhz=";(ADBd)d;"DB"T : : "ANOTHER FREQ.? (Y/N)^D$ : D$"" ^h D$"Y" , : ^ r ATTEN AT GIVEN FREQ FOR BANDPASS & BANDSTOP FILTERS | C$"4" FGE : : "CENTER FREQ IN Mhz=";FCi : : "ENTER FREQ IN Mhz ";FOFXFCFO :BWX(FOFX)WBWXBW3 : FG WBW3BWXA(W(NP)) : A  ADB((A)( )) : "ATTEN @";FO;"Mhz=";(ADBd)d : > : "ATTEN @";FO;"Mhz >100 DB"a : : "ANOTHER FREQ.? (Y/N)"yE$ : E$""  E$"Y"  : ^ JC$ C$""  C$"2"  : C$"4"  (C$) % FREQ FOR A GIVEN ATTEN FOR LOW & HIGH PASS FILTERS9& C$"3" FG_0 : : "ENTER ATTEN. IN DB ";ADBq:A (ADB)DW((A))((NP)) : FG WW :FABW3WN : "FREQ @ ATTEN=";ADB;"DB is"(FAd)d;"Mhz"X : : "ANOTHER ATTEN.? (Y/N)"bD$ : D$"" b3l D$"Y" 0 : ^pv FREQ FOR A GIVEN ATTEN FOR BANDPASS & BANDSTOP FILTERS C$"4" FG : : "ENTER CENTER FREQ (Mhz)";FC : : "ENTER ATTEN IN DB ";ADBA (ADB) :WX((A))((NP))!BWXBW3WX : FG BWXBW3WXTFL(BWX((BWX)FC)) :FHFCFL : "AT ATTEN=";ADB;"DB" : : "HI FREQ.=";(FHd)d; "Mhz" : "LO FREQ.=";(FLd)d;"Mhz" : : "ANOTHER ATTEN.? (Y/N)"D$ : D$""  D$"Y"  : ^; : "CHEBYSHEV FILTER ANALYSIS"] "-------------------------" : : "ENTER Num. of Poles ";NP  : : "ENTER RIPPLE IN DB ";R :  "PRESS #1 TO INPUT BW(3DB)";();"PRESS #2 FOR EQUI-RIPPLE BW"*E$ : E$"" *&4 E$"2" z;> (E$) *cH : : "ENTER BW(3DB) IN MHz ";BW3RA () :CN(((A))( (L}R)))\KY(CN((CN)))fW((KYNP)(KYNP)) :BWRBW3Wp z : : "EQUI-RIPPLE BANDWIDTH IN MHz=";BWR" :g "PRESS #1 ATTEN for GIVEN FREQ";();"#2 FREQ for GIVEN ATTEN"B$ : B$""  B$"2"  (E$)  JC$ : C$""  C$"2" t : C$"4" t (C$) 9 ATTEN AT A GIVEN FREQ FOR LOW & HIGH PASS FILTERSM C$"3" FGq : : "ENTER FREQ IN MHz ";FO FG WFOBWR : W L : WBWRFO : W LKY((W((W))))$CN((NPKY)(NPKY)).A(( (L}R))CN)88ADB((A)( ))oB : "ATTEN @";FO;"MHz=";(ADBd)d;"DB" : VL : "ATTEN @";FO;"MHz=0 to";R;"DB"V : : "ANOTHER FREQ.? (Y/N)"`E$ : E$"" `j E$"Y"  : ^(t ATTEN AT A GIVEN FREQ FOR BANDPASS & BANDSTOP FILTERS<~ C$"4" FGe : : "ENTER CENTER FREQ (MHz)";FC : : "ENTER FREQ IN MHz ";FOFXFCFO :BWX(FOFX) : FG WBWXBW3 : W  : WBWRBWX : W  KY(W((W)))/CN((NPKY)(NPKY))aA(( (L}R))CN) : A  {ADB((A)( )) : "ATTEN @";FO;"MHz=";(ADBd)d;"DB" :  : "ATTEN @";FO;"MHz >100 DB" :   : "ATTEN @";FO;"MHz=0 to";R;"DB"(  : : "ANOTHER FREQ.? (Y/N)"@ E$ : E$""  Z  E$"Y"  : ^d  J| (C$ : C$"" ( 2 C$"2"  : C$"4"  < (E$)  F FREQ AT A GIVEN ATTEN FOR LOW & HIGH PASS FILTERS!P C$"3" FG%!Z : : "ENTER ATTEN IN DB ";ADB7!dA (ADB)[!nCN((A)( (L}R)))v!xKY(CN((CN)))!W((KYNP)EXO(KYNP)) : FG WW!FOBWRW! : "FREQ @ ATTEN=";ADB;"DB IS";(FOd)d;"MHz""D$ : D$"" !" D$"Y" Z : ^]" FREQ AT A GIVEN ATTEN FOR BANDPASS & BANDSTOP FILTERSq" C$"4" FG" : : "ENTER CENTER FREQ IN MHz";FC" : : "ENTER ATTEN IN DB ";ADB"A (ADB)"CN(((A))( (L}R)))#KY(CN((CN)))6#W((KYNP)(KYNP))X#BWXBWRW : FG BWXBWRW#FL(BWX((BWX)FC)) :FHFCFL# : "AT ATTEN=";ADB;"DB"#" : "HI FREQ=";(FHd)d;"& LO FREQ=";(FLd)d;"MHz" $, : "ANOTHER ATTEN.? (Y/N)"#$6D$ : D$"" 6G$@ D$"Y" D$ "y"  : ^$J : "PRESS #1 LOW PASS #2 BANDPASS #3 HIGHPASS #4 BANDSTOP"$T :$^ : : "CONTINUE? (Y/N)"$hF$ : F$"" h$r F$"Y" F$ "y" d%| F$"N" S$ "n" h : "MAINMENU