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

110 ' * IBM PC BASIC VERSION A3.30  *

120 ' * FILE NAME "ME"              *

130 ' * MENU PROGRAME               *

140 ' * 1987/10              I.KATO *

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

160 KEY OFF:CLS:SCREEN 9:COLOR 7

170 COLOR 14

180 LOCATE  1,10:PRINT "MICROWAVE LINK PROPAGATION PATH DESIGN":COLOR 3

190 LOCATE  1,53:PRINT CHR$(4);:PRINT " Calculation / Estimation":COLOR 7

200 L1=39*8

210 LOCATE  2, 2:PRINT "1 Microwave frequency bands and their"

220 LOCATE  3, 2:PRINT "  application"

230 LINE(0,14)-(L1,40),7,B

240 LOCATE  4, 2:PRINT "2 Free space propagation            ";:                     COLOR 11:PRINT CHR$(4):COLOR 7

250 LINE(0,40)-(L1,54),7,B

260 LOCATE  5, 2:PRINT "3 Line-of-sight propagation"

270 LINE(0,54)-(L1,68),7,B

280 LOCATE  6, 2:PRINT "4 Troposheric propagation"

290 LINE(0,68)-(L1,82),7,B

300 LOCATE  7, 2:PRINT "5 Fresnel zone theorem"

310 LINE(0,82)-(L1,96),7,B

320 LOCATE  8, 2:PRINT "6 Diffraction"

330 LINE(0,96)-(L1,110),7,B

340 LOCATE  9, 2:PRINT "7 Planning of relay route"

350 LINE(0,110)-(L1,124),7,B

360 LOCATE 10, 2:PRINT "8 Profile drawing                   ";:                     COLOR 11:PRINT CHR$(4):COLOR 7

370 LINE(0,124)-(L1,138),7,B

380 LOCATE 11, 2:PRINT "9 Path clearance at ridge point"

390 LINE(0,138)-(L1,152),7,B

400 LOCATE 12, 2:PRINT "10 Ridge diffraction loss           ";:                     COLOR 11:PRINT CHR$(4):COLOR 7

410 LINE(0,152)-(L1,166),7,B

420 LOCATE 13, 2:PRINT "11 Direct wave and reflected wave"

430 LOCATE 14, 2:PRINT "   losses"

440 LINE(0,166)-(L1,194),7,B

450 LOCATE 15, 2:PRINT "12 Ground reflection loss"

460 LINE(0,194)-(L1,208),7,B

470 LOCATE 16, 2:PRINT "13 Locating the reflection point    ";:                     COLOR 11:PRINT CHR$(4):COLOR 7

480 LINE(0,208)-(L1,222),7,B

490 LOCATE 17, 2:PRINT "14 Included angle between direct    ";:                     COLOR 11:PRINT CHR$(4):COLOR 7

500 LOCATE 18, 2:PRINT "   and reflected waves"

510 LINE(0,222)-(L1,250),7,B

520 LOCATE 20, 2:PRINT "15 Antenna directivity"

530 LINE(0,250)-(L1,278),7,B

540 LOCATE 21, 2:PRINT "16 Fading in line-of-sight"

550 LOCATE 22, 2:PRINT "   transmission"

560 LINE(0,278)-(L1,306),7,B

570 L1=40*8:L2=79*8

580 LOCATE  2,42:PRINT "17 Transmission quality standard on"

590 LOCATE  3,42:PRINT "   hypothetical reference circuit"

600 LINE(L1,14)-(L2,40),7,B

610 LOCATE  4,42:PRINT "18 Regulation regarding maximum EIRP"

620 LINE(L1,40)-(L2,54),7,B

630 LOCATE  5,42:PRINT "19 Distribution of received power   ";:                     COLOR 11:PRINT CHR$(4):COLOR 7

640 LOCATE  6,42:PRINT "   during short term fading"

650 LINE(L1,54)-(L2,82),7,B

660 LOCATE  7,42:PRINT "20 Space diversity system"

670 LINE(L1,82)-(L2,96),7,B

680 LOCATE  8,42:PRINT "21 Antenna elevation angle          ";:                     COLOR 11:PRINT CHR$(4):COLOR 7

690 LINE(L1,96)-(L2,110),7,B

700 LOCATE  9,42:PRINT "22 Azimuth and distance towards     ";:                     COLOR 11:PRINT CHR$(4):COLOR 7

710 LOCATE 10,42:PRINT "   respective station"

