z :2016: TWOPI h!I(LOGCON 8c 2QL P : DEFAULT Q<QC FUNITY P ,: "NAME OF THE RADIO";B$5Z ,: "BOTTOM RADIO FREQUENCY";FRMIN^d ,: "TOP RADIO FREQUENCY";FRMAXn ,: "INTERMIDIATE FREQUENCY";FIFx ,: "CAPACITOR MINIMUM";CVMIN ,: "CAPACITOR MAXIMUM";CVMAXFRMID (FRMAXFRMIN)FLMIN FRMINFIFFLMID FRMIDFIF0FLMAX FRMAXFIFBFIF (FIF)VV CVMAXCVMINnD (FRMAXFRMIN)DL (FLMAXFLMIN)BMIN UNITYCVMINBMAX UNITYCVMAXC1 CVMIN(VD)(DUNITY)CRTMIN CVMINC1T2 (TWOPIFRMAX)L1 UNITY(T2CRTMIN)7T1 (TWOPIFRMID)R"CRTMID UNITY(T1L1)h,CVMID CRTMIDC16T4 (TWOPIFLMAX)@T5 (TWOPIFLMID)JC3LL CVMAX(DLUNITY)(VDL)TC3 C3LL^:h T  $t 'rC3 C3 ( ()) : INCREASE BY .1 pF\|B3 UNITYC3 : TEMP VALUECLSMIN UNITY(B3BMIN) : TEMPCLSMAX UNITY(B3BMAX) :TEMPVS CLSMAXCLSMIN :TEMP RATIO OF C3 CV<C2 CLSMIN(VSDL)(DLUNITY) :TEMP VAL FOR C2L2 UNITY(T4(C2CLSMIN)) :VAL FOR LO INDUCTORCSMID C3CVMID(C3CVMID) :CAP VAL FOR C3+MID CVARCLTMID CSMID C2 :CAP VAL FOR MID BAND]FLOMID UNITY(TWOPI((CLTMIDL2))) :RESONANT FREQUE FOR MID BANDsFERRFLOMIDFLMID FERR OLDFERR  FERR OLDFERR OLDFERRFERR ,: T TLOCAPMIN CVMINC2LOCAPMAX CVMAXC2 &FECAPMIN CVMINC180FECAPMAX CVMAXC1P:LOCAPMAXXCLSMAXC2DNL2LOCAPMIN:SN:NNSTWOPI:LOFR(zNN)NNL2LOCAPMAXX:SN:NNSTWOPI:LOMAXRF(zNN)XNL1FECAPMIN:SN:NNSTWOPI:FERFMIN(zNN)6bNL1FECAPMAX:SN:NNSTWOPI:FERFMAX(zNN)mlNL1CRTMID:SN:NNSTWOPI:JMIDRF(zNN)vNL2CLTMID:SN:NNSTWOPI:JLOMIDRF(zNN) ,: "L1"L1AL1$t ,: "AERIAL SECTION" ,#: L1A   ,: "C1 ";&  ,#: "###";C1?  ,: "FE FREQ";e  ,#: "###,###.###";FERFMIN~  ,: "FE FREQ";  ,#: "###,###.###";JMIDRF: RF MID RF  ,: "FE FREQ";  ,#: "###,###.###";FERFMAX ,: "LOCAL OSCILLATOR"# ,: "L2"4 L2AL2$tR ,#: "###.###";L2Af  ,: "C2";* ,#: "##,###";C24 ,: "C3";> ,#: "##,###";C3H ,: "LO FREQ";R ,#: "###,###.###";LOMAXRF \ ,: "LO FREQ";>f ,#: "###,###.###";JLOMIDRF: LO MID RFWp ,: "LO FREQ";zz ,#: "###,###.###";LOFR ,: "DO ANOTHER (A) QUIT (Q)";A$ A$ "A" A$ "a"  :IF A$ = "P" OR A$ ="p" THEN 1240  A$ "Q" A$ "q"  A$ "" ':J:: ) B$;() ;() k:: ) "RADIO CONSTANTS":: ) "THE LOCAL OSCILLATOR TUNES FROM";FLMIN;" TO ";FLMAX: ) "THE FRONT END TUNES FROM";FRMIN;" TO ";FRMAX ) "IF FREQUENCY IS "; FIF= ) "ORIGINAL CAPACITOR WAS";CVMIN;" TO ";CVMAXd: ) "LOCAL OSCILLATOR SECTION" ) "C2 PARALLEL CAP IS "; "###.###";C2 ) "C3 SERIES CAP IS ";$ "###.###";C3. ) "L2 INDUCTANCE IS "; 8 "###.###";L2A/ B ) "LO MINIMUM CAPACITANCE IS NOW ";K L "###.###";LOCAPMIN;a V "RES FREQ IS ";} ` "###,,##.###"; LOFR j ) "LO MID CAPACITANCE IS NOW "; t "###.###";CLTMID; ~ "RES FREQ IS ";  "###,###.###";JLOMIDRF ! ) "LO MAXIMUM CAPACITANCE IS NOW ";=! "###.###";LOCAPMAXX;T! " RES FREQ IS ";t! "###,###.###"; LOMAXRF:!: ) "FRONT END SECTION"! ) "L1 INDUCTANCE IS ";! "###.###";L1A : L'S ARE REVERSED" ) "C1 PARALLEL CAP IS ";" "###.###";C1A" ) "RF MINIMUM CAPACITANCE IS NOW ";]" "###.###";FECAPMIN;t" " RES FREQ IS ";"  "###,###.###";FERFMIN;" )"RF MID CAPACITANCE IS NOW ";CRTMID;" " RES FREQ IS ";"( "###,###.###";JMIDRF"#2 )"RF MAXIMUM CAPACITANCE IS NOW ";>#< "###.###";FECAPMAX;U#F " RES FREQ IS ";s#P "###,###.###";FERFMAX