0 CLR
5 REM COPYRIGHT 1991 COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
100 REM * * INITIALIZE * * *
110 HD$="INDUCTOR   DESIGN[146]"
120 DIMTN(40):FORI=8TO40:READTN(I):NEXT
130 DEFFNPU(X)=3*VAL(CD$)*IN+9*IN*(X):DEFFNNN(X)=TN(GA)^2*.2*VAL(CD$)^2*X^2
140 POKE53280,0:POKE53281,0:POKE646,7
150 REM * * MENU PAGE * * *
160 PRINT"[147]"HD$
170 PRINT"PARAMETERS FOR A SINGLE-LAYER,":
180 PRINT"AIR-CORE INDUCTOR USING ENAMEL WIRE."
190 PRINT"SELECT: 1- INDUCTANCE UNKNOWN";
195 PRINT SPC(59)"2-      "CHR$(34)"     KNOWN"
200 INPUT"CHOICE:  1[157][157][157]";A$
210 IFA$<>"1"ANDA$<>"2"THEN200
220 IFA$="1"THEN260
230 PRINT"ENTER THE VALUE OF INDUCTANCE"
240 INPUT"(IN MICROHENRIES)";IN$
250 GOTO390
260 REM * * CALCULATE INDUCTANCE REQUIRED*
270 PRINT"[147]"HD$
280 PRINT"DETERMINE INDUCTANCE REQUIRED:-"
290 PRINT"SELECT 1-INDUCTANCE OF AN EXISTING COIL"
300 PRINT"2-INDUCTANCE OF A TUNED INDUCTOR"
310 INPUT"CHOICE  1[157][157][157]";B$:IFB$<>"1"ANDB$<>"2"THEN310
320 IFB$="1"THEN400
330 PRINT"[147]"HD$
340 INPUT"ENTER FREQ. IN KHZS";FR$
350 INPUT"ENTER CAPACITANCE IN MMFDS";CA$
360 IN$=STR$(INT(100*25330*10^6/(VAL(CA$)*VAL(FR$)^2)+.5)/100)
370 PRINT"INDUCTANCE REQIRED IS:":PRINT""IN$" MICROHENRIES"
380 GOSUB1310
390 IN=VAL(IN$)
400 REM * * CALCULATE INDUCTOR SIZE * *
410 PRINT"[147]"HD$:IFB$="2"ORA$="2"THEN430
420 PRINT"FOR AN EXISTING INDUCTOR ENTER ALL":PRINT"PARAMETERS.":GOTO440
430 PRINT"TO DETERMINE AN INDUCTOR SIZE ENTER":PRINT"ANY TWO PARAMETERS.
440 FL[178]0:CO[178]5:RO[178]6:[141]1270:[153]"WIRE SIZE   (AWG 8-40):"
450 RO[178]8:[141]1270:[153]"COIL DIAMETER (INCHES):"
460 RO[178]10:[141]1270:[153]"COIL LENGTH   (INCHES):"
470 CO[178]30:RO[178]6:[141]1270:[133]GA$:GA[178][197](GA$):[139]GA$[178]""[167]FL[178]FL[170]1:[137]490
480 [139]GA[179]8[176]GA[177]40[167][141]1300:[137]440
490 RO[178]8:[141]1270:[133]CD$:[139]CD$[178]""[167]FL[178]FL[170]1
500 [139]IN[177]0[175]FL[178]0[167]520
510 RO[178]10:[141]1270:[133]CL$:[139]CL$[178]""[167]FL[178]FL[170]1
520 [139]FL[175]IN$[178]""[167][141]1280:[137]440
530 [139]FL[177]1[167][153]"REQUIRE TWO PARAMETERS!":[137]440
540 [139]IN$[178]""[167]580
550 [139]GA$[178]""[167]650
560 [139]CD$[178]""[167]720
570 [139]CL$[178]""[167]820
580 IN[178][181](100[172].2[172][197](CD$)[174]2[172](TN(GA)[172][197](CL$))[174]2)
585 IN[178][181](IN[173]((3[172][197](CD$))[170](9[172][197](CL$)))[170].5)
590 IN[178]IN[173]100
600 [153]"A INDUCTOR WITH THE ABOVE PARAMETERS"
610 [153]"WILL HAVE AN INDUCTANCE OF:":[153]""IN"MICROHENRIES"
620 [153]"WITH CLOSE SPACING OF"TN(GA)[172][197](CL$)"TURNS."
630 [137]1040
640 [143] * * CALCULATE AWG# * * *
650 N[178][181](10[172][186]((3[172][197](CD$)[170]9[172][197](CL$))[172][197](IN$)[173](.2[172][197](CD$)[174]2))[170].5)[173]10
660 [129]I[178]8[164]40:[139][180](TN(I)[179]N[173][197](CL$))[167][130]
670 [153]"AN INDUCTANCE OF"IN"MICROHENRIES"
680 [153]"WILL REQUIRE"N"TURNS."
690 [153]"AWG#"I"HAS"TN(I)"PER INCH, CLOSE SPACED"
700 [153]"OR USE SMALLER AWG, LOOSELY SPACED."
710 GA[178]I:[137]1060
720 [143] * * CALCULATE DIAMETER * * *
730 N1[178]TN(GA)[172][197](CL$)
740 MF[178]N1[174]2[172].2[173]IN
750 CD[178][181](100[172](3[170][186](9[170]4[172]MF[172]9[172][197](CL$)))[173](2[172]MF)[170].5)[173]100:CD$[178][200]([196](CD),5)
760 [153]"FOR AN INDUCTANCE OF "IN$" MICROHENRIES"
770 [153]"AND THE ABOVE PARAMETERS, THE DIAMETER"
780 [153]"REQUIRED IS: "CD$" INCHES."
790 [153]"WITH"TN(GA)[172][197](CL$)"TURNS OVER "CL$" INCH.":CL[178][197](CL$):[141]1240
800 [153]"TOLERANCE "[181](1000[172](L[173][197](IN$)[171]1)[170].5)[173]10"%"
810 [137]1060
820 [143] * * CALCULATE LENGTH * *
830 RO[178]12:CO[178]10:[141]1270:[153]"DOING THE CALCULATION!":CO[178]1:[141]1270
840 [139][165]NN(1)[177][165]PU(1)[167]940
850 [129]I[178]1[164]4[169].1
860 [139][180]([165]NN(I)[171][165]PU(I))[178][171]1[167]DF[178][182]([165]NN(I)[171][165]PU(I)):[130]:[137]980
870 [139]DF[179][182]([165]NN(I)[171][165]PU(I))[167]I[178]I[171].1
880 [153]"FOR AN INDUCTANCE OF "IN$" MICROHENRIES"
890 [153]"AND THE ABOVE PARAMETERS, COIL LENGTH"
900 [153]"REQUIRED IS:"I" INCHES,":N1[178][181](10[172]TN(GA)[172]I[170].5)[173]10:CD[178][197](CD$):CL[178]I
910 [141]1240:[153]"WITH"N1"TURNS."
920 [153]"TOLERANCE "[181](1000[172](L[173][197](IN$)[171]1)[170].5)[173]10"%"
930 [153]"FOR BETTER ACCURACY TRY CUSTOM DESIGN":[137]1060
940 [129]I[178]1[164].05[169][171].05
950 [139][180]([165]NN(I)[171][165]PU(I))[178]1[167]DF[178][165]NN(I)[171][165]PU(I):[130]:[137]1010
960 [139]DF[179][182]([165]NN(I)[171][165]PU(I))[167]I[178]I[170].05
970 I[178][181](100[172]I[170].5)[173]100:[137]880
980 [153]"FOR THESE PARAMETERS THE LENGTH IS":[153]" GREATER THAN 4 INCHES. ";
990 [153]"TRY A LARGER":[153]" DIAMETER";
995 [139]GA[179]40[167][153]", AND/OR SMALLER GA."
1000 [141]1310:[137]400
1010 [153]"FOR THESE PARAMETERS THE LENGTH IS":[153]" LESS THAN .05 INCHES. ";
1020 [153]"TRY A SMALLER":[153]" DIAMETER";
1025 [139]GA[177]8[167][153]", AND/OR LARGER GA."
1030 [141]1310:[137]400
1040 [143] * * CUSTOM * * *
1050 [153]"FOR LOOSE SPACING OF FEWER TURNS SELECT":[153]"CUSTOM!"
1060 [153]"SHIFTWAIT TO END. . . CTRLWAIT CUSTOM DESIGN"
1070 [145][194](653)[137]1260,1070,1070,1090
1080 [137]1070
1090 [153]"LOADCUSTOM   "HD$
1100 [153]"AN INDUCTOR WITH:"
1110 [153]"# OF TURNS OF AWG#"GA
1120 [153]"COIL DIAMETER OF ":[153]"COIL LENGTH OF "
1130 CO[178]25:RO[178]4:[141]1270:[133]N1:RO[178]RO[170]2:[141]1270:[133]CD
1140 RO[178]RO[170]2:[141]1270:[133]CL
1150 [139]TN(GA[170]GC)[172]CL[179]N1[167]GC[178]GC[170]1
1160 [139]TN(GA[170]GC[171]1)[172]CL[178][177]N1[167]GC[178]GC[171]1
1170 [139]N1[177]TN(GA)[172]CL[170].0001[167][153]"MORE TURNS/INCH!WAIT - AWG# NOW"GA[170]GC
1180 CD[178]CD[170][181](100[172]1[173]TN(GA)[170].5)[173]100:L[178][181](100[172].2[172]CD[174]2[172]N1[174]2[173](3[172]CD[170]9[172]CL)[170].5)[173]100
1190 [153]"INDUCTANCE IS"L"UH"
1200 [153]"CHANGE :";
1210 [153][181](1000[172](L[173]IN[171]1)[170].5)[173]10"%"
1220 [137]1060
1230 [143] * CALCULATE L * * *
1240 CD[178]CD[170][181](100[172]1[173]TN(GA)[170].5)[173]100:L[178][181](100[172].2[172]CD[174]2[172]N1[174]2[173](3[172]CD[170]9[172]CL)[170].5)[173]100
1250 [142]
1260 [128]
1270 [151]783,[194](783)[175]254:[151]782,CO:[151]781,RO:[158]65520:[142]
1280 [153]"WITH INDUCTANCE UNKNOWN ALL PARAMETERS  ":CO[178]16:RO[178][194](214)
1290 [141]1270:[153]"ONREQUIRED!":[142]
1300 [153]"WIRE GAUGE IS OUTSIDE RANGE! ":[142]
1310 [153]"SHIFTWAIT TO CONTINUE!":[146]653,1:[142]
1320 [143] * * DATA STATEMENTS * * *
1330 [131]7.6,8.6,9.6,10.7,12,13.5,15,16.8
1340 [131]18.9,21.2,23.6,26.4,29.4,33.1,37,41.3
1350 [131]46.3,51.7,58,64.9,72.7,81.6,90.5,101
1360 [131]113,127,143,158,175,198,224,248,282