d : "INDUCTOR"n  );"****INDUCTORS****"x : "A-THIS PROGRAM COMPUTES THE INDUCTANCE OF SINGLE LAYER AIR";= " COILS GIVEN:" : " CORE DIA. No. of TURNS and WIRE SPACING." : "B-THIS PROGRAM COMPUTES THE INDUCTANCE OF ISOLATED BUSS"; " LEADS GIVEN:" : " WIDTH,THICKNESS and LENGTH." : "C-THIS PROGRAM COMPUTES THE INDUCTANCE OF ISOLATED ROUND";6 " LEADS GIVEN:" : " WIRE DIAMETER and LENGTH."T : : "SELECT A,B or C"lA$ : A$""  A$"B"  A$"C" 0 A$"A"  : );"***SINGLE-LAYER AIR COILS***" : : : : "ENTER CORE DIA. (MILS) ";CD+ : : "ENTER WIRE DIA. (MILS) ";WDS : : "ENTER NUMBER OF TURNS ";N : "SPECIFY WIRE SPACING THUS: .001 for CLOSE WOUND; 1 for 1 "; "WIRE SPACE" : );"between turns etc."" : : "ENTER WIRE SPACING ";WS, : : "ENTER FREQUENCY (MHz) ";FOV6DCDWD :LNWD(WS):LNND(D L)@Qffr(LN(ND))N((WD(FO)))) :J "INDUCTANCE =";(LNd)d;"nh; Q(unloaded)=";(Qd)dT ^ P$"Y" rh P$"N" T : rL| "CORE DIA.=";CD;"MILS; WIRE DIA.=";WD;"MILS; No. OF TURNS=";N; "; WIRE SPACING=";WS : "WIRE DIAS.; INDUCTANCE="; (LNd)d ;"nh @";(FO);"MHz Q(unloaded)=";(Qd)d  : );"***ISOLATED BUSS LEADS***"' : : "ENTER LEAD WIDTH (MILS)";LWT : : "ENTER LEAD THICKNESS (MILS)";LT : : "ENTER LEAD LENGTH (MILS)";LLWLW :TLT :LLLLS(\"L)((((L)(WT)))()()((WT)L))  : "SELF INDUCTANCE =";(LSd)d;"nh" ) P$"Y" D P$"N"  : &J "LEAD WIDTH=";LW;"MILS; LEAD THICKNESS=";LT;"MILS; LEAD LENGTH="; LL;"MILS" : "SELF INDUCTANCE=";(LSd)d;"nh"& 0 : );"***ISOLATED ROUND LEADS***"): : : "ENTER LEAD DIA. (MILS)";LDSD : : "ENTER LEAD LENGTH (MILS)";LLjNDLD :LLLXLS(\"L)(((L)(D)))b : "SELF INDUCTANCE =";(LSd)d;"nh"l v P$"Y"  P$"N" l : 3 : "LEAD DIA.=";LD;"MILS; LEAD LENGTH=";LL;"MILS; ";^ "SELF INDUCTANCE=";(LSd)d;"nh"h  : : "HARD COPY REQUIRED? (Y/N)"P$ : P$""  : : "CONTINUE? (Y/N)A$ : A$""  A$"Y" d : "MAINMENU