100 ' *******************************

110 ' *  IBM PC BASIC VERSION A3.30  *

120 ' *  FILE NAME "FINAL"           *

130 ' *  DETERMINATION OF PATH       *

140 ' *  1987/10             I.KATO  *

150 ' ********************************

160 KEY OFF:CLS:SCREEN 9

170 COLOR 14

180 LOCATE 1,1:PRINT "[ITEM 29]     DETERMINATION OF SYSTEM MEETING OVERALL PERFORMANCES ":PRINT:PRINT:COLOR 7

190 PRINT "Various calculations relating to microwave relay link propagation path design   have been so far exercised.":PRINT

200 PRINT "By carrying out these tasks, link design will be systematically completed.":PRINT

210 PRINT "The essential performances will be summarized in the next display in a form of  executive summary,  these have been obtained from data previously prepared for  demonstration purpose.":PRINT:COLOR 3

230 PRINT "When you proceed the work by using Item 23 (Estimation of Propagation Path      Performances), the summary will be displayed based on your input data.":PRINT:COLOR 5

240 PRINT "Thank you for your work !!"

260 COLOR 6:LOCATE 22,20:PRINT "----- To proceed:   Hit space key -----"

270 COLOR 7:Q$=INKEY$:IF Q$<>" " THEN 270

1000 CLS:COLOR 7

1020 GOSUB 2000:GOSUB 2080

1030 LOCATE  1, 1:PRINT STRING$(80,"-")

1040 LOCATE  2, 1:PRINT "             EXECUTIVE SUMMARY                        POINT A        POINT B"

1050 LOCATE  3, 1:PRINT STRING$(80,"-")

1060 LOCATE  4, 2:PRINT "Antenna  Height(m)"

1070 LOCATE  4,54:PRINT USING "#,###.# m";H1

1080 LOCATE  4,69:PRINT USING "#,###.# m";H2

1090 LOCATE  5, 2:PRINT "Antenna elevation angle"

1100 LOCATE  5,57:PRINT USING "##.##deg";F

1110 LOCATE  5,72:PRINT USING "##.##deg";G

1120 LOCATE  6, 4:PRINT "Included angle(direct and reflected waves)"

1130 LOCATE  6,57:PRINT USING "##.##deg";X1

1140 LOCATE  6,72:PRINT USING "##.##deg";X2

1150 LOCATE  7, 4:PRINT "Antenna directivity effect"

1160 LOCATE  7,57:PRINT USING "##.# dB";XL1

1170 LOCATE  7,72:PRINT USING "##.# dB";XL2

1180 LOCATE  8, 4:PRINT "Distance(km) to reflection point"

1190 LOCATE  8,56:PRINT USING "###.# km";DDF

1200 LOCATE  8,71:PRINT USING "###.# km";D-DDF

1210 LOCATE  9, 4:PRINT "Diffraction loss of ridge"

1220 LOCATE  9,64:PRINT USING "##.# dB";RL

1230 LOCATE 10, 4:PRINT "Geographical feature at reflection point"

1240 LOCATE 10,62:PRINT VF$

1250 LOCATE 11, 4:PRINT "Reflection loss"

1260 LOCATE 11,64:PRINT USING "##.# dB";HL

1270 LOCATE 12, 4:PRINT "Altitude(m) at reflection point"

1280 LOCATE 12,61:PRINT USING "#,###.# m";HHF

1290 LOCATE 13, 2:PRINT "Effective loss of reflected wave"

1300 LOCATE 13,64:PRINT USING "##.# dB";RLF

1310 LOCATE 14, 2:PRINT "Span distance(km)"

1320 LOCATE 14,63:PRINT USING "###.# km";D

1330 LOCATE 15, 2:PRINT "Span  loss"

1340 LOCATE 15,63:PRINT USING "###.# dB";SL

1350 LOCATE 16, 2:PRINT "Clearance(m)"

1360 LOCATE 16,63:PRINT USING "###.# m";CL

1370 LOCATE 17, 2:PRINT "Circuit dropout rate(month) of path"

1380 LOCATE 17,62:PRINT USING "####.##*10^-7";AV*10^7:COLOR 3

1390 LOCATE 18, 2:PRINT "Circuit dropout rate(month) of CCIR REC.393-4"

1400 LOCATE 18,62:PRINT USING "####.##*10^-7";AC*10^7:COLOR 2

1410 LOCATE 19, 2:PRINT "Space diversity system"

1420 LOCATE 19,62:SD$=LEFT$(SD$,1)

1430 IF SD$="/" THEN PRINT "not necessary"

1440 IF SD$="*" THEN PRINT "necessary"

1450 IF SD$="+" THEN PRINT "necessary"

1460 COLOR 7:LOCATE 20, 1:PRINT STRING$(80,"-")

1470 LINE(400,7)-(400,273),7

1480 LINE(520,7)-(520,112),7

1490 LINE(638,7)-(638,273),7:                                                        LINE(  1,7)-(  1,273),7

1500 FOR I=1 TO 15:LINE(1,(I-1)*14+56)-(638,(I-1)*14+56),7,,&HCCCC:NEXT

1510 COLOR 6:LOCATE 23,10:PRINT "----- Menu: Hit space key -----"

1520 COLOR 7:Q$=INKEY$:IF Q$<>" " THEN 1520

1530 LOCATE 23,10:PRINT SPC(69)

1540 CLS:SCREEN 0:RUN "ME"

2000 ' -------------------

2010 ' *  data file sub  *

2020 ' -------------------

2030 OPEN "DATARF" AS #1

2040 FIELD #1,4 AS KAR$,4 AS KMR$,4 AS FQR$,4 AS FZR$,4 AS CLR$,4 AS SLR$,                    4 AS RLR$,4 AS IAR$,4 AS IBR$,4 AS ALR$,4 AS BLR$,4 AS FLR$,                    4 AS TLR$,4 AS ROR$,4 AS DIR$,4 AS H1R$,4 AS H2R$

2050 FIELD #1,68 AS DUMMY$,4 AS HSR$,4 AS D1R$,4 AS DDFR$,4 AS HHFR$,                         10 AS VFR$,8 AS ACR$,8 AS AVR$,2 AS SDR$,4 AS FR$,4 AS GR$

2060 RETURN

2070 '

2080 GET #1,1

2090 K(1)=CVS(KAR$):K(2)=CVS(KMR$):FQ=CVS(FQR$):FZ=CVS(FZR$):CL=CVS(CLR$):               SL=CVS(SLR$):RL=CVS(RLR$):X1=CVS(IAR$):X2=CVS(IBR$):XL1=CVS(ALR$):              XL2=CVS(BLR$)

2100 HL=CVS(FLR$):RLF=CVS(TLR$):ROT$=ROR$:D=CVS(DIR$):H1=CVS(H1R$):                  H2=CVS(H2R$):HS=CVS(HSR$):D1=CVS(D1R$)

2110 DDF=CVS(DDFR$):HHF=CVS(HHFR$):VF$=VFR$:AC=CVD(ACR$):AV=CVD(AVR$):               SD$=SDR$:F=CVS(FR$):G=CVS(GR$)

2120 CLOSE #1:RETURN