home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / design5 / amp3.asc < prev    next >
Text File  |  1987-09-27  |  13KB  |  396 lines
  1. 10 REM program calculates line and stub lengths for source and load matching networks for transistor amplifier stage
  2. 20 REM program then calculates frequency response of amplifier
  3. 30 REM PROGRAM SAVED AS "AMP3"
  4. 35 REM MARCUS STALOFF   608 NO. WASHINGTON ST.  MOORESTOWN, NJ 08057
  5. 40 DIM F(110),IL(110),RL(110),IR(110),RO(110)
  6. 50 PRINT"":PRINT""
  7. 60 PRINT"AMPLIFIER CIRCUIT ANALYSIS"
  8. 70 PRINT""
  9. 80 PRINT"NOTE: express reflection coefficient angles as +/- <= 180 degrees in accordance with SMITH CHART usage"
  10. 90 PRINT""
  11. 100 PRINT"NOTE: enter all alpha INPUT in UPPER CASE" :PRINT""
  12. 110 INPUT "SOURCE REFLECTION COEFFICIENT       ";MS,SA
  13. 120 INPUT "LOAD REFLECTION COEFFICIENT         ";ML,AL
  14. 130 INPUT "EFFECTIVE DIELECTRIC CONSTANT       ";EP
  15. 140 INPUT "DESIGN CENTER FREQUENCY, MHZ        ";FD
  16. 150 INPUT "START FREQUENCY, MHZ                ";FL
  17. 160 INPUT "STOP FREQUENCY, MHZ                 ";FH
  18. 170 INPUT "FREQUENCY INCREMENT, MHZ            ";DF
  19. 180 INPUT "DEVICE (S) PARAMETERS AT CENTER FREQUENCY - S11,S12,S21,S22                   ";C1,C2,C3,C4,C5,C6,C7,C8
  20. 190 INPUT "ENTER (S) PARAMETERS AT SWEEP EXTREMES - Y OR N";P$
  21. 200 IF P$="N" THEN 230
  22. 210 INPUT "DEVICE (S) PARAMETERS AT START FREQUENCY - S11,S12,S21,S22                    ";L1,L2,L3,L4,L5,L6,L7,L8
  23. 220 INPUT "DEVICE (S) PARAMETERS AT STOP FREQUENCY - S11,S12,S21,S22                     ";H1,H2,H3,H4,H5,H6,H7,H8 :GOTO 250
  24. 230 L1=C1:L2=C2:L3=C3:L4=C4:L5=C5:L6=C6:L7=C7:L8=C8
  25. 240 H1=C1:H2=C2:H3=C3:H4=C4:H5=C5:H6=C6:H7=C7:H8=C8
  26. 250 INPUT "DO YOU WANT SHORT (S) OR OPEN (O) STUBS";S$
  27. 260 KS=MS*MS
  28. 270 KL=ML*ML
  29. 280 K=KS:AZ=SA
  30. 290 GOSUB 2880
  31. 300 BA=BB:L=LL:S=LS
  32. 310 K=KL:AZ=AL
  33. 320 GOSUB 2880
  34. 330 BO=BB:LO=LL:SO=LS
  35. 340 LD=30000!/(2.54*FD*SQR(EP))
  36. 350 T1=S*LD
  37. 360 L9=L*LD
  38. 370 L0=LO*LD
  39. 380 T2=SO*LD
  40. 390 N=(FH-FL)/DF
  41. 400 FOR J=1 TO N+1
  42. 410 F(J)=FL+(J-1)*DF
  43. 420 IF F(J)>FD GOTO 440
  44. 430 D=L1:C=C1:G=L2:E=C2:GOTO 450
  45. 440 D=C1:C=H1:G=C2:E=H2
  46. 450 GOSUB 2810
  47. 460 M1=X:A1=Y/57.3
  48. 470 IF F(J)>FD GOTO 490
  49. 480 D=L3:C=C3:G=L4:E=C4:GOTO 500
  50. 490 D=C3:C=H3:G=C4:E=H4
  51. 500 GOSUB 2810
  52. 510 M2=X:A2=Y/57.3
  53. 520 IF F(J)>FD GOTO 540
  54. 530 D=L5:C=C5:G=L6:E=C6:GOTO 550
  55. 540 D=C5:C=H5:G=C6:E=H6
  56. 550 GOSUB 2810
  57. 560 M3=X:A3=Y/57.3
  58. 570 IF F(J)>FD GOTO 590
  59. 580 D=L7:C=C7:G=L8:E=C8:GOTO 600
  60. 590 D=C7:C=H7:G=C8:E=H8
  61. 600 GOSUB 2810
  62. 610 M4=X:A4=Y/57.3
  63. 620 B=5.319764E-04*F(J)*SQR(EP)
  64. 630 AR=1:AI=0
  65. 640 BR=0:BI=0
  66. 650 IF S$="O" THEN 670
  67. 660 CR=0:CI=-1/TAN(B*T1):GOTO 680
  68. 670 CR=0:CI=TAN(B*T1)
  69. 680 DR=1:DI=0
  70. 690 ER=COS(B*L9):EI=0
  71. 700 FR=0:F1=SIN(B*L9)
  72. 710 GR=0:GI=SIN(B*L9)
  73. 720 HR=COS(B*L9):HI=0
  74. 730 NR=COS(B*L0):NI=0
  75. 740 RO=0:OI=SIN(B*L0)
  76. 750 PR=0:PI=SIN(B*L0)
  77. 760 QR=COS(B*L0):QI=0
  78. 770 RR=1:RI=0
  79. 780 SR=0:SI=0
  80. 790 IF S$="O" THEN 810
  81. 800 TR=0:TI=-1/TAN(B*T2):GOTO 820
  82. 810 TR=0:TI=TAN(B*T2)
  83. 820 UR=1:UI=0
  84. 830 M=M1:A=A1 ' j element
  85. 840 GOSUB 2570
  86. 850 R=RV+1 :I=IV 'RE(1+S11), IM(1+S11)
  87. 860 GOSUB 2600
  88. 870 R1=MA :P1=AN '!1+S11!(1=S11
  89. 880 M=M4 :A=A4
  90. 890 GOSUB 2570
  91. 900 R=1-RV :I=-IV 'RE(1-S22), IM(1-S22)
  92. 910 GOSUB 2600
  93. 920 R2=MA :P2=AN '!1-S22!(1-S22
  94. 930 M=R1*R2 '!1+s11!*!1-s22!
  95. 940 A=P1+P2 '(1+s11+(1-s22
  96. 950 GOSUB 2570
  97. 960 X1=RV :Y1=IV 're(1+s11)*(1-s22), im(1+s11)*(1-s22)
  98. 970 M=M2*M3 :A=A2+A3
  99. 980 GOSUB 2570
  100. 990 X2=RV :Y2=IV 'res12*s21, ims12*s21
  101. 1000 R=X1+X2 :I=Y1+Y2
  102. 1010 GOSUB 2600
  103. 1020 JM=MA/(2*M3) '!j!(j=jm(ja
  104. 1030 JA=AN-A3
  105. 1040 M=JM :A=JA
  106. 1050 GOSUB 2570
  107. 1060 JR=RV :JI=IV
  108. 1070 M=M4 :A=A4 'k element
  109. 1080 GOSUB 2570
  110. 1090 R=RV+1 :I=IV 're(1+s22), im(1+s22)
  111. 1100 GOSUB 2600
  112. 1110 R3=MA :P3=AN '!1+s22!(1+s22
  113. 1120 M=R1*R3 '!1+s11!*!1+s22!
  114. 1130 A=P1+P3 '(1+s11 + (1+s22
  115. 1140 GOSUB 2570
  116. 1150 X3=RV :Y3=IV 're(1+s11)(1+s22), im(1+s11)(1+s22)
  117. 1160 R=X3-X2 :I=Y3-Y2
  118. 1170 GOSUB 2600
  119. 1180 KM=MA/(2*M3) '!k!(k=km(ka
  120. 1190 KA=AN-A3
  121. 1200 M=KM :A=KA
  122. 1210 GOSUB 2570
  123. 1220 KR=RV :KI=IV
  124. 1230 M=M1 :A=A1 'l element
  125. 1240 GOSUB 2570
  126. 1250 R=1-RV :I=-IV 're(1-s11), im(1-s11)
  127. 1260 GOSUB 2600
  128. 1270 R4=MA :P4=AN '!1-s11!(1-s11
  129. 1280 M=R4*R2 '!1-s11!*!1-s22!
  130. 1290 A=P4+P2 '(1-s11 + (1-s22
  131. 1300 GOSUB 2570
  132. 1310 X4=RV :Y4=IV 're(1-s11)(1-s22), im(1-s11)(1-s22)
  133. 1320 R=X4-X2 :I=Y4-Y2
  134. 1330 GOSUB 2600
  135. 1340 LM=MA/(2*M3) '!l!(l=lm(la
  136. 1350 LA=AN-A3
  137. 1360 M=LM :A=LA
  138. 1370 GOSUB 2570
  139. 1380 LR=RV :LI=IV
  140. 1390 M=R4*R3 'm element !1-s11!*!1+s22
  141. 1400 A=P4+P3 '(1-s11 + (1+s22!
  142. 1410 GOSUB 2570
  143. 1420 X5=RV :Y5=IV 're(1-s11)(1+s22), im (1-s11)(1+s22)
  144. 1430 R=X5+X2 :I=Y5+Y2
  145. 1440 GOSUB 2600
  146. 1450 MM=MA/(2*M3) '!m!(m=mm(mp
  147. 1460 MP=AN-A3
  148. 1470 M=MM :A=MP
  149. 1480 GOSUB 2570
  150. 1490 MR=RV :MI=IV
  151. 1500 ' start matrix multiplication
  152. 1510 ' load n matrix with r,s,t,u
  153. 1520 ' imaginary part of F denoted as IF, is assigned variable FI (IF is key wd)
  154. 1530 RE=RR :IE=RI :RF=SR :FI=SI
  155. 1540 RG=TR :IG=TI :RH=UR :IH=UI
  156. 1550 'load m matrix with n,o,p,q
  157. 1560 RA=NR :IA=NI :RB=RO :IB=OI
  158. 1570 RC=PR :IC=PI :RD=QR :ID=QI
  159. 1580 GOSUB 2680
  160. 1590 'load m matrix with j,k,l,m
  161. 1600 RA=JR :IA=JI :RB=KR :IB=KI
  162. 1610 RC=LR :IC=LI :RD=MR :ID=MI
  163. 1620 GOSUB 2680
  164. 1630 'load m matrix with e,f,g,h
  165. 1640 RA=ER :IA=EI :RB=FR :IB=F1
  166. 1650 RC=GR :IC=GI :RD=HR :ID=HI
  167. 1660 GOSUB 2680
  168. 1670 'load m matrix with a,b,c,d
  169. 1680 RA=AR :IA=AI :RB=BR :IB=BI
  170. 1690 RC=CR :IC=CI :RD=DR :ID=DI
  171. 1700 GOSUB 2680
  172. 1710 'calculate (s) parameters
  173. 1720 R=RE+RF+RG+RH
  174. 1730 I=IE+FI+IG+IH
  175. 1740 GOSUB 2600
  176. 1750 R5=1/MA:P5=-AN 'r5=!/(a+b+c+d)!,p5=(1/(a+b+c+d)
  177. 1760 R=RE+RF-RG-RH
  178. 1770 I=IE+FI-IG-IH
  179. 1780 GOSUB 2600
  180. 1790 S1=MA*R5 :S2=AN+P5 's11
  181. 1800 R=RE:I=IE
  182. 1810 GOSUB 2600
  183. 1820 R6=MA :P6=AN
  184. 1830 R=RH :I=IH
  185. 1840 GOSUB 2600
  186. 1850 M=MA*R6 :A=AN+P6
  187. 1860 GOSUB 2570
  188. 1870 XA=RV :YA=IV
  189. 1880 R=RF :I=FI
  190. 1890 GOSUB 2600
  191. 1900 R6=MA :P6=AN
  192. 1910 R=RG :I=IG
  193. 1920 GOSUB 2600
  194. 1930 M=MA*R6 :A=AN+P6
  195. 1940 GOSUB 2570
  196. 1950 XB=RV :YB=IV
  197. 1960 XT=XA-XB :YT=YA-YB
  198. 1970 R=XT :I=YT
  199. 1980 GOSUB 2600
  200. 1990 S3=MA*2*R5:S4=AN+P5  's12
  201. 2000 S5=2*R5 :S6=P5       's21
  202. 2010 R=-RE+RF-RG+RH
  203. 2020 I=-IE+FI-IG+IH
  204. 2030 GOSUB 2600
  205. 2040 S7=MA*R5 :S8=AN+P5   's22
  206. 2050 LF=10*LOG(S5^2)/LOG(10)
  207. 2060 IS1=-10*LOG(S3^2)/LOG(10)
  208. 2070 Z1=-10*LOG(S1^2)/LOG(10)
  209. 2080 Z2=-10*LOG(S7^2)/LOG(10)
  210. 2090 IL(J)=LF
  211. 2100 RL(J)=IS1
  212. 2110 IR(J)=Z1
  213. 2120 RO(J)=Z2
  214. 2130 PRINT"CALCULATING  #";J
  215. 2140 NEXT J
  216. 2150 FOR J=3 TO 5:SOUND 250*J,10:NEXT:PRINT"END OF RUN"
  217. 2160 INPUT "DO YOU WANT PLOT - Y OR N";PL$
  218. 2170 IF PL$="Y" THEN GOSUB 3380
  219. 2180 INPUT "DO YOU WANT PRINTED OUTPUT - Y OR N";PR$
  220. 2190 IF PR$="N" GOTO 3940
  221. 2200 LPRINT CHR$(14);TAB(7);"TRANSISTOR AMPLIFIER DESIGN":LPRINT""
  222. 2210 IF C$<>"Y" GOTO 2230
  223. 2220 LPRINT CHR$(14);TAB(3);"ITERATED MATCHING NETWORK PARAMETERS":LPRINT " "
  224. 2230 LPRINT ""
  225. 2240 LPRINT CHR$(14);TAB(13);"INPUT DATA":LPRINT""
  226. 2250 LPRINT TAB(5);"DESIGN CENTER FREQUENCY, FD=";FD:LPRINT""
  227. 2260 LPRINT TAB(5);"EFFECTIVE DIELECTRIC CONSTANT=";EP:LPRINT""
  228. 2270 LPRINT TAB(5);"SOURCE RC=";:LPRINT USING "#.###";MS;:LPRINT " ANG ";:LPRINT USING "###.##";SA;:LPRINT TAB(40);"LOAD RC = ";:LPRINT USING "#.###";ML;:LPRINT "  ANG  ";:LPRINT USING "###.##";AL
  229. 2280 LPRINT ""
  230. 2290 LPRINT TAB(30);"S11";TAB(41);"S12";TAB(52);"S21";TAB(62);"S22"
  231. 2300 LPRINT TAB(5);"(S) PARAMETERS @ FL=";L1;L2;L3;L4;L5;L6;L7;L8
  232. 2310 LPRINT TAB(5);"(S) PARAMETERS @ FD=";C1;C2;C3;C4;C5;C6;C7;C8
  233. 2320 LPRINT TAB(5);"(S) PARAMETERS @ FH=";H1;H2;H3;H4;H5;H6;H7;H8
  234. 2330 LPRINT "":LPRINT""
  235. 2340 LPRINT CHR$(14);TAB(10);"MATCH NETWORK DESIGN":LPRINT""
  236. 2350 LPRINT TAB(5);"INPUT STUB LENGTH (IN)=";:LPRINT USING "##.###";T1;:LPRINT TAB(40);"INPUT LINE LENGTH (IN)=";:LPRINT USING "##.###";L9
  237. 2360 LPRINT""
  238. 2370 LPRINT TAB(5);"OUTPUT LINE LENGTH (IN)=";:LPRINT USING "##.###";L0;:LPRINT TAB(40);"OUTPUT STUB LENGTH (IN)=";:LPRINT USING "##.###";T2 :LPRINT""
  239. 2380 IF S$="O" THEN 2400
  240. 2390 LPRINT TAB(5);"STUBS ARE SHORT CIRCUIT" :GOTO 2410
  241. 2400 LPRINT TAB(5);"STUBS ARE OPEN CIRCUIT"
  242. 2410 LPRINT "":LPRINT""
  243. 2420 LPRINT CHR$(14);TAB(6);"AMPLIFIER FREQUENCY RESPONSE":LPRINT""
  244. 2430 LPRINT TAB(10);"FREQ MHZ";TAB(25);"GAIN DB";TAB(40);"ISOL DB";TAB(55);"RLI DB";TAB(70);"RLO DB"
  245. 2440 LPRINT ""
  246. 2450 FOR J=1 TO N+1
  247. 2460 LPRINT TAB(10);:LPRINT USING "####.#";F(J);:LPRINT TAB(25);:LPRINT USING "##.##";IL(J);:LPRINT TAB(40);:LPRINT USING "###.##";RL(J);:LPRINT TAB(55);:LPRINT USING "##.##";IR(J);:LPRINT TAB(69);:LPRINT USING "##.##";RO(J)
  248. 2470 NEXT J
  249. 2480 LPRINT " ":LPRINT  " "
  250. 2490 INPUT "DO YOU WANT TO TUNE MATCHING NETWORK ELEMENTS - Y OR N";C$
  251. 2500 IF C$="Y" THEN 2520
  252. 2510 END
  253. 2520 INPUT "INPUT STUB LENGTH (IN)=";T1
  254. 2530 INPUT "INPUT LINE LENGTH (IN)=";L9
  255. 2540 INPUT "OUTPUT LINE LENGTH (IN)=";L0
  256. 2550 INPUT "OUTPUT STUB LENGTH (IN)=";T2
  257. 2560 GOTO 390
  258. 2570 REM polar to rectangular conversion
  259. 2580 RV=M*COS(A) :IV=M*SIN(A)
  260. 2590 RETURN
  261. 2600 REM rectangular to polar conversion
  262. 2610 MA=SQR(R^2+I^2)
  263. 2620 AN=ATN((I+1E-10)/(R+1E-10))
  264. 2630 IF R<0 THEN 2650
  265. 2640 GOTO 2670
  266. 2650 BN=AN+3.141592654#
  267. 2660 AN=BN
  268. 2670 RETURN
  269. 2680 REM load p matrix elements
  270. 2690 WR=RA*RE-IA*IE+RB*RG-IB*IG
  271. 2700 WI=RA*IE+IA*RE+RB*IG+IB*RG
  272. 2710 XR=RA*RF-IA*FI+RB*RH-IB*IH
  273. 2720 XI=RA*FI+IA*RF+RB*IH+IB*RH
  274. 2730 YR=RC*RE-IC*IE+RD*RG-ID*IG
  275. 2740 YI=RC*IE+IC*RE+RD*IG+ID*RG
  276. 2750 ZR=RC*RF-IC*FI+RD*RH-ID*IH
  277. 2760 ZI=RC*FI+IC*RF+RD*IH+ID*RH
  278. 2770 REM reload n matrix
  279. 2780 RE=WR:IE=WI:RF=XR:FI=XI
  280. 2790 RG=YR:IG=YI:RH=ZR:IH=ZI
  281. 2800 RETURN
  282. 2810 REM (s) parameter interpolation routine
  283. 2820 IF F(J)>FD GOTO 2850
  284. 2830 X=(C-D)*(F(J)-FL)/(FD-FL)+D
  285. 2840 Y=(E-G)*(F(J)-FL)/(FD-FL)+G :GOTO 2870
  286. 2850 X=(C-D)*(F(J)-FD)/(FH-FD)+D
  287. 2860 Y=(E-G)*(F(J)-FD)/(FH-FD)+G
  288. 2870 RETURN
  289. 2880 REM calculates main and stub lengths
  290. 2890 IF AZ>=0 THEN 2910
  291. 2900 AY=AZ+180 :GOTO 2920
  292. 2910 AY=AZ-180
  293. 2920 BC=SQR(8*K/(2*(1-K)))
  294. 2930 M5=(BC^4+4*BC*BC)/((4+BC*BC)^2)
  295. 2940 IF(M5-K)<.01 THEN 2960
  296. 2950 PRINT M5;K:STOP
  297. 2960 GA=ATN(2/BC)*180/3.1415926#
  298. 2970 AM=ABS(AY):MG=ABS(GA)
  299. 2980 REM case I
  300. 2990 IF AY<0 THEN 3010
  301. 3000 GOTO 3090
  302. 3010 IF AM>MG THEN 3030
  303. 3020 GOTO 3200
  304. 3030 BB=-BC
  305. 3040 LL=(AM-MG)/720
  306. 3050 IF S$="O" THEN 3070
  307. 3060 LS=.25-ATN(BC)/(2*3.1415926#) :GOTO 3370
  308. 3070 LS=.5-ATN(BC)/(2*3.1415926#)
  309. 3080 GOTO 3370
  310. 3090 REM case II
  311. 3100 IF AY>0 THEN 3120
  312. 3110 GOTO 3200
  313. 3120 IF AM>=MG THEN 3140
  314. 3130 GOTO 3290
  315. 3140 BB=-BC
  316. 3150 LL=.5-(MG+AM)/720
  317. 3160 IF S$="O" THEN 3180
  318. 3170 LS=.25-ATN(BC)/(2*3.1415926#):GOTO 3370
  319. 3180 LS=.5-ATN(BC)/(2*3.1415926#)
  320. 3190 GOTO 3370
  321. 3200 REM case III
  322. 3210 IF AY<0 THEN 3230
  323. 3220 GOTO 3290
  324. 3230 BB=BC
  325. 3240 LL=(AM+MG)/720
  326. 3250 IF S$="O" THEN 3270
  327. 3260 LS=.25+ATN(BC)/(2*3.1415926#) :GOTO 3370
  328. 3270 LS=ATN(BC)/(2*3.1415926#)
  329. 3280 GOTO 3370
  330. 3290 REM case IV
  331. 3300 IF AY>0 THEN 3320
  332. 3310 PRINT"ERROR - NO CASE FITS":STOP
  333. 3320 BB=BC
  334. 3330 LL=(MG-AM)/720
  335. 3340 IF S$="O" THEN 3360
  336. 3350 LS=.5-ATN(BC)/(2*3.1415926#):GOTO 3370
  337. 3360 LS=ATN(BC)/(2*3.1415926#)
  338. 3370 RETURN
  339. 3380 PRINT""
  340. 3390 PRINT"NOTE: USE GRAPHICS SCREEN DUMP FOR HARD COPY -- HIT ANY KEY TO RETURN TO  MENU" :PRINT""
  341. 3400 INPUT "PLOT WHICH PARAMETER - GAIN, INPUT RL, OUTPUT RL, ISOL ";PP$
  342. 3410 INPUT "WHAT IS MAX PLOT VALUE - dB";PM
  343. 3420 SCREEN 2,0
  344. 3430 KEY OFF
  345. 3440 VIEW (212,3)-(628,182)
  346. 3450 WINDOW (-2,-56)-(102,0)
  347. 3460 FOR J=0 TO 100 STEP 10
  348. 3470 LINE (J,0)-(J,-50)
  349. 3480 NEXT J
  350. 3490 LINE (100,-50)-(0,-50)
  351. 3500 FOR J=0 TO -50 STEP -10
  352. 3510 LINE (0,J)-(100,J)
  353. 3520 NEXT J
  354. 3530 LINE (0,0)-(0,-50)
  355. 3540 LOCATE 23,47
  356. 3550 PRINT "FREQUENCY - GHz"
  357. 3560 FOR I=0 TO 5
  358. 3570 LOCATE 1+I*4,23
  359. 3580 PRINT USING "###.#";PM*(1-I/5)
  360. 3590 NEXT I
  361. 3600 LOCATE 11,18 :PRINT "dB"
  362. 3610 FOR J=0 TO 10
  363. 3620 LOCATE 22,27+J*5
  364. 3630 Q=(INT((FL+(FH-FL)/10*J)/10))/100
  365. 3640 PRINT USING "#.##";Q
  366. 3650 NEXT J
  367. 3660 LOCATE 2,7:PRINT "TRANSISTOR"
  368. 3670 LOCATE 4,3
  369. 3680 PRINT "AMPLIFIER RESPONSE"
  370. 3690 PSET (0,-50+50/PM*IL(1))
  371. 3700 I=1
  372. 3710 CT=1
  373. 3720 FOR J=0 TO N
  374. 3730 IF PP$="GAIN" THEN 3770
  375. 3740 IF PP$="INPUT RL" THEN 3790
  376. 3750 IF PP$="OUTPUT RL" THEN 3800
  377. 3760 IF PP$="ISOL" THEN 3810
  378. 3770 IF IL(J+1)<0 GOTO 3830
  379. 3780 LINE -(J*100/N,-50+50/PM*IL(I)):LOCATE 9,17:PRINT "GAIN" :LOCATE 19,7:PRINT "FIGURE 1":GOTO 3820
  380. 3790 LINE -(J*100/N,-50+50/PM*IR(I)):LOCATE 9,17:PRINT "RL IN" :LOCATE 19,7:PRINT "FIGURE 2":GOTO 3820
  381. 3800 LINE -(J*100/N,-50+50/PM*RO(I)):LOCATE 9,16:PRINT "RL OUT" :LOCATE 19,7:PRINT "FIGURE 3":GOTO 3820
  382. 3810 LINE -(J*100/N,-50+50/PM*RL(I)):LOCATE 9,17:PRINT "ISOL" :LOCATE 19,7:PRINT "FIGURE 4"
  383. 3820 I=I+1
  384. 3830 NEXT J
  385. 3840 A$=INKEY$
  386. 3850 IF LEN(A$)=0 THEN 3840
  387. 3860 SCREEN 0,0
  388. 3870 KEY ON
  389. 3880 INPUT  "DO YOU WANT OTHER PLOT - Y OR N";B$
  390. 3890 IF B$="N" THEN 3900 ELSE 3400
  391. 3900 INPUT "DO YOU WANT PRINTED OUTPUT - Y OR N";PR$
  392. 3910 IF PR$="Y" GOTO 2200
  393. 3920 INPUT "DO YOU WANT TO TUNE MATCHING NETWORK ELEMENTS -                     Y OR N";C$
  394. 3930 IF C$="Y" THEN 2520
  395. 3940 END
  396.