40 PRINT:PRINT"THE DISTANCE YOU CAN NORMALLY TRANSMIT ON VHF/UHF IS THE LINE":PRINT"OF SIGHT. THIS IS NORMALLY BASED ON THE ALTITUDE OF THE ANTENNA AND IS"
50 PRINT"DETERMINED BY THE FORMULA D=SQR(H), WHERE D IS THE DISTANCE TO THE":PRINT"HORIZON AND H IS THE HEIGHT OF THE ANTENNA."
60 LOCATE 22,34:COLOR 31:PRINT"[SPACE BAR]
70 Z$=INKEY$:IF Z$="" THEN 70
75 COLOR 15
80 IF Z$= CHR$(32) THEN GOTO 100
90 GOTO 70
100 CLS
110 PRINT:PRINT:PRINT:INPUT"ENTER HEIGHT OF TRANSMITTER ANTENNA ";H
120 D=SQR(H)
130 PRINT:PRINT:PRINT"THE DISTANCE TO THE RADIO HORIZON IS ";INT(D);" MILES"
140 A=3.1416*(D*D)
150 PRINT:PRINT"FOR A TRANSMITTER COVERAGE AREA OF ";INT(A);" SQUARE MILES"
160 PRINT:PRINT:INPUT"ENTER HEIGHT OF RECEIVING ANTENNA ";RH
170 DD=SQR(RH)
180 PRINT:PRINT"THE DISTANCE TO THE RECEIVING HORIZON IS ";INT(DD);"MILES"
190 AA=3.1416*(DD*DD)
200 PRINT:PRINT"FOR A RECEIVER COVERAGE AREA OF ";INT(AA);" SQUARE MILES"
210 PRINT:PRINT"OR A DISTANCE BETWEEN THE TRANSMITTER & RECEIVER OF ";INT(DD+D);" MILES"
220 LOCATE 24,37:COLOR 31:PRINT"[ENTER]"
230 Z$=INKEY$:IF Z$="" THEN 230
240 IF Z$= CHR$(13) THEN COLOR 15: GOTO 260
250 GOTO 230
260 CLS:PRINT"WHAT Y'ALL WANT?"
270 PRINT:PRINT"1...............DO ANOTHER ANTENNA"
280 PRINT:PRINT"2...............RETURN TO MAIN MENU"
290 PRINT:PRINT"3...............RETURN TO BASIC"
300 PRINT:PRINT"4...............RETURN TO MS-DOS"
310 PRINT:INPUT C
320 ON C GOTO 340,350,360,370
330 GOTO 260
340 RUN 100
350 RUN"MAINMENU
360 CLS:NEW
370 CLS:COLOR 31:LOCATE 12,10:PRINT"ARE YOU SURE..(Y)es/(N)o..THIS ACTION COULD EXIT BASIC AND PROGRAM!"
380 A$=INKEY$:IF A$=""THEN 380
390 IF A$= "Y" OR A$= "y" THEN COLOR 15,0,0:CLS:SYSTEM
(.txt)