10 vk=.65 : tpar=10 : jtemp=25 : delta_min=.0000001 : GOSUB 600 : DIM pvr(25)
   20 RESTORE : FOR I%=1 TO 25 : READ pvr(I%) : NEXT I%
   30 DATA 10,11,12,13,15,16,18,20,22,24,27,30,33
   40 DATA 36,39,43,47,51,56,62,68,75,82,91,100
   50 FOR I%=1 TO 27 : READ menu$(I%) : NEXT I%
   60 DATA "AMP-3R-DES-5P","AMP-3R-DES-6P","AMP-3R-VAL-6P","AMP-4R-DES-5P"
   70 DATA "AMP-4R-DES-6P","AMP-4R-VAL-7P","B-S.EM.FOL-4R-DES-5P"
   80 DATA "B-S.EM.FOL-4R-VAL-8P","BRIDGED-T-ATT-4R-DES-2P","C.C.S-2R-DES-7P"
   90 DATA "D.EM.FOL-3R-DES-5P","D.EM.FOL-3R-VAL-7P","DAR.PR-4R-DES-5P"
  100 DATA "DAR.PR-4R-VAL-8P","D.SWITCH-3R-DES-5P","D.SWITCH-3R-VAL-7P"
  110 DATA "EM.FOL-2R-DES-5P","EM.FOL-2R-VAL-6P","EM.FOL-3R-DES-5P"
  120 DATA "EM.FOL-3R-VAL-7P","PI-ATT-3R-DES-2P","P.V.RES-E24-VAL"
  130 DATA "P.V.RES-E12-VAL","SWITCH-3R-DES-5P","SWITCH-3R-VAL-7P"
  140 DATA "T-ATT-3R-DES-2P","THY-3R-DES-4P"
  150 CLS : @%=&90A : PRINT TAB(37,0);"MENU:-" : PRINT
  160 FOR I%=1 TO 9 : PRINT TAB(1,I%);I%;"=";menu$(I%); : NEXT I%
  170 FOR I%=10 TO 18 : PRINT TAB(27,I%-9);I%;"=";menu$(I%); : NEXT I%
  180 FOR I%=19 TO 27 : PRINT TAB(54,I%-18);I%;"=";menu$(I%); : NEXT I%
  190 PRINT TAB(0,11)" 0 = EXIT";
  200 PRINT TAB(40,11)"29 = SET PARAMETERS (T par. & J.temp.)"
  210 INPUT "ROUTINE NUMBER=";N%
  220 IF N%<=0 THEN STOP
  230 CLS : @%=&2020A : IF N%>28 THEN PROCnew_par : GOTO 150
  240 ON N% GOSUB 1000,1100,1300,1500,1600,1800,2400,4900,2300,5200,5900,6000,2500,4500,5600,5700,2600,2700,3000,3100,3300,3400,3400,3600,3700,4200,4000,999
  250 GOTO 150
  300 DEF PROCdefaults
  310 ef=0 : INPUT "hFE=";hFE : IF hFE<10 THEN ef=1 : ENDPROC
  320 beta=1+(1/hFE) : INPUT "Vs=";Vs : IF Vs<1 THEN ef=1 : ENDPROC
  330 INPUT "Vces=";Vces : IF Vces<=0 THEN Vces=.2
  340 ENDPROC
  400 DEF PROCquery_dB : INPUT "dB=";dB : N=10^(dB/20) : ENDPROC
  500 DEF PROCnew_par
  510 INPUT "T par.=";tpar : INPUT "Junction temp.=";jtemp
  520 IF jtemp=0 THEN jtemp=25
  530 vk=.65+(.002*(25-jtemp)) : Vzn=VznT+(Tz*(jtemp-25))
  540 ENDPROC
  600 DEF FNvb(x)=vk+(.026*LN(x))
  610 DEF FNpl(x,y)=1/((1/x)+(1/y))
  620 DEF FNvz(x)=Vzn+((x-IzmAN)*Rz/1000)
  630 DEF FNvb2(x)=vk+(.026*LN(x*1000*beta*hFE))
  640 DEF FNvr2(x)=R2*(IR1R2-(k0*x))
  650 DEF FNvbd(x)=FNvb(x*beta2*hFE2*1000)+FNvb(x*beta2*beta2*hFE*1000)
  660 DEF FNr1(x)=V1*hFE*1000/((tpar+1)*x)
  670 DEF FNr2(x)=V2*hFE*1000/(tpar*x)
  680 DIM menu$(30) : R1=0 : R2=0 : R3=0 : R4=0 : VznT=0 : Tz=0
  690 ls$="***   " : lh$="###   " : rs$="   ***" : rh$="   ###" : RETURN
  700 Ib_min=delta_min/hFE : delta_Ib=1000*Ib_min : L%=INT(Ib_max/delta_Ib)+1
  710 FOR I%=1 TO L%
  720   Ib=I%*delta_Ib : V2=FNvr2(Ib) : Vbe=FNvb2(Ib)
  730   IF Vbe<V2 THEN PRINT TAB(1,15);I%; ELSE C%=I% : I%=L% 
  740 NEXT I%
  750 I%=C% : LIb=Ib-delta_Ib : delta_Ib=delta_Ib/100
  760 FOR J%=1 TO 100
  770   Ib=LIb+(J%*delta_Ib) : V2=FNvr2(Ib) : Vbe=FNvb2(Ib)
  780   IF Vbe<V2 THEN PRINT TAB(1,14);I%,J%; ELSE C%=J% : J%=100
  790 NEXT J%
  800 J%=C% : LIb=Ib-delta_Ib : delta_Ib=delta_Ib/10
  810 FOR K%=1 TO 10
  820   Ib=LIb+(K%*delta_Ib) : V2=FNvr2(Ib) : Vbe=FNvb2(Ib)
  830   IF Vbe<V2 THEN PRINT TAB(1,13);I%,J%,K%; ELSE C%=K% : K%=10
  840 NEXT K%
  850 K%=C% : RETURN
  999 PRINT "!!!!!!   NOT YET IMPLEMENTED   !!!!!!" : STOP
 1000 pn=1 : INPUT "IcmA=";IcmA : IF IcmA<=0 THEN RETURN
 1010 PROCdefaults : IF ef THEN RETURN
 1020 INPUT "V3=";V3 : IF V3<=0 THEN V3=(Vs-Vces)/2
 1030 IF V3>(Vs-Vces)/2 THEN V3=(Vs-Vces)/2
 1040 IF V3<((Vs-Vces)/3) THEN V3=(Vs-Vces)/3
 1050 Vce=V3+Vces : V4=Vs-V3-Vce : re=26/IcmA : IemA=IcmA*beta
 1060 R3=V3*1000/IemA : R4=V4*1000/IemA : Av=R3/(R4+re)
 1070 R1=0 : PROCamp_3r_com : CLS : PRINT TAB(20,0);ls$;menu$(N%);rs$ : GOTO 9000
 1100 pn=1 : INPUT "Av=";Av : IF Av<1 THEN RETURN
 1110 INPUT "IcmA=";IcmA : IF IcmA<=0 THEN RETURN
 1120 PROCdefaults : IF ef THEN RETURN
 1130 INPUT "R3=";R3 : IF R3<=0 THEN R3=(Vs-Vces)*1000/(IcmA*beta*2*(1+(.5/Av)))
 1140 re=26/IcmA : R4=(R3/Av)-re : IF R4<.1 THEN R4=0 : re=R3/Av : IcmA=26/re
 1150 IemA=IcmA*beta : V3=R3*IemA/1000 : V4=R4*IemA/1000 : Vce=Vs-V3-V4 : IF Vce>Vces GOTO 1180
 1160 Vbe=FNvb(IemA) : V3=Vs-Vbe-V4-Vces : IcmA=V3*1000/(R3*beta) : IF R4<.1 THEN Av=R3*IcmA/26
 1170 GOTO 1140
 1180 R1=0 : PROCamp_3r_com : IF V1<0 GOTO 1160
 1190 CLS : PRINT TAB(20,0);ls$;menu$(N%);rs$ : GOTO 9000
 1200 DEF PROCamp_3r_com
 1210 ze=hFE*(R4+re) : Vbe=FNvb(IemA) : V1=Vs-V3-V4-Vbe : IF R1<.1 THEN R1=V1*hFE*1000/IcmA
 1220 Rin=1/(((Av+1)/R1)+(1/ze)) : R2=0 : V2=0
 1230 ENDPROC
 1300 pn=1 : INPUT "R1=";R1 : IF R1<.1 THEN RETURN
 1310 INPUT "R3=";R3 : IF R3<.1 THEN RETURN
 1320 INPUT "R4=";R4 : PROCdefaults : IF ef THEN RETURN
 1330 z=R3+R4+(R1/(hFE+1)) : v=FNvb(1000) : k1=(Vs-v)/z : k2=.026/z
 1340 Ie=Vs*.4/R3 : I_max=(Vs-Vces)/(R3+R4) : C%=0 : R2=0 : V2=0
 1350 new_Ie=k1-(k2*LN(Ie)) : delta_Ie=ABS(Ie-new_Ie)
 1360 IF delta_Ie<delta_min OR C%>99 GOTO 1390
 1370 Ie=(Ie+new_Ie)/2 : C%=C%+1 : IF Ie<I_max GOTO 1350
 1380 Ie=I_max : C%=C%+10000 : GOTO 1350
 1390 Ie=(Ie+new_Ie)/2 : IcmA=Ie*1000/beta : V4=R4*Ie : V3=R3*Ie
 1400 IemA=Ie*1000 : re=26/IcmA : Av=R3/(R4+re) : Vce=Vs-V4-V3 : PROCamp_3r_com
 1410 CLS : PRINT TAB(20,0);lh$;"AMP-3R-VAL-6P";rh$ : GOSUB 9000
 1420 IF C%<10000 THEN PRINT ,"after ";C%;" iterations." : GOTO 9040
 1430 PRINT TAB(17,7);"$$$$$$$$$   SATURATED!   $$$$$$$$$" : R%=3 : GOTO 9040
 1500 pn=2 : INPUT "IcmA=";IcmA : IF IcmA<=0 THEN RETURN
 1510 PROCdefaults : IF ef THEN RETURN
 1520 INPUT "V3=";V3 : IF V3<=0 THEN V3=(Vs-Vces)/2
 1530 IF V3>(Vs-Vces)/2 THEN V3=(Vs-Vces)/2
 1540 IF V3<((Vs-Vces)/3) THEN V3=(Vs-Vces)/3
 1550 Vce=V3+Vces : V4=Vs-V3-Vce : re=26/IcmA : R3=V3*1000/IcmA
 1560 IemA=IcmA*beta : R4=V4*1000/IemA : Av=R3/(R4+re)
 1570 R1=0 : R2=0 : PROCamp_4r_com
 1580 CLS : PRINT TAB(20,0);ls$;menu$(N%);rs$ : GOTO 9100
 1600 pn=2 : INPUT "Av=";Av : IF Av<1 THEN RETURN
 1610 INPUT "IcmA=";IcmA : IF IcmA<=0 THEN RETURN
 1620 PROCdefaults : IF ef THEN RETURN
 1630 INPUT "R3=";R3 : IF R3<=0 THEN R3=(Vs-Vces)*1000/(IcmA*beta*2*(1+(.5/Av)))
 1640 re=26/IcmA : R4=(R3/Av)-re : IF R4<.1 THEN R4=0 : re=R3/Av : IcmA=26/re
 1650 IemA=IcmA*beta : V3=R3*IcmA/1000 : V4=R4*IemA/1000
 1660 Vce=Vs-V3-V4 : IF Vce>Vces GOTO 1700
 1670 PRINT TAB(1,13);"Possibility of saturation - reducing IcmA!"
 1680 IcmA=.99*IcmA : IF R4<.1 THEN Av=R3*IcmA/26
 1690 GOTO 1640
 1700 R1=0 : R2=0 : PROCamp_4r_com
 1710 CLS : PRINT TAB(20,0);ls$;menu$(N%);rs$ : GOTO 9100
 1740 DEF PROCamp_4r_com
 1750 ze=hFE*(R4+re) : Vbe=FNvb(IemA) : V2=V4+Vbe : V1=Vs-V2
 1760 IF R1<.1 THEN R1=FNr1(IcmA)
 1770 IF R2<.1 THEN R2=FNr2(IcmA)
 1780 z=FNpl(R1,R2) : Rin=FNpl(z,ze)
 1790 ENDPROC
 1800 pn=2 : INPUT "R1=";R1 : IF R1<.1 THEN RETURN
 1810 INPUT "R2=";R2 : IF R2<.1 THEN RETURN
 1820 INPUT "R3=";R3 : IF R3<.1 THEN RETURN
 1830 INPUT "R4=";R4
 1840 PROCdefaults : IF ef THEN RETURN
 1850 z4=R4*beta : C%=0 : k0=R1/(R1+R2) : I_max=beta*1000*((Vs-Vces)/(R3+z4))
 1860 IR1R2=Vs/(R1+R2) : IF R4=0 GOTO 2010
 1870 z2=R2/(1+(1/tpar)) : V2=(z2*Vs)/(R1+z2) : V4=V2-vk : IF V4<=0 THEN V4=vk
 1880 IemA=1000*V4/R4
 1890 IcmA=IemA/beta : Vbe=FNvb(IemA) : Ib=IcmA/(hFE*1000)
 1900 I2=IR1R2-(k0*Ib) : V2=R2*I2 : V4=V2-Vbe : C%=C%+1
 1910 new_IemA=1000*V4/R4 : delta_IemA=ABS(IemA-new_IemA)
 1920 IF new_IemA<I_max GOTO 1940
 1930 IemA=I_max : IcmA=IemA/beta : C%=C%+10000 : GOTO 1970
 1940 IF delta_IemA<delta_min*1000 OR C%>99 GOTO 1960
 1950 IemA=(IemA+new_IemA)/2 : GOTO 1890
 1960 IemA=(IemA+new_IemA)/2 : IcmA=IemA/beta
 1970 V4=R4*IemA/1000 : re=26/IcmA : PROCamp_4r_com : Av=R3/(R4+re) : V3=R3*IcmA/1000
 1980 Vce=Vs-V3-V4 : CLS : PRINT TAB(20,0);lh$;"AMP-4R-VAL-7P";rh$
 2000 GOSUB 9100 : GOTO 1420
 2010 Ib_max=I_max/(beta*1000*hFE) : V2=FNvr2(Ib_max)
 2020 Vbe=FNvb(I_max) : IF V2>Vbe THEN C%=1 : GOTO 1930
 2030 GOSUB 700 : Vbe=(Vbe+V2)/2 : IemA=EXP((Vbe-vk)/.026) : IcmA=IemA/beta : C%=I%+J%+K% : GOTO 1970
 2100 Ib_min=delta_min*100/hFE : delta_Ib=1000*Ib_min : L%=INT(Ib_max/delta_Ib)+1
 2110 FOR I%=1 TO L%
 2120   Ib=I%*delta_Ib : V2=FNvr2(Ib) : Vbe=FNvbd(Ib)
 2130   IF Vbe<V2 GOTO 2240
 2140   LIb=Ib-delta_Ib : delta_Ib=delta_Ib/100
 2150   FOR J%=1 TO 100
 2160     Ib=LIb+(J%*delta_Ib) : V2=FNvr2(Ib) : Vbe=FNvbd(Ib)
 2170     IF Vbe<V2 GOTO 2230
 2180     LIb=Ib-delta_Ib : delta_Ib=delta_Ib/10
 2190     FOR K%=1 TO 10
 2200       Ib=LIb+(K%*delta_Ib) : V2=FNvr2(Ib) : Vbe=FNvbd(Ib)
 2210       IF Vbe>V2 THEN RETURN
 2220       PRINT TAB(1,13);I%,J%,K%; : NEXT K%
 2230     PRINT TAB(1,14);I%,J%; : NEXT J%
 2240   PRINT TAB(1,15);I%; :NEXT I%
 2250 RETURN
 2300 pn=0 : INPUT "z=";z : IF z<.1 THEN z=50
 2310 INPUT "N=";N : IF N<=0 THEN PROCquery_dB
 2320 dB=20*LOG(N)
 2330 R1=z : R4=z : R2=z*(N-1) : R3=z/(N-1)
 2340 CLS : PRINT TAB(20,0);ls$;menu$(N%);rs$
 2350 PRINT TAB(0,2);"z=";z;TAB(20,2);"N=";N;TAB(40,2);"dB=";dB
 2360 PRINT TAB(0,3);"R1=";R1;TAB(20,3);"R2=";R2;TAB(40,3);"R3=";R3;TAB(60,3);"R4=";R4
 2370 R%=1 : GOTO 9040
 2400 pn=3 : INPUT "IcmA=";IcmA : IF IcmA<=0 THEN RETURN
 2410 INPUT "Rs=";Rs : PROCdefaults : IF ef THEN RETURN
 2420 re=26/IcmA : IemA=IcmA*beta : Vbe=FNvb(IemA) : V4=(Vs-Vces)/2
 2430 R4=V4*1000/IemA : Rin=hFE*(R4+re) : Av=R4/(R4+re) : IF Rs<.1 THEN Rs=1E+07
 2440 Ib=IcmA/(hFE*1000) : R3=Vbe*5/(tpar*Ib) : V3=R3*Ib : V2=V3+Vbe+V4
 2450 R2=V2/(tpar*Ib) : V1=Vs-V2 : R1=V1/((tpar+1)*Ib)
 2460 Rout=1/((hFE/Rs)+(1/R4)) : Vce=Vs-V4
 2470 CLS : PRINT TAB(20,0);ls$;menu$(N%);rs$
 2480 GOTO 9300
 2500 pn=4 : INPUT "IcmA=";IcmA : IF IcmA<=0 THEN RETURN
 2510 INPUT "Rs=";Rs : PROCdefaults : IF ef THEN RETURN
 2520 re=26/IcmA : IemA=IcmA*beta : Vbe=FNvb(IemA) : V4=(Vs-Vces)/2 : IF Rs<.1 THEN Rs=1E+07
 2530 R4=V4*1000/IemA : IbmA=IcmA/hFE : V3=V4+Vbe : IemA2=IbmA*((2*tpar)+1)
 2540 IcmA2=IemA2/beta : Vbe2=FNvb(IemA2) : Vce=Vs-V4 : R3=V3*1000/(2*tpar*IbmA)
 2550 re2=26/IcmA2 : V2=Vbe2+V3 : R2=FNr2(IcmA2) : V1=Vs-V2
 2560 R1=FNr1(IcmA2) : z=FNpl(R1,R2) : ze=hFE*hFE*(R4+re)
 2570 ze2=hFE*(R3+re2) : zIN=FNpl(z,ze) : Rin=FNpl(zIN,ze2) : Vbe=Vbe+Vbe2
 2580 z0=FNpl(z,Rs) : Rout=1/((hFE*hFE/z0)+(1/R4)) : Av=R4*R3/((R4+re)*(R3+re2))
 2590 CLS : PRINT TAB(20,0);ls$;menu$(N%);rs$ : GOTO 9600
 2600 pn=5 : INPUT "IcmA=";IcmA : IF IcmA<=0 THEN RETURN
 2610 INPUT "Rs=";Rs : PROCdefaults : IF ef THEN RETURN
 2620 re=26/IcmA : IemA=IcmA*beta : Vbe=FNvb(IemA) : V4=(Vs-Vces)/2 : IF Rs<.1 THEN Rs=1E+07
 2630 R4=V4*1000/IemA : ze=hFE*(R4+re) : Av=R4/(R4+re) : V1=Vs-V4-Vbe
 2640 R1=V1*1000*hFE/IcmA : Rin=FNpl(R1,ze) : z=FNpl(Rin,Rs)
 2650 Rout=1/((hFE/z)+(1/R4)) : Vce=Vs-V4 : R2=0 : V2=0 : R3=0 : V3=0
 2660 CLS : PRINT TAB(20,0);ls$;menu$(N%);rs$ : GOTO 9200
 2700 pn=5 : INPUT "R1=";R1 : IF R1<.1 THEN RETURN
 2710 INPUT "R4=";R4
 2720 INPUT "Rs=";Rs : PROCdefaults : IF ef THEN RETURN
 2730 I_max=(Vs-Vces)/R4 : Ib_max=I_max/(beta*hFE) : Ib_min=delta_min/hFE : IF Rs<.1 THEN Rs=1E+07
 2740 delta_Ib=1000*Ib_min : L%=INT(Ib_max/delta_Ib)+1
 2750 FOR I%=1 TO L%
 2760   Ib=I%*delta_Ib : PROCvb4
 2770   IF Vb<v GOTO 2880
 2780   LIb=Ib-delta_Ib : delta_Ib=delta_Ib/100
 2790   FOR J%=1 TO 100
 2800     Ib=LIb+(J%*delta_Ib) : PROCvb4
 2810     IF Vb<v GOTO 2870
 2820     LIb=Ib-delta_Ib : delta_Ib=delta_Ib/10
 2830     FOR K%=1 TO 10
 2840       Ib=LIb+(K%*delta_Ib) : PROCvb4
 2850       IF Vb>v GOTO 2890
 2860       PRINT TAB(1,13);I%,J%,K%; : NEXT K%
 2870     PRINT TAB(1,14);I%,J%; : NEXT J%
 2880   PRINT TAB(1,15);I%; : NEXT I%
 2890 IcmA=Ib*hFE*1000 : IemA=IcmA*beta : V4=R4*IemA/1000 : Vbe=FNvb(IemA)
 2900 V1=Vs-Vbe-V4 : re=26/IcmA : ze=hFE*(R4+re) : Av=R4/(R4+re)
 2910 Rin=FNpl(R1,ze) : z=FNpl(Rin,Rs) : Rout=1/((hFE/z)+(1/R4))
 2920 Vce=Vs-V4 : C%=I%+J%+K% : R2=0 : V2=0 : R3=0 : V3=0
 2930 CLS : PRINT TAB(20,0);lh$;"EM.FOL-2R-VAL-6P";rh$ : GOSUB 9200 : GOTO 1420
 2940 DEF PROCvb4
 2950 v=Vs-(R1*Ib) : IcmA=Ib*hFE*1000 : IemA=IcmA*beta : V4=R4*IemA/1000
 2960 Vbe=FNvb(IemA) : Vb=V4+Vbe
 2970 ENDPROC
 3000 pn=6 : INPUT "IcmA=";IcmA : IF IcmA<=0 THEN RETURN
 3010 INPUT "Rs=";Rs : PROCdefaults : IF ef THEN RETURN
 3020 re=26/IcmA : IemA=IcmA*beta : Vbe=FNvb(IemA) : V4=(Vs-Vces)/2
 3030 R4=V4*1000/IemA : ze=hFE*(R4+re) : Av=R4/(R4+re) : V2=Vbe+V4 : IF Rs<.1 THEN Rs=1E+07
 3040 R2=FNr2(IcmA) : V1=Vs-V2 : R1=FNr1(IcmA)
 3050 z=FNpl(R1,R2) : Rin=FNpl(z,ze) : z0=FNpl(z,Rs)
 3060 Rout=1/((hFE/z0)+(1/R4)) : Vce=Vs-V4 : R3=0 : V3=0
 3070 CLS : PRINT TAB(20,0);ls$;menu$(N%);rs$ : GOTO 9300
 3100 pn=6 : INPUT "R1=";R1 : IF R1<.1 THEN RETURN
 3110 INPUT "R2=";R2 : IF R2<.1 THEN RETURN
 3120 INPUT "R4=";R4
 3130 INPUT "Rs=";Rs : PROCdefaults : IF ef THEN RETURN
 3140 IR1R2=Vs/(R1+R2) : k0=R1/(R1+R2) : z=R2/(1+(1/tpar)) : V2=Vs*z/(R1+z)
 3150 V4=V2-vk : C%=0 : IF V4<=0 THEN V4=vk
 3160 IemA=1000*V4/R4 : IF Rs<.1 THEN Rs=1E+07
 3170 IcmA=IemA/beta : Vbe=FNvb(IemA) : Ib=IcmA/(hFE*1000) : V2=FNvr2(Ib)
 3180 V4=V2-Vbe : new_IemA=1000*V4/R4 : C%=C%+1 : delta_IemA=ABS(IemA-new_IemA)
 3190 IF delta_IemA<delta_min*1000 OR C%>99 GOTO 3210
 3200 IemA=(IemA+new_IemA)/2 : GOTO 3170
 3210 IemA=(IemA+new_IemA)/2 : IcmA=IemA/beta : V4=R4*IemA/1000 : Vbe=FNvb(IemA)
 3220 V2=V4+Vbe : V1=Vs-V2 : Vce=Vs-V4 : re=26/IcmA : ze=hFE*(R4+re)
 3230 Av=R4/(R4+re) : z=FNpl(R1,R2) : Rin=FNpl(z,ze) : z0=FNpl(z,Rs)
 3240 Rout=1/((hFE/z0)+(1/R4)) : R3=0 : V3=0
 3250 CLS : PRINT TAB(20,0);lh$;"EM.FOL-3R-VAL-7P";rh$ : GOSUB 9300 : GOTO 1420
 3300 pn=10 : INPUT "z=";z : IF z<.1 THEN z=50
 3310 INPUT "N=";N : IF N<=0 THEN PROCquery_dB
 3320 dB=20*LOG(N)
 3330 R1=z*(N+1)/(N-1) : R3=R1 : R2=z*((N*N)-1)/(2*N)
 3340 CLS : PRINT TAB(20,0);ls$;menu$(N%);rs$
 3350 PRINT TAB(0,2);"z=";z;TAB(20,2);"N=";N;TAB(40,2);"dB=";dB
 3360 PRINT TAB(0,3);"R1=";R1;TAB(20,3);"R2=";R2;TAB(40,3);"R3=";R3
 3370 R%=4 : GOTO 9040
 3400 J%=1 : IF N%=23 THEN J%=2
 3410 r=R1 : PROCpreval : R1=r
 3420 r=R2 : PROCpreval : R2=r
 3430 r=R3 : PROCpreval : R3=r
 3440 r=R4 : PROCpreval : R4=r
 3450 ON pn GOTO 1330,1850,4950,4550,2730,3140,3750,4110,4300,4400,5340,5760,6050
 3460 RETURN
 3495 DEF PROCpreval
 3500 m=.01 : IF r<.1 THEN r=0 : ENDPROC
 3510 FOR I%=0 TO 9
 3520   IF r>10^I% THEN m=10^(I%-1)
 3530 NEXT I%
 3540 FOR I%=1 TO 24 STEP J%
 3550   rl=pvr(I%)*m : ru=pvr(I%+J%)*m : IF r<=rl THEN I%=25 : GOTO 3580
 3560   IF r>ru GOTO 3580
 3570   dl=r-rl : du=ru-r : r=ru : IF dl<du THEN r=rl
 3580 NEXT I%
 3590 ENDPROC
 3600 pn=7 : PROCdefaults : IF ef THEN RETURN
 3610 INPUT "Vd=";Vd : IF Vd<1 THEN Vd=Vs
 3620 INPUT "IsmA=";IsmA : IF IsmA>0 GOTO 3640
 3630 INPUT "R3=";R3 : IsmA=(Vs-Vces)*1000/R3 : GOTO 3650
 3640 R3=(Vs-Vces)*1000/IsmA
 3650 IemA=IsmA*beta : Vbe=FNvb(IemA) : I2=IsmA/(hFE*1000) : R2=Vbe/(tpar*I2)
 3660 V3=Vs-Vces : V2=Vbe : V1=Vd-V2 : R1=V1/(I2+(I2*tpar)) : R4=0 : V4=0
 3670 Vce=Vces : IdmA=1000*V1/R1 : CLS : PRINT TAB(20,0);ls$;menu$(N%);rs$
 3680 GOTO 9400
 3700 pn=7 : INPUT "R1=";R1 : IF R1<.1 THEN RETURN
 3710 INPUT "R2=";R2 : IF R2<.1 THEN RETURN
 3720 INPUT "R3=";R3 : IF R3<.1 THEN RETURN
 3730 R4=0 : V4=0 : PROCdefaults : IF ef THEN RETURN
 3740 INPUT "Vd=";Vd : IF Vd<1 THEN Vd=Vs
 3750 k0=R1/(R1+R2) : I_max=beta*1000*(Vs-Vces)/R3 : IR1R2=Vd/(R1+R2)
 3760 Ib_max=I_max/(beta*1000*hFE) : V2=FNvr2(Ib_max) : Vbe=FNvb2(Ib_max)
 3770 IF V2>Vbe GOTO 3800
 3780 GOSUB 700 : Vbe=(Vbe+V2)/2 : V2=Vbe : IemA=EXP((Vbe-vk)/.026) : IsmA=IemA/beta
 3790 C%=I%+J%+K% : GOTO 3810
 3800 IsmA=I_max/beta : C%=10001
 3810 V3=R3*IsmA/1000 : V1=Vd-V2 : IdmA=1000*V1/R1 : Vce=Vs-V3
 3820 CLS : PRINT TAB(20,0);lh$;"SWITCH-3R-VAL-7P";rh$
 3830 GOSUB 9400 : GOTO 1420
 4000 pn=8 : INPUT "Vg=";Vg : IF Vg<=0 THEN RETURN
 4010 INPUT "IgmA=";IgmA : IF IgmA<=0 THEN RETURN
 4020 Rg=1000*Vg/IgmA : INPUT "Vs=";Vs : IF Vs<(Vg*2) THEN Vs=Vg*2
 4030 INPUT "Vces(of Drive Transistor)=";Vces : IF Vces<=0 THEN Vces=.2
 4040 R3=tpar*Rg : R2=1000*(Vs-Vg)/(IgmA+(IgmA/tpar))
 4050 R1=R2*(tpar-1)/tpar : R2=R2/tpar
 4060 IsmA=1000*(Vs-Vces)/R1 : r=FNpl(R3,Rg) : V3=Vs*r/(R1+R2+r)
 4070 CLS : PRINT TAB(20,0);ls$;menu$(N%);rs$
 4080 PRINT TAB(0,2);"Vg=";Vg;TAB(20,2);"IgmA=";IgmA;TAB(40,2);"T par.=";tpar
 4090 PRINT TAB(0,3);"R1=";R1;TAB(20,3);"R2=";R2;TAB(40,3);"R3=";R3;TAB(60,3);"Rg=";Rg
 4100 PRINT TAB(0,4);"Vs=";Vs;TAB(20,4);"V3=";V3;TAB(40,4);"Vces(DT)=";Vces;
 4105 PRINT TAB(60,4);"IsmA(DT)=";IsmA : R%=4 : GOTO 9040
 4110 IsmA=1000*(Vs-Vces)/R1 : r=FNpl(R3,Rg) : V3=Vs*r/(R1+R2+r)
 4120 CLS : PRINT TAB(20,0);lh$;"THY-3R-PRE.VAL";rh$ : GOTO 4080
 4200 pn=9 : INPUT "z=";z : IF z<.1 THEN z=50
 4210 INPUT "N=";N : IF N<=0 THEN PROCquery_dB
 4220 dB=20*LOG(N)
 4230 R1=z*(N-1)/(N+1) : R3=R1 : R2=z*2*N/((N*N)-1)
 4240 CLS : PRINT TAB(20,0);ls$;menu$(N%);rs$ : GOTO 3350
 4300 R4=FNpl(R2,(R3+z)) : z0=R1+R4 : V1=z0/(z+z0) : V2=V1*R4/(R1+R4)
 4310 V3=V2*z/(R3+z) : N=.5/V3 : dB=20*LOG(N) : z=z0
 4320 CLS : PRINT TAB(20,0);lh$;"T.ATT-3R-PRE.VAL";rh$ : GOTO 3350
 4400 R4=FNpl(R3,z) : z0=FNpl(R1,(R2+R4)) : V1=z0/(z+z0) : V2=V1*R4/(R2+R4)
 4410 N=.5/V2 : z=z0 : dB=20*LOG(N)
 4420 CLS : PRINT TAB(20,0);lh$;"PI.ATT-3R-PRE.VAL";rh$ : GOTO 3350
 4500 pn=4 : INPUT "R1=";R1 : IF R1<.1 THEN RETURN
 4510 INPUT "R2=";R2 : IF R2<.1 THEN RETURN
 4520 INPUT "R3=";R3 : IF R3<.1 THEN RETURN
 4530 INPUT "R4=";R4 : IF R4<.1 THEN RETURN
 4540 INPUT "Rs=";Rs : PROCdefaults : IF ef THEN RETURN
 4550 k0=R1/(R1+R2) : IR1R2=Vs/(R1+R2) : IemAX=(Vs-Vces)/R4 : IF Rs<.1 THEN Rs=1E+07
 4560 delta_Ie=1000*delta_min : L%=INT(IemAX/delta_Ie)+1
 4570 FOR I%=1 TO L%
 4580   Ie=I%*delta_Ie : PROCvb4d
 4590   IF Vb<V2 GOTO 4700
 4600   LIe=Ie-delta_Ie : delta_Ie=delta_Ie/100
 4610   FOR J%=1 TO 100
 4620     Ie=LIe+(J%*delta_Ie) : PROCvb4d
 4630     IF Vb<V2 GOTO 4690
 4640     LIe=Ie-delta_Ie : delta_Ie=delta_Ie/10
 4650     FOR K%=1 TO 10
 4660       Ie=LIe+(K%*delta_Ie) : PROCvb4d
 4670       IF Vb>V2 GOTO 4710
 4680       PRINT TAB(1,13);I%,J%,K%; : NEXT K%
 4690     PRINT TAB(1,14);I%,J%; : NEXT J%
 4700   PRINT TAB(1,15);I%; : NEXT I%
 4710 IemA=Ie*1000 : IcmA=IemA/beta : Vbe=FNvb(IemA) : re=26/IcmA : V4=R4*Ie
 4720 V3=V4+Vbe : Ib=IcmA/(hFE*1000) : IemA2=1000*((V3/R3)+Ib) : IcmA2=IemA2/beta
 4730 Vbe2=FNvb(IemA2) : re2=26/IcmA2 : V2=V3+Vbe2 : V1=Vs-V2 : z=FNpl(R1,R2)
 4740 ze=hFE*hFE*(R4+re) : ze2=hFE*(R3+re2) : zIN=FNpl(z,ze) : Vce=Vs-V4
 4750 Rin=FNpl(zIN,ze2) : z0=FNpl(z,Rs) : Rout=1/((hFE*hFE/z0)+(1/R4)) : Vbe=Vbe+Vbe2
 4760 Av=R4*R3/((R4+re)*(R3+re2)) : C%=I%+J%+K%
 4770 CLS : PRINT TAB(20,0);lh$;"DAR.PR-4R-VAL-8P";rh$
 4780 GOSUB 9600 : GOTO 1420
 4790 DEF PROCvb4d
 4800 V4=R4*Ie : Vbe=FNvb(Ie*1000) : Ib=Ie/(beta*hFE) : V3=V4+Vbe : I3=V3/R3
 4810 Ie2=Ib+I3 : Vbe2=FNvb(Ie2*1000) : Ib2=Ie2/(beta*hFE) : Vb=V3+Vbe2
 4820 V2=FNvr2(Ib2)
 4830 ENDPROC
 4900 pn=3 : INPUT "R1=";R1 : IF R1<.1 THEN RETURN
 4910 INPUT "R2=";R2 : IF R2<.1 THEN RETURN
 4920 INPUT "R3=";R3 : IF R3<.1 THEN RETURN
 4930 INPUT "R4=";R4 : IF R4<.1 THEN RETURN
 4940 INPUT "Rs=";Rs : PROCdefaults : IF ef THEN RETURN
 4950 k0=R1/(R1+R2) : IR1R2=Vs/(R1+R2) : IemAX=(Vs-Vces)/R4 : IF Rs<.1 THEN Rs=1E+07
 4960 delta_Ie=1000*delta_min : L%=INT(IemAX/delta_Ie)+1
 4970 FOR I%=1 TO L%
 4980   Ie=I%*delta_Ie : PROCvb4bs
 4990   IF Vb<V2 GOTO 5100
 5000   LIe=Ie-delta_Ie : delta_Ie=delta_Ie/100
 5010   FOR J%=1 TO 100
 5020     Ie=LIe+(J%*delta_Ie) : PROCvb4bs
 5030     IF Vb<V2 GOTO 5090
 5040     LIe=Ie-delta_Ie : delta_Ie=delta_Ie/10
 5050     FOR K%=1 TO 10
 5060       Ie=LIe+(K%*delta_Ie) : PROCvb4bs
 5070       IF Vb>V2 GOTO 5110
 5080       PRINT TAB(1,13);I%,J%,K%; : NEXT K%
 5090     PRINT TAB(1,14);I%,J%; : NEXT J%
 5100   PRINT TAB(1,15);I%; : NEXT I%
 5110 IemA=Ie*1000 : IcmA=IemA/beta : Vbe=FNvb(IemA) : re=26/IcmA : V4=R4*Ie
 5120 Rin=hFE*(R4+re) : Av=R4/(R4+re) : Vce=Vs-V4 : Ib=IcmA/(hFE*1000) : V3=R3*Ib
 5130 V2=V3+Vbe+V4 : V1=Vs-V2 : Rout=1/((hFE/Rs)+(1/R4)) : C%=I%+J%+K%
 5140 CLS : PRINT TAB(20,0);lh$;"B-S.EM.FOL-4R-VAL-8P";rh$
 5150 GOSUB 9300 : GOTO 1420
 5160 DEF PROCvb4bs
 5170 V4=R4*Ie : Vbe=FNvb(Ie*1000) : Ib=Ie/(beta*hFE) : V3=R3*Ib
 5180 Vb=V3+Vbe+V4 : V2=FNvr2(Ib)
 5190 ENDPROC
 5200 pn=11 : INPUT "IcmA=";IcmA : IF IcmA<=0 THEN RETURN
 5210 INPUT "Vz=";Vz : Vzn=Vz : VznT=Vz : IF Vz<1 THEN RETURN
 5220 INPUT "Rz=";Rz : INPUT "Tz=";Tz : Tz=Tz/1000
 5230 INPUT "IzmA=";IzmA : IF IzmA>0 GOTO 5250
 5240 IzmA=5 : IF Vz>24 THEN IzmA=2
 5250 INPUT "hFE=";hFE : beta=1+(1/hFE)
 5260 INPUT "Vs=";Vs : IzmAN=IzmA
 5270 IemA=IcmA*beta : Vbe=FNvb(IemA) : IbmA=IcmA/hFE : V1=Vs-Vz
 5280 R1=1000*V1/(IzmA+IbmA) : V4=Vz-Vbe : R4=1000*V4/IemA : PzmW=Vz*IzmA
 5290 CLS : PRINT TAB(20,0);ls$;menu$(N%);rs$
 5300 PRINT TAB(0,2);"IcmA=";IcmA;TAB(20,2);"hFE=";hFE;TAB(40,2);"Vs=";Vs
 5310 PRINT TAB(0,3);"IzmA=";IzmA;TAB(20,3);"Tz=";Tz*1000;TAB(40,3);"Rz=";Rz;TAB(60,3);"Vz=";Vz
 5315 PRINT TAB(0,4);"IbmA=";IbmA;TAB(20,4);"Vbe=";Vbe;TAB(60,4);"PzmW=";PzmW
 5320 PRINT TAB(0,5);"R1=";R1;TAB(60,5);"R4=";R4
 5330 PRINT TAB(0,6);"V1=";V1;TAB(60,6);"V4=";V4 : R%=4 : GOTO 9040
 5340 IemA=1000*(Vz-vk)/R4 : IbmA=IemA/(beta*hFE) : V1=Vs-Vz : IzmA=1000*V1/R1
 5350 FOR I%=1 TO 5
 5360   Vbe=FNvb(IemA) : IemA=1000*(Vz-Vbe)/R4 : IbmA=IemA/(beta*hFE)
 5370   Vz=FNvz(IzmA-IbmA) : V1=Vs-Vz : IzmA=1000*V1/R1
 5380 NEXT I%
 5390 IcmA=IemA/beta : IzmA=IzmA-IbmA : V4=R4*IemA/1000 : PzmW=Vz*IzmA
 5400 CLS : PRINT TAB(20,0);lh$;"C.C.S-2R-PRE.VAL";rh$ : GOTO 5300
 5500 DEF PROCdpr_comm
 5510 hFE2=SQR(hFE) : beta2=1+(1/hFE2) : IcmA1=IcmA/(hFE2*beta2)
 5520 FOR I%=1 TO 5 : IcmA2=IcmA-IcmA1 : IcmA1=IcmA2/(hFE2*beta2) : NEXT I%
 5530 IemA2=IcmA2*beta2 : Vbe2=FNvb(IemA2) : IemA1=IcmA2/hFE2
 5540 Vbe1=FNvb(IemA1) : Vbe=Vbe1+Vbe2
 5560 ENDPROC
 5600 pn=12 : PROCdefaults : IF ef THEN RETURN
 5610 IF Vces<2 THEN Vces=2
 5620 INPUT "Vd=";Vd : IF Vd<2 THEN Vd=Vs
 5630 INPUT "IsmA=";IsmA : IF IsmA>0 GOTO 5650
 5640 INPUT "R3=";R3 : IsmA=(Vs-Vces)*1000/R3
 5650 R3=(Vs-Vces)*1000/IsmA : IcmA=IsmA :  PROCdpr_comm
 5660 I2=IsmA/(hFE*1000) : R2=Vbe/(tpar*I2) : V3=Vs-Vces : V2=Vbe : V1=Vd-V2
 5670 R1=V1/(I2+(I2*tpar)) : R4=0 : V4=0 : Vce=Vces : IdmA=1000*V1/R1
 5680 CLS : PRINT TAB(20,0);ls$;menu$(N%);rs$
 5690 GOTO 9400
 5700 pn=12 : INPUT "R1=";R1 : IF R1<.1 THEN RETURN
 5710 INPUT "R2=";R2 : IF R2<.1 THEN RETURN
 5720 INPUT "R3=";R3 : IF R3<.1 THEN RETURN
 5730 R4=0 : V4=0 : PROCdefaults : IF ef THEN RETURN
 5740 IF Vces<2 THEN Vces=2
 5750 INPUT "Vd=";Vd : IF Vd<2 THEN Vd=Vs
 5760 k0=R1/(R1+R2) : I_max=beta*1000*(Vs-Vces)/R3 : IR1R2=Vd/(R1+R2)
 5770 Ib_max=I_max/(beta*1000*hFE) : V2=FNvr2(Ib_max) : IcmA=I_max : PROCdpr_comm
 5780 IF V2>Vbe GOTO 5830
 5790 GOSUB 2100
 5800 Vbe=(Vbe+V2)/2 : V2=Vbe : IemA1=Ib*hFE2*beta2*1000 : IemA2=IemA1*beta2*hFE2
 5810 IcmA1=IemA1/beta2 : IcmA2=IemA2/beta2 : IsmA=IcmA1+IcmA2 : C%=I%+J%+K%
 5820 GOTO 5840
 5830 IsmA=I_max/beta : C%=10001
 5840 V3=R3*IsmA/1000 : V1=Vd-V2 : IdmA=1000*V1/R1 : Vce=Vs-V3
 5850 CLS : PRINT TAB(20,0);lh$;"D.SWITCH-3R-VAL-7P";rh$
 5860 GOSUB 9400 : GOTO 1420
 5900 pn=13 : INPUT "IcmA=";IcmA : IF IcmA<=0 THEN RETURN
 5910 INPUT "Rs=";Rs : PROCdefaults : IF ef THEN RETURN
 5920 PROCdpr_comm : IF Vces<2 THEN Vces=2
 5930 re2=26/IcmA2 : re1=26/IcmA1 : V4=(Vs-Vces)/2 : IF Rs<.1 THEN Rs=1E+07
 5940 R4=V4*1000/IemA2 : R3=0 :V3=0 : V2=V4+Vbe : R2=V2*hFE*1000/(tpar*IcmA)
 5950 V1=Vs-V2 : R1=V1*hFE*1000/((tpar+1)*IcmA) : z=FNpl(R1,R2)
 5960 ze2=hFE2*(R4+re2) : ze=hFE2*(re1+ze2) : Rin=FNpl(z,ze) : Vce=Vs-V4
 5970 z0=FNpl(z,Rs) : Rout=1/((hFE/z0)+(1/R4)) : Av=(R4*hFE2)/(re1+(hFE2*(re2+R4)))
 5980 CLS : PRINT TAB(20,0);ls$;menu$(N%);rs$ : GOTO 9300
 6000 pn=13 : INPUT "R1=";R1 : IF R1<.1 THEN RETURN
 6010 INPUT "R2=";R2 : IF R2<.1 THEN RETURN
 6020 INPUT "R4=";R4 : IF R4<.1 THEN RETURN
 6030 INPUT "Rs=";Rs : PROCdefaults : IF ef THEN RETURN
 6040 IF Vces<2 THEN Vces=2
 6050 IR1R2=Vs/(R1+R2) : k0=R1/(R1+R2) : z=R2/(1+(1/tpar)) : V2=Vs*z/(R1+z)
 6060 V4=V2-vk-vk : C%=0 : IF V4<0 THEN V4=2!*vk
 6070 IemA=1000*V4/R4 : IF Rs<.1 THEN Rs=1E+07
 6080 IcmA=IemA/beta : PROCdpr_comm : Ib=IcmA1/(hFE2*1000) : V2=FNvr2(Ib)
 6090 V4=V2-Vbe : new_IemA=1000*V4/R4 : C%=C%+1 : delta_IemA=ABS(IemA-new_IemA)
 6100 IF delta_IemA<delta_min*1000 OR C%>99 GOTO 6120
 6110 IemA=(IemA+new_IemA)/2 : GOTO 6080
 6120 IemA=(IemA+new_IemA)/2 : IcmA=IemA/beta : PROCdpr_comm : V4=R4*IemA/1000
 6130 V2=V4+Vbe : V1=Vs-V2 : Vce=Vs-V4 : re2=26/IcmA2 : re1 =26/IcmA1
 6140 ze2=hFE2*(R4+re2) : ze=hFE2*(re1+ze2) : z=FNpl(R1,R2) : Rin=FNpl(z,ze)
 6150 z0=FNpl(z,Rs) : Rout=1/((hFE/z0)+(1/R4)) : Av=R4*hFE2/(re1+(hFE2*(re2+R4)))
 6160 CLS : PRINT TAB(20,0);lh$;"D.EM.FOL-3R-VAL-7P";rh$ : GOSUB 9300 : GOTO 1420
 9000 PRINT TAB(0,2);"Av=";Av;TAB(20,2);"hFE=";hFE;TAB(40,2);"IcmA=";IcmA;
 9005 PRINT TAB(60,2);"Rin=";Rin; : R%=3
 9010 PRINT TAB(0,R%);"R1=";R1;TAB(20,R%);"R2=";R2;TAB(40,R%);"R3=";R3;TAB(60,R%);"R4=";R4
 9020 PRINT TAB(0,R%+1);"V1=";V1;TAB(20,R%+1);"V2=";V2;TAB(40,R%+1);"V3=";V3;TAB(60,R%+1);"V4=";V4
 9030 PRINT TAB(0,R%+2);"Vbe=";Vbe;TAB(20,R%+2);"Vce=";Vce;TAB(40,R%+2);"Vces=";Vces;TAB(60,R%+2);"Vs=";Vs
 9040 PRINT TAB(0,R%+3);"T par.=";tpar;TAB(40,R%+3);"Junction temp.=";jtemp;"C"
 9050 K$=INKEY$(10) : IF K$="" GOTO 9050
 9060 RETURN
 9100 PRINT TAB(0,2);"Av=";Av;TAB(16,2);"hFE=";hFE;TAB(32,2);"IcmA=";IcmA;TAB(48,2);"Rin=";Rin;TAB(64,2);"T par.=";tpar
 9110 GOTO 9010
 9200 PRINT TAB(0,2);"Av=";Av;TAB(20,2);"hFE=";hFE;TAB(40,2);"IcmA=";IcmA
 9210 PRINT TAB(0,3);"Rs=";Rs;TAB(20,3);"Rin=";Rin;TAB(40,3);"Rout=";Rout
 9220 R%=4 : GOTO 9010
 9300 PRINT TAB(0,2);"Av=";Av;TAB(20,2);"hFE=";hFE;TAB(40,2);"IcmA=";IcmA;TAB(60,2);"T par.=";tpar
 9310 GOTO 9210
 9400 PRINT TAB(0,2);"hFE=";hFE;TAB(20,2);"IdmA=";IdmA;TAB(40,2);"IsmA=";IsmA;TAB(60,2);"T par.=";tpar
 9410 PRINT TAB(0,3);"R1=";R1;TAB(20,3);"R2=";R2;TAB(40,3);"R3=";R3
 9420 PRINT TAB(0,4);"V1=";V1;TAB(20,4);"V2(Vbe)=";V2;TAB(40,4);"V3=";V3
 9430 PRINT TAB(0,5);"Vce=";Vce;TAB(20,5);"Vces=";Vces;TAB(40,5);"Vd=";Vd;TAB(60,5);"Vs=";Vs
 9440 R%=3 : GOTO 9040
 9600 PRINT TAB(0,2);"Av=";Av;TAB(20,2);"hFE=";hFE;TAB(40,2);"IcmA=";IcmA;TAB(60,2);"IcmA2=";IcmA2
 9610 PRINT TAB(0,3);"Rs=";Rs;TAB(20,3);"Rin=";Rin;TAB(40,3);"Rout=";Rout;TAB(60,3);"T par.=";tpar
 9620 R%=4 : GOTO 9010