10 PRINT CHR$(26):REM Screen clear
20 REM THIS PROGRAM CALCULATES A POWER BUDGET FOR UHF-VHF
30 PRINT"THIS PROGRAM WILL GIVE THE POWER BUDGET FOR UHF-VHF"
40 PRINT"     COMMUNICATIONS OVER A KNOWN PATH. ENTER THE FOLLOWING"
50 PRINT"     DATA.  SOME POSSIBLE VALUES ARE SUGGESTED."
60 PRINT
70 INPUT"  FREQUENCY OF OPERATION (MHZ)";F
80 INPUT"  TRANS ANT GAIN REL ISOTROPIC (DIPOLE=2DB)";GT
90 INPUT"  TRANS TSMSN LINE LOSSES (DB)";LT
100 INPUT"  RCVR ANT GAIN REL ISOTROPIC ANT.";GR
110 INPUT"  RCVR TSMSN LINE LOSSES (DB)";LR
120 INPUT"  DISTANCE BETWEEN ANT. (ST. MILES)";D
130 A=36.6+20*LOG(F)+20*(D)+M+LT+LR-GT-GR
140 PRINT      
150 PRINT"WORST CASE PATH LOSS BETWEEN XMTR & RCVR IS ";A;" DB"
160 PRINT
170 PRINT"RECEIVER LOSSES ARE AFFECTED BY THE FOLLOWING: ENTER:"
180 INPUT"   1) RCVR IF BANDWIDTH (HZ). (TRY 32 KHZ)";B
190 INPUT"   2) RCVR NOISE FIGURE. (15DB?)";NF
200 INPUT"   3) CARRIER TO NOISE RATIO (DB). (15DB?)";CN
210 R=-204+10*LOG(B)+NF+CN
220 PRINT
230 PRINT"SIGNAL POWER REQUIRED AT UHF RCVR SITE IS ";R;" DBW"
240 PRINT
250 T=R+A
260 PRINT"THE NECESSARY TRANSMITTER POWER IS ";T;" DBW"
270 PRINT"   OR ";(10)^(T/10);" WATTS."
280 END
0 PRINT
250 T=R+A
260 PRINT"THE NECESSARY TRANSMITTER POWER IS ";T;" DBW"
270 PRINT"   OR