100 '  SWR.BAS     Dan Maguire  AC6LA
110 '
120 '  Calculates Z and SWR given R+jX and optional Zo.
130 '
140 PM$ = CHR$(241)
150 COLOR 7,1
160 CLS
170 PRINT "--- SWR ---";
180   PRINT "   R";PM$;"jX converted to Z and SWR"
190 PRINT
200 '
210 PRINT "R and ";PM$;"X, separated with a comma? ";
220 INPUT "", R, X
230 '
240 INPUT "Line Zo (Ro component only) [50]"; Z0
250 IF Z0 = 0 THEN Z0 = 50
260 '
270 RHO = SQR(((R-Z0)^2 + X^2) / ((R+Z0)^2 + X^2))
280 SWR = (1 + RHO) / (1 - RHO)
290 Z = SQR(R*R + X*X)
300 '
310 PRINT TAB(40); "Z ="; USING "####.##"; Z;
320         PRINT "     SWR ="; USING "###.##"; SWR
330 '
340 PRINT: PRINT: PRINT
350 PRINT "Press any key to exit ..."
360 DUM$ = INKEY$: IF DUM$ = "" THEN GOTO 360
370 COLOR 7,0: CLS: SYSTEM