home *** CD-ROM | disk | FTP | other *** search
/ Super Games / visualcdgame.iso / dosgames / contintl / fldcov.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1992-06-30  |  3.2 KB  |  67 lines
  1. 10  REM -----------------------------------------------
  2. 20  REM COVERAGE PREDICTIONS FOR FM AND TV CHANNELS 2-6
  3. 30  REM -----------------------------------------------
  4. 40  REM
  5. 50  CLS : COLOR 7,0 : KEY OFF
  6. 60  PRINT "KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  7. 70  PRINT "OPEN              D I S T A N C E   T O   F M   C O N T O U R S                  OPEN"
  8. 80  PRINT "SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  9. 90  LOCATE 5,23 : COLOR 7 : PRINT "Input Data in "; : COLOR 15 : PRINT "F"; : COLOR 7 : PRINT "eet or "; : COLOR 15 : PRINT "M"; : COLOR 7 : PRINT "eters? "; : M$ = INPUT$(1)
  10. 100  IF M$ = "f" OR M$ = "F" THEN 130
  11. 110  IF M$ = "m" OR M$ = "M" THEN 150
  12. 120  GOTO 90
  13. 130  LOCATE 8,7 : PRINT "Antenna Height in Feet:  "; : COLOR 15 : INPUT "",X$     : COLOR 7
  14. 140  X = VAL(X$) : IF X =< 0 THEN 130 ELSE X1 = X : X2 = INT ((X * 0.3048) * 10 + 0.5) / 10 : LOCATE 9,5 : PRINT "Antenna Height in Meters: "; : COLOR 15 : PRINT X2 : COLOR 7 : GOTO 170
  15. 150  LOCATE 8,5 : PRINT "Antenna Height in Meters:  "; : COLOR 15 : INPUT "",X$   : COLOR 7
  16. 160  X = VAL(X$) : IF X =< 0 THEN 150 ELSE X1 = INT ((X * 3.2808) * 10 + 0.5) / 10 : X2 = X : X = X1 : LOCATE 9,7 : PRINT "Antenna Height in Feet: "; : COLOR 15 : PRINT X1 : COLOR 7
  17. 170  X = LOG (X)
  18. 180  L = 2.30259  'log to base of 2.718
  19. 190  LOCATE 11,17 : PRINT "e.r.p. in kW:  "; : COLOR 15 : INPUT "", P$ : COLOR 7 :P = VAL(P$) : P1 = P : IF P =< 0 THEN 190
  20. 200  P = 4.3429 * LOG (P)
  21. 210  LOCATE 13,7 : PRINT "Field Strength in mV/m:  "; : COLOR 15 : INPUT "",V$ : COLOR 7 : V = VAL(V$) : IF V =< 0 THEN 210 ELSE Y = 20 * (LOG (V/0.000999999) / L) : Y = INT (Y * 10 +0.5) / 10 : Y1 = Y
  22. 220  LOCATE 15,1 : PRINT "SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND"
  23. 230  Y = Y - P - T
  24. 240  IF Y > 80 THEN 260
  25. 250  IF Y > 0 THEN  270
  26. 260  PRINT : COLOR 15 : PRINT TAB(17) "INACCURATE REGI0N - CHECK RESULTS MANUALLY" : COLOR 7 : PRINT : PRINT : END
  27. 270  Z = B
  28. 280  FOR F = 0 TO 4
  29. 290  M = 0
  30. 300  FOR E = 0 TO 4
  31. 310  READ A
  32. 320  M = M + A * X^E
  33. 330  NEXT E
  34. 340  Z = Z + M * Y^F
  35. 350  NEXT F
  36. 360  W = 10 * EXP (Z)
  37. 370  Z1 = ( INT (W) + INT ((W - INT (W)) * 2)) / 10
  38. 380  LOCATE 17,1 : PRINT "Distance to "; Y1; " dBu Contour: "; : COLOR 15 : PRINT Z1; : LOCATE 17,38 : PRINT "miles" : COLOR 7
  39. 390  Z2 = INT (Z1 * 1.60934 * 10 + 0.5) / 10
  40. 400  LOCATE 18,31 : COLOR 15 : PRINT Z2; : LOCATE 18,38 : PRINT "Km" : COLOR 7
  41. 410  LOCATE 23,1 : LOCATE 23,24 : COLOR 15 : PRINT "P"; : COLOR 7 : PRINT "rint  -  "; : COLOR 15 : PRINT "N"; : COLOR 7 : PRINT "ew Data  -  "; : COLOR 15 : PRINT "Q"; : COLOR 7 : PRINT "uit"; : A$ = INPUT$(1)
  42. 420  IF A$ = "n" OR A$ = "N" THEN RESTORE : GOTO 50
  43. 430  IF A$ = "q" OR A$ = "Q" THEN RUN "techmenu"
  44. 440  IF A$ = "p" OR A$ = "P" THEN 460
  45. 450  GOTO 410
  46. 460  LPRINT TAB(34) "DISTANCE TO FM CONTOURS"; NORMAL$
  47. 470  LPRINT TAB(20) "--------------------------------------------------"
  48. 480  LPRINT TAB(20) "Height Above Average Terrain: "; TAB(51); : LPRINT USING "####.#_   feet"; X1
  49. 490  LPRINT TAB(51); : LPRINT USING "####.#_   meters"; X2
  50. 500  LPRINT
  51. 510  LPRINT TAB(24) "Effective Radiated Power: "; TAB(52); : LPRINT USING "###.##_  kW"; P1; : LPRINT
  52. 520  LPRINT
  53. 530  LPRINT TAB(26) "Field Strength Contour: "; TAB(53) BOLD$; : LPRINT USING "##.##_  mV/m"; V
  54. 540  LPRINT  TAB(53); : LPRINT USING "##.##_  dBu"; Y1
  55. 550  LPRINT
  56. 560  LPRINT TAB(29) "Distance to Contour: "; TAB(52); : LPRINT USING "###.#_   miles"; Z1
  57. 570  LPRINT TAB(52); : LPRINT USING "###.#_   kilometers"; Z2
  58. 580  LPRINT TAB(20) "--------------------------------------------------"
  59. 590  LPRINT : LPRINT
  60. 600  LPRINT CHR$(12)
  61. 610  GOTO 410
  62. 620  DATA 3.68, 5.368e-1, -9.454e-2, 6.257e-3, 0
  63. 630  DATA 1.1654, -7.2486e-1, 1.6038e-1, -1.5565e-2, 5.6445e-4
  64. 640  DATA -9.2989e-2, 5.5882e-2, -1.2486e-2, 1.2408e-3, -4.6425e-5
  65. 650  DATA 1.8513e-3, -1.1238e-3, 2.5306e-4, -2.534e-5, 9.5651e-7
  66. 660  DATA -1.1158e-5, 6.8286e-6, -1.5483e-6, 1.5595e-7, -5.9243e-9
  67.