10 REM filtmenu.bas
20 REM THIS PROG ATTEMPS TO PROVIDE A MENU OF MY FILTER DESIGN PROGRAMS
30 REM WRITTEN 5/18/1998  REV 5/30/1999  REV 1/5/2001
40 REM BY RUSS KINCAID
50 CLS: PRINT TAB(10);"FILTER DESIGN MENU"
60 PRINT:PRINT"NOTE: TABLES FOR THESE DESIGN ARE LOWPASS PROTOTYPE"
65 PRINT:PRINT"1.  L-C LOWPASS DESIGN FROM TABLES"
70 PRINT"2.  L-C BANDSTOP DESIGN FROM TABLES"
80 PRINT"3.  L-C ELLIPTIC LOW PASS & IMPROVED BANDPASS FILTER DESIGN FROM TABLES"
90 PRINT"4.  L-C ELLIPTIC LOWPASS & STANDARD BANDPASS FILTER DESIGN FROM TABLES"
100 PRINT"5.  TOP COUPLED (NARROW BAND) L-C FILTER DESIGN FROM TABLES"
110 PRINT"6.  L-C HIGH PASS FILTER DESIGN FROM LOWPASS PROTOTYPE"
125 PRINT "7.  L-C BP FILTER DESIGN FROM LP PROTOTYPE (ALLOWS TAPPED INDUCTOR)"
130 PRINT"8.  REVERSE ENGINEER A TOP COUPLED BANDPASS TO FIND PROTOTYPE"
140 PRINT"9.  REVERSE ENGINEER BANDPASS FILTER TO FIND LOWPASS PROTOTYPE"
150 PRINT"      NOTE: ACTIVE FILTER PROGS DO NOT REQUIRE TABLES"
160 PRINT"10.  ACTIVE R-C BANDPASS FILTERS WITH VARIOUS TOPOGRAPHIES"
172 PRINT"11.  ACTIVE R-C BUTTERWORTH HIPASS OR LOPASS WITH 3 POLE SECTION
175 PRINT"12.  EXIT TO DOS"
180 PRINT
200 INPUT"WHICH ONE";A
210 ON A GOTO 510,520,530,540,550,560,575,580,590,600,615,620,998
510 CHAIN "LOPASS.TXT"
520 CHAIN "BANDSTOP.TXT"
530 CHAIN "ELLIPTIC.TXT"
540 CHAIN "ELLIPBP.TXT"
550 CHAIN "CCBPDES3.TXT"
560 CHAIN "HIPASXFM.TXT"
575 CHAIN "LCBP.TXT"
580 CHAIN "REVTCBP.TXT"
590 CHAIN "BPBACK.TXT"
600 CHAIN "BNDPSS.TXT"
615 CHAIN "BUTTER.TXT"
620 GOTO 998
998 SYSTEM
999 END

    Source: geocities.com/russlk/filters

               ( geocities.com/russlk)