1 GOTO 10
2 SAVE "VHFPROP.BAS"
3 END
10 INPUT "ANTENNA HEIGHT (TRANSMITTING STATION)";H1
20 INPUT "ANTENNA HEIGHT (RECEIVING STATION)";H2
30 INPUT "DISTANCE BETWEEN STATIONS (IN MILES)";D0
40 INPUT "EARTH RADIUS FACTOR";K0
50 DH=HI-H2
60 K1=1.5*K0
70 K2=(D0^2)/K1
80 IF ABS(DH)>K2 THEN 170
90 D1=.75*K0*DH/DO+DO/2
100 H0=H1-D1^2/K1
110 IF H0<0 THEN PRINT "LOS NOT POSSIBLE"
120 FOR N=0 TO 20:D3=N*D0/20
140 PRINT D3,H3
150 NEXT N
160 END
170 K3=DH/DO+DO/K1
180 FOR N=O TO 20:D3=N*D0/20
190 H3=H1-K3*D3+D3^2/K1
200 PRINT D3,H3
210 NEXT N
220 END
T N
160 END
170 K3=DH/DO+DO/K1
180 FOR N=O TO 20:D3=N*D0/20
190 H3