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

110 ' * IBM PC BASIC   VERSION A3.30  *

120 ' * FILE NAME "FREQ"              *

130 ' * FREQUENCY BANDS & APPLICATION *

140 ' * 1987/10                I.KATO *

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

160 KEY OFF:CLS:SCREEN 9:COLOR 7

170 COLOR 14

180 LOCATE  1, 1:PRINT "[ITEM 1]          MICROWAVE FREQUENCY BANDS AND THEIR APPLICATION":COLOR 3

190 PRINT "For a long-haul telephone circuit, 4, 5, 6 and 8 GHz bands ";:COLOR 7:PRINT "are principally"

200 PRINT "applied; meanwhile, in some sections where an acute branch-out angle is requiredor strong ground-reflected wave exists 11 and 15 GHz bands can replace them."

210 COLOR 3:PRINT "For a short-haul telephone circuit, 2, 7, 11 and 15 GHz bands ";:COLOR 7:PRINT "are allocated."

220 PRINT "Thanks to sufficient tolerance against precipitation attenuation and small      occurrence probability of duct-type fading 2GHz bands suits for a rainy region,"

230 PRINT "an area with relatively long relay hops or a route containing over-the-sea      propagation sections.":COLOR 3

240 PRINT "As regards, television transmission, 4, 6 and 8 GHz bands can be applied."

250 COLOR 2:LOCATE 12, 1:PRINT " SYSTEM    FREQUENCY    BANDWITH   CENTRE FREQUENCY     CAPACITY     CCIR  Rec."

260 COLOR 2:LOCATE 13, 1:PRINT "            (MHz)        (MHz)          (MHz)         (Radio ch)       &  Rep."

270 COLOR 7:LOCATE 14, 1:PRINT "  2GHz   1,700- 2,290     400        1903 or 2101      1800*(5+1)    Rec.382-3"

280         LOCATE 15, 1:PRINT "  4GHz   3,400- 4,200     400           4003.5         1800*(5+1)    Rec.382-3"

290         LOCATE 16, 1:PRINT "  5GHz   4,400- 5,000     600           4700           2700*(6+1)    Rep.287-4"

300         LOCATE 17, 1:PRINT "  6GHz   5,925- 6,425     500           6175           2700*(7+1)    Rec.383-2"

310         LOCATE 18, 1:PRINT "         6,430- 7,110     680           6770           2700*(7+1)             "

320         LOCATE 19, 1:PRINT "  7GHz   7,425- 7,725     300           7575            300*(19+1)   Rec.385-2"

330         LOCATE 20, 1:PRINT "  8GHz   7,725- 8,275     550           8000           1800*(7+1)    Rec.386-2"

340         LOCATE 21, 1:PRINT " 11GHz  10,700-11,700   1,000          11200           2700*(10+1)   Rec.387-2"

350         LOCATE 22, 1:PRINT " 15GHz  14,300-15,350   1,050          14825           2700*(7+1)    Rec.497-2"

360 FOR I=0 TO 11:LINE(0,152+I*14)-(638,152+I*14),7,,&H8888:NEXT

370 LINE(0,166)-(638,166),0:LINE(  0,236)-(638,236),0

380 LINE(0,152)-(  0,306),7:LINE(638,152)-(638,306),7

390 COLOR 6:LOCATE 23,25:PRINT "----- menu:  Hit space key -----"

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

410 SCREEN 0:CLS:RUN "ME"