60 CLS
70 PI = 3.1416: ENO = 0
80 INPUT "     Er   (B) ", B
90 INPUT "     Ea   (A)  ", A
95 INPUT "     Ecz  (C)  ", C
100 INPUT "     Ec   (D)  ", D
110 INPUT "     Ez   (E)  ", E
150 F = (B * B + C * C - A * A) / (2 * B * C)
160 IF F = 0 THEN G = PI / 2: GOTO 180
170 G = ATN(SQR(1 / (F * F) - 1)): IF F < 0 THEN G = PI - G
180 H = (C * C + D * D - E * E) / (2 * C * D)
190 IF H = 0 THEN J = PI / 2: GOTO 210
200 J = ATN(SQR(1 / (H * H) - 1)): IF H < 0 THEN J = PI - J
210 K = (A * A + B * B - C * C) / (2 * A * B)
220 IF K = 0 THEN L = PI / 2: GOTO 240
230 L = ATN(SQR(1 / (K * K) - 1)): IF K < 0 THEN L = PI - L
240 M = (D * D + E * E - C * C) / (2 * D * E)
250 IF M = 0 THEN N = PI / 2: GOTO 270
260 N = ATN(SQR(1 / (M * M) - 1)): IF M < 0 THEN N = PI - N
270 Q = ATN(B / D)
280 T = B / SIN(Q)
290 ZZ = (T * T + E * E - A * A) / (2 * T * E)
300 IF ZZ = 0 THEN P = PI / 2: GOTO 320
310 P = ATN(SQR(1 / (ZZ * ZZ) - 1)): IF ZZ < 0 THEN P = PI - P
320 S = P - Q
330 IF (L + Q) > (PI / 2) THEN S = (2 * PI) - (P + Q)
340 IF H > 0 THEN X1 = D - A * SIN(L) ELSE X1 = D + A * SIN(L)
350 X2 = E * M
360 X3 = E * COS(S)
370 R1 = A * K - B
380 R2 = E * SIN(N)
390 R3 = E * SIN(S)
400 X = (X1 + X2 + X3) / 3
410 R = (R1 + R2 + R3) / 3
420 V1 = ABS(X1 - X)
430 V2 = ABS(X2 - X)
440 V3 = ABS(X3 - X)
450 W1 = ABS(R1 - R)
460 W2 = ABS(R2 - R)
470 W3 = ABS(R3 - R)
570 IF X >= 0 THEN P$ = "+": GOTO 590
580 X = -X: P$ = "-"
590 EX = INT(10 * EX + .5) / 10
600 ER = INT(10 * ER + .5) / 10
610 R = INT(10 * R + .5) / 10
620 X = INT(10 * X + .5) / 10
630 PRINT : PRINT "SOLUTION"
640 PRINT "  Resistance  "; R
650 PRINT "  Reactance ", P$; X: PRINT
660 PRINT "  ERRORS"
670 PRINT "    R= (+/-) "; ER
680 PRINT "    X= (+/-) "; EX