2750 IF S=5 THEN L6=-(L4+B(4,2)) ELSE L6=-(L4+B(1,2))
2760 R=L5
2770 I=L6
2780 GOSUB 2870
2790 L7=M
2800 L8=A
2810 GOSUB 2980
2820 IF S=5 THEN LPRINT USING "_FOR A SOURCE REFLECTION COEFFICIENT OF #.##<####";A(5,1),A(5,2) ELSE LPRINT USING "_FOR A LOAD REFLECTION COEFFICIENT OF #.##_<####";A(5,1),A(5,2)
2830 IF S=5 THEN LPRINT USING "_OUTPUT REFLECTION COEFFICIENT=#.##_<####";L7,L8*(-57.2958) ELSE LPRINT USING "_INPUT REFLECTION COEFFICIENT=#.##_<####";L7,L8*(-57.2958)
2835 CLS
2840 GOTO 130
2850 END
2870 REM************SUBRUOTINE RECTANGULAR TO POLAR*****************
2880 M=SQR(R^2+I^2)
2890 A=ATN(I/R)
2900 IF R<0 THEN A=A+3.1415926#
2910 IF A>3.1415926# THEN A=A-6.283185200000001#
2920 RETURN
2930 END
2940 REM************SUBROUTINE POLAR TO RECTANGULAR******************
2950 R=M*COS(A)
2960 I=M*SIN(A)
2970 RETURN
2980 REM************SUBROUTINE FOR PRINTING S DATA******************
2990 LPRINT
3000 FOR N=1 TO 4
3010 LPRINT USING "\ \_=##.###_<####";A$(N),A(N,1),A(N,2)