720 LINE(L1,110)-(L2,138),7,B

730 LOCATE 11,42:PRINT "23 Estimation of propagation path   ";:                     COLOR 11:PRINT CHR$(4):COLOR 7

740 LOCATE 12,42:PRINT "   performances"

750 LINE(L1,138)-(L2,166),7,B

760 LOCATE 13,42:PRINT "24 Over-reach interference          ";:                     COLOR 11:PRINT CHR$(4):COLOR 7

770 LINE(L1,166)-(L2,180),7,B

780 LOCATE 14,42:PRINT "25 Interference with other route    ";:                     COLOR 11:PRINT CHR$(4):COLOR 7

790 LINE(L1,180)-(L2,194),7,B

800 LOCATE 15,42:PRINT "26 Interference to geostationary-   ";:                     COLOR 11:PRINT CHR$(4):COLOR 7

810 LOCATE 16,42:PRINT "   satellite orbit"

820 LINE(L1,194)-(L2,222),7,B

830 LOCATE 17,42:PRINT "27 Interference between terrestrial ";:                     COLOR 11:PRINT CHR$(4):COLOR 7

840 LOCATE 18,42:PRINT "   station and earth station"

850 LINE(L1,222)-(L2,250),7,B

860 LOCATE 19,42:PRINT "28 Field survey"

870 LINE(L1,250)-(L2,264),7,B

880 LOCATE 20,42:PRINT "29 Determination of system meeting"

890 LOCATE 21,42:PRINT "   overall performances"

900 LINE(L1,264)-(L2,292),7,B

910 COLOR 2:LOCATE 22,42:PRINT "30 Termination of work"

920 LINE(L1,292)-(L2,306),7,B

930 '

940 COLOR 6:LOCATE 23,20:INPUT "Select item number (1-30) ";NO$

950 COLOR 7:LOCATE 23,20:PRINT SPC(50)

960 NO=VAL(NO$):COLOR 6

970 IF NO<1 OR NO>30 THEN 940

980 ON NO GOTO 1010,1020,1030,1040,1050,1060,1070,1080,1090,1100,1110,1120,1130,               1140,1150,1160,1170,1180,1190,1200,1210,1220,1230,1240,1250,1260,               1270,1280,1290,1300

990 '

1000 '

1010 LOCATE  2,2:PRINT "1":RUN "FREQ"

1020 LOCATE  4,2:PRINT "2":RUN "FSL"

1030 LOCATE  5,2:PRINT "3":RUN "LS"

1040 LOCATE  6,2:PRINT "4":RUN "K"

1050 LOCATE  7,2:PRINT "5":RUN "FRESNE"

1060 LOCATE  8,2:PRINT "6":RUN "DIFF"

1070 LOCATE  9,2:PRINT "7":RUN "ROUT"

1080 LOCATE 10,2:PRINT "8":RUN "PF"

1090 LOCATE 11,2:PRINT "9":RUN "CL"

1100 LOCATE 12,2:PRINT "10":RUN "RL"

1110 LOCATE 13,2:PRINT "11":RUN "TOLOSS"

1120 LOCATE 15,2:PRINT "12":RUN "REFL"

1130 LOCATE 16,2:PRINT "13":RUN "REFP"

1140 LOCATE 17,2:PRINT "14":RUN "INCL"

1150 LOCATE 20,2:PRINT "15":RUN "ANTSEL"

1160 LOCATE 21,2:PRINT "16":RUN "FADING"

1170 LOCATE 2,42:PRINT "17":RUN "CCIR"

1180 LOCATE 4,42:PRINT "18":RUN "EIRP"

1190 LOCATE 5,42:PRINT "19":RUN "AVA"

1200 LOCATE 7,42:PRINT "20":RUN "SD"

1210 LOCATE 8,42:PRINT "21":RUN "ELEV"

1220 LOCATE 9,42:PRINT "22":RUN "HOI"

1230 LOCATE 11,42:PRINT "23":RUN "PATH"

1240 LOCATE 13,42:PRINT "24":RUN "OR"

1250 LOCATE 14,42:PRINT "25":RUN "DU"

1260 LOCATE 15,42:PRINT "26":RUN "SATE"

1270 LOCATE 17,42:PRINT "27":RUN "EARTH"

1280 LOCATE 19,42:PRINT "28":RUN "SURVEY"

1290 LOCATE 20,42:PRINT "29":RUN "FINAL"

1300 LOCATE 22,42:PRINT "30":RUN "START"

1310 END