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

110 ' *  IBM PC BASIC  VERSION A3.30  *

120 ' *  FILE NAME "EIRP"             *

130 ' *  MAXIMUM EIRP                 *

140 ' *  1987/04              I.KATO  *

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

160 KEY OFF:CLS:SCREEN 0

170 COLOR 14

180 LOCATE 1,1:PRINT "[ITEM 18]           REGULATION REGARDING MAXIMUM EIRP ":      COLOR 7:PRINT

190 PRINT "Some microwave frequency bands are shared between the fixed service satellite   system and the line-of-sight radio relay system involving reception at the space";

200 PRINT "segment. For satisfactorilly sharing of the common frequencies with the least   interference between the two systems, the Radio Regulations stipulate the"

205 PRINT "maximum values of the ";:COLOR 3:PRINT "equivalent isotropically radiated power (e.i.r.p) ";:COLOR 7:PRINT "of the"

210 PRINT "terrestrial station (i.e. station in a radio relay link) as follows."

220 LOCATE 10, 8:PRINT STRING$(53,"-")

230 LOCATE 11,36:PRINT "Maximum allowable power"

240 LOCATE 12,11:PRINT "Frequency band"

250 LOCATE 12,34:PRINT STRING$(27,"-")

260 LOCATE 13,36:PRINT "Antenna input  e.i.r.p."

270 LOCATE 14, 8:PRINT STRING$(53,"-")

280 LOCATE 16,14:PRINT "1-10GHz":LOCATE 16,38:PRINT "13dBW         55dBW"

290 LOCATE 18, 8:PRINT STRING$(53,"-")

300 LOCATE 20,14:PRINT " >10GHz":LOCATE 20,38:PRINT "10dBW         55dBW"

310 LOCATE 22, 8:PRINT STRING$(53,"-")

320 FOR I=11 TO 21:LOCATE I, 8:PRINT "|":NEXT:                                      FOR I=11 TO 21:LOCATE I,34:PRINT "|":NEXT

325 FOR I=13 TO 21:LOCATE I,49:PRINT "|":NEXT:                                      FOR I=11 TO 21:LOCATE I,60:PRINT "|":NEXT

330 COLOR 6:LOCATE 23,20:PRINT  "----- menu: Hit space key -----"

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

350 CLS:SCREEN 0:RUN "ME